السلام عليكم ورحمة الله وبركاته..
أريد كود عدم تكرار الرقم وظهور رسالة تخبرني بأنا الرقم موجود
أرجوا التعديل على مثال في المرفقات
وشكرا
بدك تعمل كود بحث و تضعه في الكوماند1
كود :
do until rs.eof
if rs!الرقم = Text1.Text then
else
endif
rs.movenext
loop
لم افهم
أرجو التعديل على المثال في المرفقات
لم أفهم اين تريد كود عدم التكرار في مثالك المرفق
عند ضغط على Command1 ( حفظ )
يعني الرقم لايتكرر في حقل مسمى ( الرقم ) الموجود في قاعدة البيانات
بدك تضع كود في الكوماند1
كود :
do until rs.eof
if rs!الرقم = Text1.Text then
i=1
else
i=0
rs.movenext
loop
if i=0 then
نفس الكود الموجود مسبقا في الكوماند1 كله
endif