06-12-12, 12:28 PM
رجاء من الاساتذه الاعزاء ايجاد لي حل لهذه المشكلة والتي هي انني لما اعمل حفظ في مشروعي يطلع لي رسالة ولما اغلق البرنامج واشغله من جديد لاقي اللي حفظته موجود رجا رجاء رجاء ساعدوني ولكم جزيل الشكر والتقدير
06-12-12, 12:28 PM
07-12-12, 03:02 AM
07-12-12, 02:16 PM
08-12-12, 12:39 AM
08-12-12, 04:32 PM
ولاتزعل نفسك اخى عبد الله 
هذا هو الكود
هذا هو الكود
كود :
If rsin.State = 1 Then rsin.Close
SQL = "select * from STORES where STO_CODE =" & Text1.Text & ""
rsin.Open SQL, mydb1, adOpenKeyset, adLockOptimistic
If rsin.EOF Then
rsin.AddNew
rsin![STO_CODE] = Text1.Text
rsin![STO_NAME] = Text2.Text
rsin![STO_ADDRESE] = Text3.Text
rsin![STO_TEL] = Text4.Text
rsin![STO_FAX] = Text5.Text
rsin.Update
MsgBox "تمت عمليه الحفظ بنجاح", vbInformation
Else
MsgBox "هذا الرقم موجود مسبقاً", vbCritical
Text1.SetFocus
End If10-12-12, 03:02 PM