رعد داود

السلام عليكم للرفع

السلام عليكم اخي استاذ يوسف اليك المرفق استعلام qursearch1 المفروض يجلب لي الرصيد ل النقد في الصندوق من خلال طرح حقل المدين _ الدائن ويكون رصيد تراكمي واردت اظهار الرصيد السابق في نموذج استعلام بين فترتين عن حركة النقد في الصندوق من خلال النموذج serch1 الرصيد السابق.rar

احسنتم استاذ سليم ماذا لو أن احد العملاء غير مطلوب ويكون عليه 0 كيف يتم عدم اظهاره بالقائمة ,, في حال استعمال دالة sumifs

للرفع

بسم الله الرحمن الرحيم اخي ابو زاهر ... ولو اني لم اطلع على الملف ..لكن اليك هذا الكود وجلبته من موقع اجنبي ...تجعله في حدث قبل التحميل للنموذج الفرعي ويعطيك خيار الحفظ او التراجع عن كل صف في النموذج On Error GoTo BeforeUpdate_Error If Me.Dirty Then 'if record has been changed the dirty property ' is set to true Display message to save the record If MsgBox("هل ترغب بحفظ هذا السجل والمتابعة? اضغط نعم لإتمام السند,بعد التأكد من ادخال كافة الحقول", _ vbYesNo + vbQuestion, "حفظ السجل") = vbNo Then Me.Undo End If End If BeforeUpdate_Exit: Exit Sub BeforeUpdate_Error: MsgBox Err.Description Resume BeforeUpdate_Exit

بسم الله الرحيم الرحيم السلام عليكم ورحمة الله وبركاته لدي استعلام للرصيد التراكمي بإسم r1 وحقل الرصيد التراكمي اسمه rs اريد عمل تقرير او نموذج لحركة الصندوق خلال فترتين , من (startdate) الى (end date) كيف استطيع جلب اخر رصيد تراكمي لحركة الصندوق قبل تاريخ من (startdate)

شكرا لك أخي ابو زاهر لقد تمت العملية بنجاح وكما ذكرت لك

السلام عليكم شكرا" لكم اخي ابو ز اهر لكن ماذا تقصد في حدث الحالي ... انا استخدم النسخة الانكليزية السلام عليكم احسنت اخي ابا زاهر تم ... حدث الفورم Private Sub Form_Current() Me![no] = Nz(DMax("[no]", "[bills]", "type="سند صرف"), 0) + 1 End Sub

السلام عليكم تسلم أخي اليك المرفق ترقيم.rar

السلام عليكم لدي تكست بوكس الاسم الافتراضي لها "سند صرف" واسمهما types ويتم تخزينها في جدول bills وحقل اسم السند في الجدول type اريد ترقيم تلقائي في الفورم بحقل no استنادا" على اسم سند الصرف عند فتح النموذج .. يبدأ من رقم 1 وهناك نموذج مماثل " سند قبض" عملت دالة dmax في حدث بعد التحديث للتكست بوكس ولم ينجح .............. Private Sub types_AfterUpdate() If ([MeTypes]) = "سند صرف" Then Me![no] = Nz(DMax("[no]", "[bills]", "type='سند صرف'"), 0) + 1 End If End Sub

السلام عليكم الحمد لله توصلت للحل بالتقرير بعد أن عملت استعلام crosstab وعملت التقرير من هذا الإستعلام وكما بالمرفق تبقى عندي مسألة وهي إخفاء الحقول التي قيمتها فارغة بحيث لاتظهر في الاستعلام وبالتالي لاتظهر بالتقرير تقرير بحسب الجهات واسم الحساب.rar

للرفع رجاءاً انا بحاجة لمثل هذا التقرير

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

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته لدي تقرير اسمه جهات .. كيف يمكن لي أن اضع اسم الجهة واسم الحساب ومجموع مدين في وسط التقرير بحيث يشبه ورقة الاكسل أعمدة وصفوف او مثل استعلام كروس تاب واريد نموذج يختار بخسب التاريخ بفترتين , وكذلك بحسب اسم الشهر كانون الثاني , شباط , اذار وهكذا تقرير بحسب الجهات واسم الحساب.rar

