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

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

السلام عليكم

عند الضغط على زر اضافة لم تظهر البيانات في الحقول حتى الظغط على زر تحديث

اريد عند الضغط على زر اضافة تظهر البيانات مباشر

اليك البرنامج

A_dbu - Add-Delet) - Copie.rar

[Barna]

34 دقائق مضت, بلال اليامين said:

السلام عليكم

عند الضغط على زر اضافة لم تظهر البيانات في الحقول حتى الظغط على زر تحديث

اريد عند الضغط على زر اضافة تظهر البيانات مباشر

اليك البرنامج

A_dbu - Add-Delet) - Copie.rar 39.02 kB · 2 تنزيلات

On Error GoTo Error_ErrorZ
    If Len(Me.B1 & vbNullString) = 0 Or Len(Me.B2 & vbNullString) = 0 Or Len(Me.B3 & vbNullString) = 0 Or Len(Me.B4 & vbNullString) = 0 Or Len(Me.B5 & vbNullString) = 0 Then
    
    Else
    DoCmd.SetWarnings False
    DoCmd.OpenQuery "Query1"
    DoCmd.SetWarnings True
'    MsgBox "Done", vbInformation
DoCmd.RunCommand acCmdRefresh
End If
    
Error_ErrorZ:
    MsgBox "Not Done", vbInformation