عندي فورم يحوي بيانات العملاء
أبغى أسوي عدم تكرار لأسم العميل وأذا وجد التكرر
لا يتم الحفظ وتظهر رسالة أو مسج بوكس
يخبروني بوجود الاسم مسبقا :unknown
سؤال في التكرار
مغلق
اجعل عمود اسم العميل هو عمود المفتاح اذ ا كانت جداولك .mdb او اي امتداد اخر
من قال لا إله إلا الله صادقا دخل الجنة
موقعي للتعارف و تبادل الأخبار http://www.xybond.com
Dim SQL As String SQL = "SELECT * FROM users WHERE username=" & txtUserName.Text Data1.RecordSource = SQL Data1.Refresh If Data1.Recordset.RecordCount > 0 Then MsgBox "Username already exists in database" End If
كود كتبته ولم اجربه :P
راكان الحنيطي
Be Open Source
السلام عليكم
طؤقة اخري بنفس نتيجة الكود المرفق من الاخ راكان
Dim SQL As String
Dim DB as Database
Dim Rec as Recordset
Private sub Form_Load()
set db = dbengine.opendatabse ("c:\mydb.mdb")
End Sub
Private sub Command1_Click()
SQL = "SELECT * FROM users WHERE username=" & txtUserName.Text
set rec = db.openrecordset (sql)
with rec
if .eof then
msgbox "user not found "
else
MsgBox "Username already exists in table"
end if
.close
end with
End Subتحياتي
الإنسان الذي يقول بأنه لا يمكن عمل شيء يجب ألا يعيق مطلقاً الإنسان الذي يقوم بعمل ذلك الشيء.
إن تخطئ فأنت إنسان ... أما أن تلوم جهازك الكمبيوتر على خطأك فهذا أكثر إنسانية.
تحياتي لك أخي prof_1982 وأخي راكان الحنيطي
الشغلة اضبطت معي من الجهتيين
سجل ايميلك هنا
ليصلك كل ما هو مفيد في عالم البرمجةهذا الموضوع مغلق.