mamhood

مشكور لك جدا وارجو ان يكون في ميزان حسناتك

تحية طيبة ارفق لكم برنامج اريد ان استعلم عن السنة 2006 ولكن يظهر في النتائج اشهر سنة 2007 واريد ان اعالج هذه المشكلة بحيث عند اختيار الفترة الزمنية تظهر الفترة التي اختارها فقط مثال اريد سنة 2006 اكتب شهر 1/2006 الى 12/2006 يظهر في النتائج نفس الاشهر +سنة 2007 ارجو مساعدتي وشكرا 12333.rar

مشكور لك اخي لقد قمت في توقيف البرنامج فقد عملة المعالجات

مشكور لك اخي اريد لن اعمل كود في زر امر ان يفتح ركورد سجل جديد وشكرا

لقد قمت بعمل كود لبرنامج بمساعدة اخي ولكن اخي مشغول ارجو منكم المساعدة في هذا الكود وضيفة هذا الكود هي على كبسة تقوم في زيادة عداد المضخة وطرح كمية البير في النموزج واريد عند عمل الكبسة ان يعطيني ركورد جديد بعد عمل السجل او طريقة اعلم ان هذا السجل قد تم الحدث عليه ام لا Private Sub Command18_Click() Dim x As Double Dim y As Double Dim z As Double Dim a As Double Dim b As Double Dim db As Database Dim rs As Recordset a = nb.Value Set db = OpenDatabase("c:\amman.mdb") Set rs = db.OpenRecordset("select ad from m where nb1=" & a) n = rs.RecordCount rs.MoveFirst For i = 1 To n x = rs.Fields("ad") y = q.Value z = x + y rs.MoveNext Next i MsgBox z db.Execute ("update m set ad=" & z & " where nb1=" & a) Dim dbb As Database Dim rss As Recordset Dim x1 As Double Dim n1 As Double Dim a1 As Double Dim y1 As Double a = nb.Value Set dbb = OpenDatabase("c:\amman.mdb") Set rss = dbb.OpenRecordset("select q3,nb3 from b1,m,s where nb3=nb4 and nb1=" & a) n1 = rss.RecordCount rss.MoveFirst For i = 1 To n1 x1 = rss.Fields("q3") x2 = rss.Fields("nb3") rss.MoveNext Next i y1 = x1 - q MsgBox y1 dbb.Execute ("update b1 set q3=" & y1 & " where nb3=" & x2) new Recordset End Sub وشكر لكم

مشكور جدا لك اخي rudwwan هذه الجداول كل جدول لعملية معينة جدول f الوقود المستخدم في التدفئة وجدول k في الكبونات t في تنك التوزيع ولذالك كل هذه الجداول والشركات في كل الجداول ماخوذه من جدول الشركات والوقود من جدول الوقود وقد قمت في ربط جدولين في نفس المشروع عندي وقد نجح ولكن في هذه الجداول لم لينجح مع العلم البرنامج والجداول الاخرى مرتبطة مع جدول الشركات والوقود وشكرا لك

ارفق لكم هذا البرنامج انني احاول عمل استعلام لشركات والوقود والكمية من الجداول f t k ويعطيني االبينات فارغة وعندما اعمل كل جدول استعلام لوحده يعمل ولكن لجميع الجداول لايعمل استعلام ( الشركات Query) وارجو منكم المساعدة ____.rar