د.كاف يار

استخدم IF في حدث عند الفتح

ابو ياسين اسعد الله مسائك بكل خير استفسار انت اقتبست الكود و طلع ملون بس عندي طلع كل الكود باللون الأسود كيف اجعله ملون مثل طريقتك من الناحية الجمالية افضل بالعكس اخي الكريم الرد حق للجميع و بالأخص لصاحب الموضوع فالطرق تختلف و قد تكون طرقتي صعبة و لكن قد يأتي عضو اخر و يقدم الموضوع بصورة اسهل و هنا تعم الفائدة و السهل بالنسبة الي قد يكون صعب لغيري و من هذا المنطلق المشاركة في الردود امر ممتاز في هذا المنتدى

العفو و تحت امرك و امر الجميع و الأمر كله لله وحده

تفضل اخي الكريم Abs(Nz(DSum("[sup_depit]";"[ديون الموردين]";"[Cus_id]=[Forms]![صرف نقدي]![txtcom]"))) program44 معدل.accdb

تفضل هذا التعديل تم اضافة المبالغ التي تم قبضها من المساهم المحدد program44.accdb

تفضل التعديل اخي الكريم program44.accdb

اخي الكريم استخدم دوال التجميع افضل

اخي الكريم من وجهة نظري بأنه يوجد خلل في التصميم بشكل عام لكي تنفذ الفكرة بالشكل الصحيح فأنت بحاجة الى التالي - جدول مالي ( لتسجيل القيود المالية ( تسديد / اضافة ) + نوع القيد ( اضافة دفعة / اضافة رسوم / .... الخ ) ) مرفق التعديل New Microsoft Access قاعدة بيانات.rar

اخي الكريم حتى نستطيع ان نتنبأ المشكلات التي من المتوقع ان تواجهك يلزمنا انوجه لك عدة اسألة - هل النماذج مضمه ؟؟ ان كان الجواب نعم فهذه مشكلة - الاضافة و الحذف و التعديل ماهي الطريقة التي اتبعتها ؟؟؟ - في رأي لو قمت بعمل النماذج على بيئة عمل VB.NET لكان افضل حيث ان عدد المستخدمين يعتبر كبير

تفضل التعديل اخي الكريم برنامج الأبحاث PICO.accdb

السلام عليكم و رحمة الله و بركاته اخي الكريم حسب فهمي لطلبك أنك تريد ان يظهر النموذج خالي من البيانات عند فتح النموذج اذا كان فعلا وصفي متوافق مع طلبك اتبع الآتي في حدث عن الفتح فقط ضع التالي On Error Resume Next Me.Form.DataEntry = True Me.Form.FilterOn = False Me.Form.Requery Me.FilterOn = False Me.Requery و في ازرار البحث ضع التالي مع اضافة الحقول التي ترغب بها و فقط المعطيات On Error Resume Next dim 1 ,x2 x1= "اسم الحقل في الجدول" x2= "اسم الحقل في النموذج" Dim varFilter As Variant varFilter = Null If Not IsNull([x2]) Then varFilter = (varFilter + " AND ") & "[x1] LIKE '*" & [x2] & "*'" End If With Me.Form If Not IsNull(varFilter) Then .DataEntry = False .Filter = varFilter .FilterOn = True Else .FilterOn = False End If .Requery End With و اي استفسار انا في خدمتك و خدمة جمييع الاعضاء الكرام

اخي الكريم تفضل هذا التعديل في اعتقادي أنه اقرب الى طلبك 2.accdb

اخي الكريم تفضل هذا التعديل المقترح Database8.accdb

ارجوا ان تتقبل مداخلتي اخي الكريم تفضل الملف بعد التعديل ** سيتم عرض تقرير السجل الحالي ** في حال الاختيار من القائمة سيتم عرض المختار من القائمة Database11.rar

تفضل اخي الكريم Dim Addfile As Object Set Addfile = Application.FileDialog(3) With Addfile .AllowMultiSelect = False .InitialFileName = "" .Filters.Clear .Filters.Add "All Files", "*.*" If .Show = True Then xFile = Trim(.SelectedItems(1)) [اسم مربع النص للاحتفاظ بمسار الملف]=xFile Else Exit Sub End If End With

اخي الكريم قاعدة البيانات المرفقة بما انها تحتوي على رموز لأسماء الأعمدة ستجد صعوبة في التعامل معها انت تريد التنسيق المستحسن لقاعدة البيانات انشئ جدول باسم الأطراف ( رقم الطرف - .............. بيانات الاطراف) انشئ جدول اسم القضايا ( رقم القضية / القيد - رقم الطرف الأول - رقم الطرف الثاني - ..... باقي البيانات) ** يفضل و بشدة ان تكون المسميات باللغة الانجليزية تهجئة عربية و حروف انجليزية ** رقم الطرف مفتاح اساسي ** عمل علاقة طرفية بين الجدولين تفضل هذا المقترح Database1.accdb

اخي الكريم ارفق المثال او تفضل اسهل الخطوات لتجاوز الرسالة في حدث عند الفتح DoCmd.SetWarnings False و في حدث عند الاغلاق DoCmd.SetWarnings True

تفضل الكود بعد التعديل اخي الكريم Expr1: Nz(DSum("[Column_Name]";"Table_Name";"[Where]>= '" & [Column_Name] & "' ");0) فقط انسخ و الصق Expr1: Nz(DSum("[الرصيد الافتتاحي]";"اطراف الفاتورة";"[باركود]>= '" & [باركود] & "' ");0) تفضل الملف بعد التعديل *** ملاحظة اخي الكريم اللغة العربية سوف تسبب لك مشكلة كبيرة في تركيب الأكواد من ناحية الاستدعاء و مناحية اخرى قد تواجه اجهزة لديها مشكلات في اللغة العربية مما يجعلك تنصدم بعدم عمل البرنامج بالصورة المرضية اكتب مسميات عربية بحروف انجليزية هذا افضل حل test_quit.accdb

اخي الكريم فقط قم باضافة docmd.quit تفضل التعديل test_quit.accdb

تفضل التعديل اخي الكريم test_quit.accdb

اخي الكريم لتصدير التقرير الى PDF يلزمك في حال انك تستخدم اوفيس 2007 او اقل تثبت اداة PDF تفضل الأداة في المرفقات بعد التثبيت تستطيع استخدام الأكود اعلاه SaveAsPDFandXPS.rar

اخي الكريم انشئ قائمة تحرير و سرد و ضع اسماء الجداول بداخلها في حدث عند التغيير ضع الآتي [اسم النموذج الفرعي].SourceObject = "Table" & "." & [اسم مربع التحرير و السرد]

اخي الكريم في حدث عند الخروج فقط ضع التالي SendKeys "{ESC}" اذا رغبت في رسالة تأكيد فقط ضع التالي If MsgBox("هل تود حفظ التغييرات", vbYesNo) = vbNo Then Cancel = True SendKeys "{ESC}" Exit Sub End If

جرب هذا الكود اخي الكريم worker.rar

ex:IIf([JOB]="مشرف أمن";"1";IIf([JOB]="حارس أمن";"2";IIf([JOB]="مدير أمن";"3"))) الكود Expr1: IIf([Movement]="بيع"or"مرتجع بيع"or"أخرى";DLookUp("[CustomerName]";"CustomersT";"[CustomerID]= " & [Expr4] & " ")) الخطأ هنا >>> يجب ان تذكر مصدر المعيار " &[ Expr4 ]& " IIf([JOB]="مشرف أمن";"1";IIf([JOB]="حارس أمن";"2";IIf([JOB]="مدير أمن";"3"))) مثال