طريقةوضع الكود في زر التحديث

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

طريقةوضع الكود في زر التحديث  الكود موجود   اليكم البرنامج في المرفق

Option Compare Database
Dim ii As Byte
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 Form_Open(Cancel As Integer)

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

2018-2.rar

تم تعديل يناير 6, 2019 بواسطه بلال اليامين