منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم
وضعت هذا لكود للحفظ ولكنه لايعمل ماهو الخطأ ؟؟؟؟

كود :

If rs.State = adStateOpen Then rs.Close

rs.Open "select * from [pharstore] where [docode]='" & Val(Text8) & "'  "  '"

 rs.Update

If rs.EOF = True Then

rs.AddNew

rs!docode = Text8.Text

rs!doname = Text9.Text

rs!docount = Val(Text5.Text) + Val(Text10.Text)

rs!rebeh = Text11.Text

rs.Update

MsgBox ("Êã ÍÝÙ ÇáÓÌá ÈäÌÇÍ"), 64, ("Program")

End If

rs.update
اللي في اول الكود شيلها وجرب

اخي ابو عمر جربت ذلك ولم يعمل جزاك الله خير

اخي الكريم شيء طبيعي ان لا يقوم بالكتابة انظر الى اول سطر في الكود
If rs.State = adStateOpen Then rs.Close
انت تقوم باغلاق الاتصال بقاعدة البيانات في اول جملة ولا تعيد الاتصال لكي تتم عملية الكتابة مما يؤدي بالتاكيد الى ظهور خطا اثناء التنفيذ
وايضا السبب الاخر الذي ذكره اخي ابو عمر وهو وجود rs.Update في بداية الكود
لذلد ارفق المثال كامل لكي يتم التعديل عليه
يعطيك العافية

اخي ابو ليث مشكور على على هذه الملاحظة وهذا هو المرفق

الحفظ يتم عادي بس ان تستعرض جدول اخر
ركز ورتب مشروعك
هذا كود الحفظ
ولا تنسى تحط للجداول فهارس

PHP كود :

If rs.State Then rs.Close
rs.Open "select * from [pharstore] where [docode] like '" & Val(Text8) & "'", DB, 1, 3

If rs.RecordCount = 0 Then _
rs.AddNew

rs!docode = Text8.Text
rs!doname = Text9.Text
rs!docount = Val(Text5.Text) + Val(Text10.Text)
 
rs!rebeh = Text11.Text
 

rs.Update 

اخي ابو عمر جزاك الله خير هذا هو المطلوب وأنا أعرف انه لآبد من جدول آخر لأستعراض البيانات وهذا ماسوف اعمله ولكن مايهمني هو تصحيح الكود

اشكرك والشكر موصول لأخي ابو ليث على ما تقدمونه من خدمات ومساعدات

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

فاضل الحمود

أبو عمر

فاضل الحمود

abulayth

فاضل الحمود

أبو عمر

فاضل الحمود