Eng.Qassim

جرب الجملة التالية ..فقط قم بتغيير 'b' بالعبارة لديك لانها غير مفهومة Forms!MainScreen!lstLastTrans.RowSource = "SELECT TransactionsT.TransID, TransactionsT.idEmp, TransactionsT.TransSubject, TransactionsT.TransCreatedOn, TransactionsT.TransToDept, TransactionsT.TransStatus, TransactionsT.TransType, TransactionsT.TransTitle, DateDiff(""d"",[TransactionsT]![TransCreatedOn],Now()) AS TransCreatedOn1 " & vbCrLf & _ "FROM TransactionsT " & vbCrLf & _ "WHERE (((TransactionsT.TransSubject) Is Not Null) AND ((TransactionsT.TransStatus) Not Like 'b') AND ((TransactionsT.TransType) Is Not Null) AND ((TransactionsT.TransTitle) Is Not Null)) " & vbCrLf & _ "ORDER BY DateDiff(""d"",[TransactionsT]![TransCreatedOn],Now()) DESC;"

نسأل الله سبحانه وتعالى ان يديم عليك نعمة الايمان والعلم

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

فاتورة الارجاع تشبه فاتورة المشتريات .. بمعنى انك ستظيف مواد للمخزن ودفع مبالغها من الرصيد لديك

المستخدم لايحتاج ان يكون الباسوورد له على شكل نجوم ونموذج اكسس الخاص بالادخال لا اعتقد بامكانية التحكم به ..الا اذا عملت نموذج خاص بك

اليك اخفاء شريط الادوات ورسالة التاكيد للحذف DeleteWithPassword.accdb

اجماليات المبالغ يتم تحديثها بمجرد الانتقال لسجل جديد داخل النموذج الفرعي او عند الضغط على زر حفظ او يمكن التحديث بعد اختيار نوع العملة Private Sub نوع_العملة_Click() Forms![Invoice]![D22].Requery Forms![Invoice]![D11].Requery End Sub

استخدم كود استاذ ازهر علما ان كل الاكواد ليس يها مشكلة

ضع الكود في زر الحفظ DoCmd.GoToRecord , , acNewRec

بالاساس عند الضغط على زر حفظ يتم تحديث النموذج على العموم حرب الكود التالي وحاول ان تضيف او تغير حسب احتياجك Private Sub نوع_الدفع_Click() If Me.نوع_الدفع = "نقدي" Then Me.التسديد_بالدولار = Me.D22 Me.التسديد_بالدينار = Me.D11 Me.الباقي_بالدولار.Visible = False Me.الباقي_بالدينار.Visible = False Me.التسديد_بالدولار.BackColor = vbWhite Me.التسديد_بالدينار.BackColor = vbWhite ElseIf Me.نوع_الدفع= "آجل" Then Me.الباقي_بالدولار.Visible = True Me.الباقي_بالدينار.Visible = True Me.التسديد_بالدولار.Value = 0 Me.التسديد_بالدينار.Value = 0 ElseIf Me.نوع_الدفع= "اقساط" Then Me.الباقي_بالدولار.Visible = True Me.الباقي_بالدينار.Visible = True Me.التسديد_بالدولار.BackColor = vbYellow Me.التسديد_بالدينار.BackColor = vbYellow End If End Sub

بالنسبة للمطلب الاول ...اما ان تجعل حقل نوع الدفع فارغا ويتم اختيار حالة الدفع بعد اكمال الفاتورة تحتاج لتفريغ الحقل بواسطة الكود Private Sub Form_Load() Me.نوع_الدفع = "" End Sub ثم تضع الكود التالي بعد حدث النقر لنوع الدفع Private Sub نوع_الدفع_Click() If Me.نوع_الدفع = "نقدي" Then Me.التسديد_بالدولار = Me.D22 Me.التسديد_بالدينار= Me.D11 Me.الباقي_بالدولار.Visible = False Me.الباقي_بالينار.Visible = False End If End Sub او يمكنك وضع هذا الكود فقط في زر الحفظ

حينما اخترت عميل جديد1 ظهر لي ناتج تقرير البي دي اف كما في الصورة اعتقد ان هناك نقص او خطا في عملي سببه عدم درايتي الكافية في عمل البرنامج اتذكر بأن استاذنا @د.كاف يار كان متابعا لبرنامجك ..عسى ان يفيدنا بهذا الخصوص

ان كان هذا ماتقصده لاحظ المرقق... T1.rar

وهذا ما فعلته

😂 ("قاهر الأكسس")Cstr= ابو جودي

وعليكم السلام .. بعد اذن اخي ابو جودي بعد حدث بعد تحديث الحقل الحساب الكلي ضع الكود التالي Me.SumACC = Me.TotalACC اعتقد انك وضعته بالعكس

السلام عليكم اخي ابو الحسن .. لم اطلع كثيرا على المثال..لكن جرب المرفق رغم اعتقادي انك بحاجة لنموذج اخر لمثل تلك التصفية لانها لاتحتوي على رقم القيد والتاريخ T1.rar

شكرا لدعائك اخي نبيل وانا بالخدمة مما قدرني الله عليه

عاشت ايدك بشمهندس محمد لكن الملاحظ ان الجدول يتاخر في الفتح بحدود 15 ثانية بينما الاستعلام لا يتاخر اكثر من ثانية هل لان الموديول يعتمد في سرعة تنفيذه على سرعة الحاسوب ؟

رمضان مبارك اخي @ابو جودي بصراحة عجبني الكود كثيرا وهو يقفز على جميع السجلات .. لكن لا اتخيل مدى فعاليته عندما يكون لدينا ملايين السجلات ؟

لو ترفع الملف مع النموذج form1 لان بصراحة مش عارف اشتغل على ملفك السابق

جرب الكود =nz(DSum("[Balance]";"[t_Query]";"[تاريخ الحركة]<" & [forms]![date01]![a]);0)

في الكنترول سورس للمربع الغير منظم ضع الكود التالي DCount("[id]";"Table1";"[id]=" & [id]) id يمثل باركود الصنف

اعكس الاشارات كما في مثالي السابق

لاحظ النموذج tbl_BB Database27.accdb