[ تمت الإجابة ]الجملة الشرطية لاتعمل للتاكد من الحقول النصية

السلام عليكم ورحمة الله وبركاته

اخواني تواجهني مشكلة في هذا الكود لا ادري لماذا لا يعمل ؟

عند ضغط زر الحفظ تظهر رسالة التحقق من الحقل النصي علما ان الحقل مدخل وليس بفارغ !

تم البحث في المنتدى بعدة كلمات ( الحقول فارغة - الجملة الشرطية - التاكد من الحقول النصية وغيرها )

ولم اجد حل لاستفساري

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

واذا كانت كذلك يتم العودة للحقل الفارغ لتعبئته

وان لم تكن يتم متابعة اجراء الكود

البرنامج : Access 2003

وهذا الكود

Private Sub امر9_Click()
On Error GoTo ed
Dim QRY As String
Dim Q2 As Recordset
QRY = "SELECT * from SUBSCRIBERS "
Set Q2 = CurrentDb.OpenRecordset(QRY)
Q2.AddNew
Q2!numsub = S1
Q2!namesub = S2
Q2!idnum = S3
If namesub = "" Then
MsgBox ("فضلا ادخل اسم المستخدم")
Q2.Close
S2.SetFocus
ElseIf idnum = "" Then
MsgBox ("فضلا ادخل رقم الهوية")
Q2.Close
S3.SetFocus
end if

Q2.Update
MsgBox ("تم اضافة البيانات")
S1 = Null
S2 = Null
S3 = Null
S1.SetFocus
AD:
Exit Sub
ed:
Resume AD
End Sub

ولكم جميعا جزيل الشكر