[أحمد]

بسم الله الرحمن الرحيم

اهلا بكم

عند كتابة الكود التالى فى حدث النقر لزر الامر تظهر تلك الرسالة بدون تحديد ما هو الخطأ فى الكود بالضبط


الكود كما يلى :

كود :

Private Sub cmdOK_Click()

If txtUserName.Text = "" Or txtPassword.Text = "" Then
MsgBox " ÚÝæÇ áÇ íãßä ÊÑß ÍÞæá ÝÇÑÛÉ ", vbCritical + vbMsgBoxRight, " Error"

Exit Sub
End If

SQLs = "Select * From users Where UserName = ' " & txtUserName.Text & " ' And PassWord = ' " & txtPassword.Text & " ' "

If RS.State = adStateOpen Then RS.Close
RS.Open SQLs, DB, adOpenKeyset, adLockPessimistic



If RS.EOF Then
MsgBox " Sorry, The Username And Password Is Wrong ! ", vbCritical + vbMsgBoxRight, " Error Login "
Else
UserNames = txtUserName.Text
UserPassword = txtPassword.Text

Unload Me
End If


End Sub

و صورة الخطأ كما يلى :

وشكر لكم مقدما

[حريف برمجة]

بعد End If
ضع End If أخرى

[أحمد]

اشكرك اخى على الاهتمام لكن لم تحل المشكلة و اليك المشروع فى المرفقات

[vbnet]

.....

إمسح السطر (والذي يبدو لك أنه فاضي) الذي تحت سطر RS.Open تماماً، فهو يحتوي رمز غير مرئي ورقمه الأسكي (30) ويسمى Record separator
يأتي غالباً بسبب حدوث خلل أثناء حفظ ملفات المشروع أو من تشوه البيانات أثناء عملية النسخ واللصق

.....

[أحمد]

أشكرك اخى الفاضل .....فعلا تم الحل ....جزاكم الله خيرا

[اسلام الكبابى]

إقتباس :بعد End If
ضع End If أخرى

ولماذا End If أخرى ؟
لا توجد أى شروط داخلية حتى يضع End If وبعدها End If أخرى

[حريف برمجة]

(01-06-14, 04:48 PM)اسلام الكبابى كتب :

إقتباس :بعد End If
ضع End If أخرى

ولماذا End If أخرى ؟
لا توجد أى شروط داخلية حتى يضع End If وبعدها End If أخرى

صدقت اخي ،، التبس علي الأمر .