السلام عليكم
الكود عبارة عن التاكد من وجود الاسم فى نفس الجدول قبل الحفظ اذا كان موجود تظهر رسالة ان السجل مسجل من قبل مرفق مثال
كود ناقص يحتاج التصحيح !
وعليكم السلام
هنا الخطأ :
MsgBox "هذا البيان مكرر", vbCritical, vbInformation, "خطا"
التصحيح :
MsgBox "هذا البيان مكرر", vbCritical + vbInformation, "خطا"
دمت بخير
شكرا على رد حضرتك فعلا دة خطا وانا بكتب الكود لكن المشكلة الاساسية ليس فى هذا السطر مثال حضرتك دلوقتى القاعدة خالية عند طلب حفظ لايمكن الحفظ ويظهر الخطا فى السطر الاول
rs.MoveFirst
rs.Find "name='" + Text1 + "'"
If rs.EOF Then
rs.AddNew
rs!Name = Text1.Text
rs.Update
MsgBox "Êã ÍÝÙ ÈíÇäÇÊ " & Text1, vbOKOnly + vbInformation, "äÌÇÍ"
Text1.Text = ""
Else
MsgBox "åÐÇ ÇáÈíÇä ãßÑÑ", vbCritical + vbInformation, "ÎØÇ"
Exit Sub
End If
يظهر الخطا فى بداية الكود
rs.movefirst
تم حل المشكلة الحمد لله
On Error GoTo erro
rs.MoveFirst
erro:
rs.Find "name='" + Text1 + "'"
If rs.EOF Then
rs.AddNew
rs!Name = Text1.Text
rs.Update
MsgBox "Êã ÍÝÙ ÈíÇäÇÊ " & Text1, vbOKOnly + vbInformation, "äÌÇÍ"
Text1.Text = ""
Else
MsgBox "åÐÇ ÇáÈíÇä ãßÑÑ", vbCritical + vbInformation, "ÎØÇ"
Exit Sub
End If
وهى اضافة
On Error GoTo erro
قبل rs.movefirst
واضافة erro:
بعد ذات الكود