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 If
سبحان الله وبحمده سبحان الله العظيم
آللهم لگ آلحمد حتى ترضى .. ولگ آلحمد إذا رضيِت .. ولگ آلحمد بعد آلرضآ
آللهم لگ آلحمد حتى ترضى .. ولگ آلحمد إذا رضيِت .. ولگ آلحمد بعد آلرضآ