السلام عليكم لكن في المثال المرفق يوجد خطأ عندما تقوم بالضغط علي حفظ وجديد يظهر خطأ (3021) لا يوجد سجل حالي أنا حذفت استعلام الرصيد ولهذا لاتظهر تكست tr ... التي تخص الرصيد المتبقي استفاد من الكود واستخدمه لما تريد بالنسبة للحقل mz فهو من نوع نعم / لا في حال تضغط على زر الحفظ سوف تفعل وفي البحث يظهر السجل أما في حال عدم الضغط على زر الحفظ لايفعل الحقل وعليه لايظهر في البحث

اخي العزيز ارفق لك مثال رائع لفتح التقارير والتحكم بالطابعة وكل مايخص الطباعة وهو مثال للسيدة زهرا هذا اولا" ولإغلاق النموذج عند الضغط على زر الطباعة ضيف هذا الكود DoCmd.OpenForm "frm1", , , , , acHidden اجعل اسم نموذجك الي تريد تطبع منه محل frm1 وعند اغلاق التقرير في حدث اغلاق التقرير ضع هذا الكود DoCmd.OpenForm "frm1" ايضا غير اسم الفورم للفورم الذي تريد الرجوع اليه لاتنسانا من الدعاء za-FullControlOfPrintReport2010.rar

قد يفيدك هذا الرابط

بسم الله الرحمن الرحيم هناك طرق كثيرة للتحايل على الغاء الحفظ التلقائي في النماذج وبالخصوص النماذج التي فيها نماذج فرعية هنا ارفق ملف لكم فيه كودين أحدهما في النموذج الرئيسي والذي يحفظ البيانات في جدول bills والأخر في النموذج الفرعي والذي يحفظ البيانات في جدول bills2 Private Sub Form_Unload(Cancel As Integer) Dim Q As Recordset Set Q = CurrentDb.OpenRecordset("SELECT * from Bills;") While Not Q.EOF If Q!MZ = False Then 'Q.Delete End If Q.MoveNext Wend End Sub حيث ان mz هو حقل اضافي في جدول bills من نوع نعم / لا والكود الثاني في الفورم الفرعي Private Sub Form_BeforeUpdate(Cancel As Integer) On Error GoTo BeforeUpdate_Error If Me.Dirty Then 'if record has been changed the dirty property ' is set to true Display message to save the record If MsgBox("åá ÊÑÛÈ ÈÍÝÙ åÐÇ ÇáÓÌá æÇáãÊÇÈÚÉ? ÇÖÛØ äÚã áÅÊãÇã ÇáÓäÏ", _ vbYesNo + vbQuestion, "ÍÝÙ ÇáÓÌá") = vbNo Then Me.Undo End If End If BeforeUpdate_Exit: Exit Sub BeforeUpdate_Error: MsgBox Err.Description Resume BeforeUpdate_Exit End Sub الغاء الحفظ التلقائي.rar

استخدم خاصية البحث بالمنتدي سوف تجد مايغنيك فهناك مواضيع كثيرة عن الرواتب وقواعد البيانات

احسنت اخي ابو ياسين

السلام عليكم أخي ابو ياسين انحلت المشكلة عن طريق الرصيد في حال ان لايكون عندك رصيد اصلا يعني صفر تم اضافة تعديل بسيط لكود الاستعلام r1 في حقل rs الرصيد وهو &0 ... بحيث يظهر 0 في حال عدم وجود رصيد شكرا لكم أخي وتبقى عندنا مشكلة الحفظ التلقائي الذي عالجناه في جدول bills وذلك باضافة حقل mz لكن الحفظ يبقى في جدول bills2 في حال الغاء السند وهذا يؤثر جدا" لأن الجدول فيه عمليات حسابية مدين ودائن

احسنتم اخي تمام الكود شغال

ضع هذا الكود في زر الإضافة Me.الرقم الوظيفي = Nz(DMax("[الرقم_الوظيفي]", "[البيانات]")) والأفضل تغيير اسماء الحقول الى الانكليزية فهذه تسبب لك مشاكل الدالة للإضافة هي دالة dmax

السلام عليكم عندي حقل الرضيد التراكمي في استعلام والكود هو هذا Rs: Format(Nz(DSum("[madeen]-[daaen]";"r1";"[ID_r]<=" & [ID_r]);0);"#,###") كيف تكون القيمة تظهر 0 في حال الرصيد يساوي صفرا"

في اي نموذج واي حقل تريد ترقيم لسند القبض ؟