15-03-13, 01:52 PM
السلام عليكم ورحمة الله وبركاته
كيف حالكم ياشباب بارك الله فيكم
كيف امنع تكرار كود فى قاعدة البيانات ولكن فى حالة التحديث انا استخدم هذا الكود فى حالة الاضافة وهو يعمل جيدا ولكن اريد ان استخدمة فى حالة التحديث ؟
انتظر مساعدتكم وشكرا لكم
وبارك الله فيكم وجزاكم الله كل خير
كيف حالكم ياشباب بارك الله فيكم
كيف امنع تكرار كود فى قاعدة البيانات ولكن فى حالة التحديث انا استخدم هذا الكود فى حالة الاضافة وهو يعمل جيدا ولكن اريد ان استخدمة فى حالة التحديث ؟
كود :
RS.Open "select * from TB1 where Code='" & (TxtCode) & "'", DB, adOpenStatic, adLockReadOnly
If RS.RecordCount > 0 Then
MsgBox "كود مكرر", vbExclamation, "تنبية"
Else
RS.Close
RS.Open "select * from TB1 ", DB, adOpenDynamic, adLockOptimistic
RS.AddNew
RS!Name = Trim(Txtname.Text)
RS!code = Trim(TxtCode.Text)
RS.Update
انتظر مساعدتكم وشكرا لكم
وبارك الله فيكم وجزاكم الله كل خير