مشكلة جننتني لا يحلها الا محترف فجول بيزك أرجو حل

msg = MsgBox("Are you sure")

If msg = 6 Then

Dim Rs As New ADODB.Recordset

Dim SQL As String

SQL = "SELECT * FROM store WHERE cid = '" & txtno.Text & "' " ' رقم المورد

Rs.Open SQL, Cn, adOpenDynamic, adLockOptimistic

If Rs.EOF Then

Rs.AddNew

Rs("cid") = txtno.Text

Rs("name") = Text1.Text

Rs.Update

Else

d = MsgBox("المورد موجود ", vbOKOnly, "ÊßÑÇÑ ÑÞã ÇáÔíß")

txtno.SetFocus

End If

Rs.Close

Set Rs = Nothing

End If

تحية ......وبعد

اذا افترضنا ان اسم حقل رقم المورد no_mord ..... حلو

و انت بتعمل ado control ...... حلو

افعل الشرط التالي

x="no_mord=" text1.text في الاكس سوف يضع رقم المورد المدخل

adocd1.recordset.movefirst هذا الكود لكي يبحث من بداية الجدول

adodc.recordset.find=x (اذا طلع لك خطأ في هذا السطر شيل علامة يساوي ...تمام) هذا الكود يوجد السجل على حسب x

يعني يدور رقم المورد x يعني على افتراض ان رقم المورد المدخل 1 ....... حلو :D

if adodc1.recordset!no_mord=text1.text then

msgbox

"الرقم هذا موجود مسبقا"

elseif adodc1.recordset.movelast then هذا الكود يفحص اذا كان قد وصل الى نهاية الجدول ولم يجد الرقم

msgbox

"هذا الرقم غير موجود"

end if

ان شاء الله يصلح معك :D

دعوااااااااااااااااتك

المبرمج الطيب :)

سبب هذا الخطأ في أغلب الأحوال هو أنك استخدمت النوع ترقيم تلقائي لنوع بيانات حقل رقم المورد أو أنك تستخدم فهرس وحيد لهذا الحقل ، ويمكن حل هذه المشكلة عن طريق تغيير نوع الحقل أو حذف الفهرس ، وهذا غير مستحب مع أرقام مثل رقم الموردين فمن المفروض أن لا تتكرر هذه الأرقام ، ويفضل استخدام الطريقة المعروضة في المشاركة السابقة مع رسالة تخبر المستخدم باختيار رقم آخر

Major

أرجو ان يكون هذا المطلوب

ID.zip