السلام عليكم Private Function officena() Dim ctl As Control For Each ctl In Me.Controls If TypeName(ctl) = "TextBox" Then If IsNull(ctl) Or ctl = "" Then Beep MsgBox " اخي الكريم ... لقد تركت الحقل ..." & "(" & ctl.Name & ")" & "... فارغاً ", vbOKOnly, "اوفيسنا" DoCmd.CancelEvent ctl.SetFocus Exit For End If End If Next ctl End Function
تم من خلال الضغط على اي زر استدعي الكود الاول
' انقل هذا الامر الى زر
Call officena
لدي كود اريد وضعه في زر تحديث بخصوص الحقل فارغ في البرنامج الذي اريد فيه وضع الكود 1191.222.rar171.78 kB · 0 تنزيلات