Eng.Qassim

بالاساس عند الضغط على زر حفظ يتم تحديث النموذج على العموم حرب الكود التالي وحاول ان تضيف او تغير حسب احتياجك 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

استاذي العزيز @eng aoff لو ترفق قاعدة مبسطة ققد اكون مافهمت سؤالك لان من الطبيعي قيمة المتبقي = قيمة الفاتورة - المبلغ الواصل

عذرا استاذ احمد ..لم انتبه لسؤالك فانت تعلم ان شهر رمضان له حق علينا ولقلة تواجدي وقد اكفانا استاذنا الغالي @د.كاف يارجزاه الله خير الجزاء

وعليكم السلام.. عذرا سؤالك غير واضح..وهل الرقم بين القوسين يقصد به (مدين) اي الرقم بالسالب؟

من خلال زرار open الموجود في النموذج Task List يقوم بفتح النموذج Task Detail ومن زرار Report سيفتح لك التقرير بالتاسك الذي اخترته ولم اقم بالتغيير في الكومبوبوكس ارجو ان يكون هذا مطلبك Database2Q.rar

استخدم هذا الكود في حدث الحالي Private Sub Form_Current() If Not IsNull(Me.EmployeeID) Then Me.EmployeeID.Locked = True Me.EmployeeID.Enabled = False Me.EmployeeID.BackColor = vbYellow Me.EmployeeID.ForeColor = vbRed Else Me.EmployeeID.Locked = False Me.EmployeeID.Enabled = True Me.EmployeeID.BackColor = vbWhite End If End Sub

تفضل اخي @nabilalibibo Database27.accdb

القيمة الافتراضية ="0.00" بصراحة لم افهم هذه الجزئية

وعليكم السلام..جرب هذا الكود Private Sub cmdBotton_Click() Dim HighestNumber As Long If (Me.نوع_الفاتورة) = "بيع" Then HighestNumber = Nz(DMax("[رقم الفاتورة]", "رأس الفاتورة")) + 1 Me.رقم_الفاتورة = HighestNumber End If End Sub

وعليكم السلام اجعل Field Size للحقل = Double