jafar089

مشكوور جزيلاً وإذا أردت وضع هذا الكود في ( زر أمر ) فكيف يكون ذلك ؟

في المثال المرفق كيف يتم إدراج آخر قيمة للمبلغ لآخر سجل من الجدول aa في النموذج ؟ db2.rar

لله درك يا أستاذ mrnooo2000 كل الشكر والامتنان لك ..

قد عملت هذا الكود : Dim i As Integer Dim newdate As Date Dim z As String Dim rst As DAO.Recordset Set rst = CurrentDb.OpenRecordset("tbl1", dbOpenDynaset) If Me.Total Mod Me.Qest > 0 Then z = Int(Me.Total / Me.Qest) Else z = Int(Me.Total / Me.Qest) - 1 End If …

لاحظت أنه بعد ادخال تاريخ متشابه في خانة From تظهر رسالة بالتكرار ولكن بالضغط على موافق ينتقل المؤشر إلى خانة To ويتم حفظ البيانات المكررة . أرى أنه يضاف إلى ذلك الآتي : أن يتم عمل مفتاح أساسي في الجدول على الحقلين FileNo و From Atten.rar

عزيزي : أنا جربته وهو يعمل جيدا . ممكن يكون هناك عطب في قاعدة البيانات . عموماً قم بتجربته على قاعدة بيانات أخرى بعد أن تعمل لها كلمة مرور ..

أخي الكريم يمكنك الاستفادة من البرنامج المرفق اكتشاف رقم السري.rar

في البرنامج المرفق المطلوب توزيع أقساط القرض على المدة المحددة فعند الضغط على زر ( توزيع ) يتم عرض البيانات السابقة في الجدول المقابل على اليسار كأقساط من أول تاريخ بداية القسط وحتى عدد الأقساط وإذا تم تغيير قسط المبلغ أو قسط الربح فيتغير التوزيع تبعاً لذلك حي…

يوجد رقم سري على الملف المضغوط !!

أخي ابوعبدالله25 يمكنك إرفاق قاعدة البيانات حتى يتمكن الأساتذة من مساعدتك

أحسنت أيها الأستاذ وجزاك الله خير الجزاء ..

ما أقصده أستاذي الكريم في الملاحظة الثانية أن هناك أعمدة غير موجودة بالقائمة ولا أريد إظهارها في القائمة ( لأنها كثيرة ولا تتسع لها القائمة ) بل أريد إظهارها في مربع النص الغير منتضم بعد النقر على القائمة ، انظر المرفق . ولكل كل الشكر .. db2.rar

أحسنت أستاذي .. الله يعطيك العافية ولكن لماذا يظهر تنسيق التاريخ بشكل معكوس من اليسار ؟! ثانياً إذا كانت هناك أعمدة غير ظاهرة في أعمدة القائمة وأريد أن تظهر في مربع نص بعد الضغط على القائمة فكيف السبيل إلى ذلك ؟

في المثال المرفق : المطلوب إظهار البيانات في مربع النص غير المنتضم ( No , المبلغ ، التاريخ ) على أساس اختيار العملية من القائمة التي بالأسفل . db2.rar

أحسنت .. أحسنت بوركت..

أستاذي العزيز يعطيك العافية المشكلة في خانة اسم البنك والكود الخاص به حيث تظهر رسالة كما في الصورة :

يظهر الخطأ في هذا السطر حيث من الملاحظ أن أي حقل غير رقمي لا يظهر كما هو في الجدول : CurrentDb.Execute "UPDATE a2 SET a2.Paid = " & Me.a2 & ", a2.chn = " & Me.a3 & ", a2.bank = " & Me.a4 & ", a2.dpaid = " & Me.a1 & " WHERE (((a2.Ns)=" & DLookup("ns", "a2", "pa…

تفضل هذا هو المثال sa22.rar

مشكووور وجزيت خيراً .. ولكن تظهر رسالة خطأ بالنسبة للبنك في كود الحفظ وهناك ملاحظة أخرى وهي أن التاريخ في جدول a2 يختلف عن التاريخ الذي بالنموذج حيث يخزن القيمة في الجدول بالميلادي ويرجعها إلى سنة 1900 !

لم أقصد الإضافة في النموذج الفرعي وإنما في جدول التسديدات ، مرفق مثال وأرجو التعديل عليه لحفظ البيانات المتغيرة ( التاريخ و المبلغ المدفوع و رقم الشيك والبنك ) في جدول التسديدات a2 sa2.rar