الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

الكود في الفورم يعمل وفي الموديل لايعمل

بدأه ahmaadd في 3 يوليو 2011 · 4 رد · 1,016 مشاهدة · في قسم قواعد البيانات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

اخواني الاعزاء هل طريقة كتابة الكود في الموديل مختلفه عن طريقة كتابتها في الفورم

قمت بعمل جملة استعلام عن بيانات في جدول ووضعت الكود في الكوماند في الفورم ولما حاولت نقل الكود الي موديل لايعمل وتظهر لي رساله خطاء

   Private Sub totalkrot()
If db.State = 1 Then db.Close
If rs.State = 1 Then rs.Close
POOLCONNECTION
If rs.State = 1 Then rs.Close
 rs.Open "select * from tkrot where date = #" & Trim(DTPicker1.Value) & "# and man = '" & Trim(Combo1.Text) & "'", db, adOpenKeyset, adLockPessimistic
If rs.EOF Then Exit Sub
If rs.State = 1 Then rs.Close
zz = rs.Open("select sum (price) from tkrot where date = #" & Trim(DTPicker1.Value) & "#and man = '" & Trim(Combo1.Text) & "'", db, adOpenKeyset, adLockPessimistic)
kroot = rs(0)
End Sub

مع العلم اني وضعت الكود في زر كوماند في الفورم ويعمل بطريقة جيده

#2

حاول بدون كلمة Private في الموديول

محتار!!! مش عارف شوتعمل؟؟! عندك مشاكل ونفسك تنحل؟؟!

عليك بالاقتراب من خالقك

عليك بصلاة الاستخارة

وعليك بالصدقة

داوو مرضاكم بالصدقة

ما نقص مال من صدقة

تصدقو ولو بشق تمرة

#3 
Public Sub totalkrot() 
If db.State = 1 Then db.Close 
If rs.State = 1 Then rs.Close 
POOLCONNECTION 
If rs.State = 1 Then rs.Close 
 rs.Open "select * from tkrot where date = #" & Trim(form1.DTPicker1.Value) & "# and man = '" & Trim(form1.Combo1.Text) & "'", db, adOpenKeyset, adLockPessimistic 
If rs.EOF Then Exit Sub 
If rs.State = 1 Then rs.Close 
zz = rs.Open("select sum (price) from tkrot where date = #" & Trim(form1.DTPicker1.Value) & "#and man = '" & Trim(form1.Combo1.Text) & "'", db, adOpenKeyset, adLockPessimistic) 
kroot = rs(0) 
End Sub

منحة للخريجين وطلاب الجامعات و المعاهد

دبلومة لتخريج مبرمج متخصص في هندسة صناعة البرمجيات وتصميم وبرمجة تطبيقات الأنترنت

سبحان الله وبحمده سبحان الله العظيم

#4

السلام عليكم

عند وضع الكود في موديول وتقوم باستدعائه من أي فورم فمن أين له أن يعرف مثلاً أن هذه الفورمة بها اداة combo1 أو text2 أو Dtpicker3 ولذلك لابد من كتابة اسم الفورمة التي بها الأدوات المستخدمة في كود الاستعلام المستخدم مثل إن كانت الفرومة المستخدمة هي Form1 يكون الكود كما يلي

Private Sub totalkrot()

If db.State = 1 Then db.Close

If rs.State = 1 Then rs.Close

POOLCONNECTION

If rs.State = 1 Then rs.Close

rs.Open "select * from tkrot where date = #" & Trim(Form1.DTPicker1.Value) & "# and man = '" & Trim(Form1.Combo1.Text) & "'", db, adOpenKeyset, adLockPessimistic

If rs.EOF Then Exit Sub

If rs.State = 1 Then rs.Close

zz = rs.Open("select sum (price) from tkrot where date = #" & Trim(Form1.DTPicker1.Value) & "#and man = '" & Trim(Form1.Combo1.Text) & "'", db, adOpenKeyset, adLockPessimistic)

kroot = rs(0)

End Sub

تم تعديل هذه المشاركة بواسطة Mady-AGC في 9 يوليو 2011 في 00:16

منحة للخريجين وطلاب الجامعات و المعاهد

دبلومة لتخريج مبرمج متخصص في هندسة صناعة البرمجيات وتصميم وبرمجة تطبيقات الأنترنت

سبحان الله وبحمده سبحان الله العظيم

#5

اشكرك اخي الكريم فعلا هذا هو الخطاء لم اكتب اسم الفورم شكرا علي اهتمامك وطرحك الجميل للاجابه

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…