تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ما المشكلة في كود الحفظ
#1
رجاء من الاساتذه الاعزاء ايجاد لي حل لهذه المشكلة والتي هي انني لما اعمل حفظ في مشروعي يطلع لي رسالة ولما اغلق البرنامج واشغله من جديد لاقي اللي حفظته موجود رجا رجاء رجاء ساعدوني ولكم جزيل الشكر والتقدير


الملفات المرفقة
.rar   STORES.rar (الحجم : 83.58 ك ب / التحميلات : 74)
الرد }}}
تم الشكر بواسطة:
#2
احى وضح بالضبط الخطأ فى اى فورم ؟؟
وضح مشكلتك لانى لم افهم !!
سبحان الله وبحمده سبحان الله العظيم
آللهم لگ آلحمد حتى ترضى .. ولگ آلحمد إذا رضيِت .. ولگ آلحمد بعد آلرضآ
الرد }}}
تم الشكر بواسطة:
#3
تم حل المشكله
الرد }}}
تم الشكر بواسطة:
#4
رضو كتب :تم حل المشكله

[b]نرجو من الأخوة الأعضاء الكرام عندما تجد حل لمشكلتك أو سؤالك أن لا تحرم أخوانك من المعلومة لتعم الفائدة وتكون لك ثواب معلم العلم.[/b]
الرد }}}
تم الشكر بواسطة:
#5
ولاتزعل نفسك اخى عبد الله Smile
هذا هو الكود
كود :
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
سبحان الله وبحمده سبحان الله العظيم
آللهم لگ آلحمد حتى ترضى .. ولگ آلحمد إذا رضيِت .. ولگ آلحمد بعد آلرضآ
الرد }}}
تم الشكر بواسطة:
#6
الحل هو اني عملت rsin.close عند نهاية كل صب للفورم التي فيها
الرد }}}
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم