alshadwi

السي متغير وليس اسم النموذج Dim C As Control For Each C In Controls If TypeOf C Is TextBox And IsNull(C) Then C.SetFocus C.BackColor = 100 End If Next بعد كلمة IsNull قوسين بينهما المتغير C ضع الكود في حدث Sub Form_Curren()

Dim C As Control For Each C In Controls If TypeOf C Is TextBox And IsNull© Then C.SetFocus C.BackColor = 100 End If Next

من خصائص الاداة>غير ذلك>علامة تحياتي

Dim C As Control For Each C In Controls If TypeOf C Is TextBox And IsNull© Then C.SetFocus C.Value = 0 End If Next