07-06-13, 11:29 PM
السلام عليكم
- هذا الكود السابق الذي وضعته بعد تعديله , حيث كان فيه خطأ إملائي لأني أكتبه من الموبايل :
- تحياتي .
- هذا الكود السابق الذي وضعته بعد تعديله , حيث كان فيه خطأ إملائي لأني أكتبه من الموبايل :
كود :
Dim Ctrl As Control
For Each Ctrl In Controls
If TypeOf Ctrl Is TextBox Then
If Trim$(Ctrl.Text) = "" And Ctrl.Visible = True Then
MsgBox "Write Text"
Ctrl.SetFocus
Exit Sub
End If
End If
Next- تحياتي .