تعديل كود زر تاكيد الحفظ

[بلال اليامين]

السلام عليكم 

لي كود اريد التعديل عليه 

1- ان الكود الموجود في الزر تاكيد الحفظ

يقوم بحفظ البيانات وهذا الضغط على زر تاكيد الحفظ في حالة نسيان خانة تظهر رسالة تنبيه الرجاء ملء جميع الحقول

اريد التعديل على هذا الكود عند الضغط على زر تاكيد الحفظ لم يقوم بالحفظ البيانات حتى  يقوم المستخدم  بملء  جميع البيانات  

اليكم الكود

Private Sub NoEmptyTexts()
Dim ctl As Control
For Each ctl In Me.Controls
If ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox Then
If IsNull(ctl) Or ctl = "" Then
ii = 1
MsgBox "ÇáÑÌÇÁ ãáÁÌãíÚ ÇáãÚáæãÇÊ ÇáãØáæÈÉ"
DoCmd.CancelEvent
ctl.SetFocus
Exit For
Else
ii = 2
End If
End If
Next ctl
End Sub

Private Sub cmd_view_report_Click()
On Error Resume Next

Dim stDocName As String
 DoCmd.SelectObject acReport, "ØÈÇÚÉ ÇÓÊãÇÑÉ ãáÝ ÇáãæÙÝ", True
    stDocName = "ØÈÇÚÉ ÇÓÊãÇÑÉ ãáÝ ÇáãæÙÝ"
  DoCmd.OpenReport stDocName, acPreview

End Sub

Private Sub Form_BeforeUpdate(Cancel As Integer)

End Sub

Private Sub Form_Open(Cancel As Integer)
DoCmd.GoToRecord , , acNewRec
End Sub

Private Sub ÃãÑ41_Click()
Call NoEmptyTexts
If ii = 1 Then
Exit Sub
DoCmd.CancelEvent
Else
Me.Refresh
MsgBox " ÊãÊ ÚãáíÉÇÖÇÝÉ ãæÙÝ ÌÏíÏ ÈäÌÇÍ ÇáÑãÒ ÇáæÙíÝí ááãæÙÝ " & " " & Me.sname & "  " & "" & " " & usr_ID, _
    vbInformation + vbOKOnly, _
    "ÈáÏíÉ ÓØíÝ"
End If
DoCmd.GoToRecord , ÇáÑãÒ, acNewRec

[بلال اليامين]

السلام عليكم

تعديل كود الحفظ

[صلاح جبر]

وعليكم السلام

جرب استخدام هذا الكود

if isnull (me![اسم الحقل])=true then

msgbox "لم تدخل البيانات في الحقل"

else

dcomd.seve

end if

 

كود الحفظ.rar

تم تعديل فبراير 14, 2020 بواسطه صلاح جبر