ابوخليل

شكرا للاستاذ صالح وشكرا للاستاذ كرار سبب تعديل الاستاذ العزيز كرار ان الكود يقوم بتعديل 11 سجل ثم يقف ، فهو قام بجلب عدد السجلات الفعلية الموجودة في الجدول1 ، ولكن يلاحظ ان الترقيم يتم بواسطة حقل داخل النموذج فيجب ان يكون الجدول1 هو مصدر بيانات النموذج هذا تعديل بسيط للمرور على جميع السجلات داخل النموذج DoCmd.GoToRecord , , acFirst Dim i As Integer For i = 1 To Me.Recordset.RecordCount On Error Resume Next Dim x, y As Integer x = 1 If IsNull(x) Then y = i Else y = y + 1 End If Me![num] = Format(y, "0000") On Error Resume Next DoCmd.GoToRecord , , acNext Next i

تفضل تم التحويل db1.rar

ستطيع تحقيق ذلك بجعل الاستعلام مصدر بيانات التقرير تجعله استعلام مجاميع انظر مثالك المرفق عملت لك استعلاما باسم b2_2 هذا الاستعلام يدمج المكررات لاحظ ان المكررات متشابهة في الحقول الثلاثة والا لن يتم الدمج الآن بالدلة Dcount يمكن اسخراج وجلب العدد بمثل هذه الصيغة: داخل محرر الفيجوال text1= Dcount("id","b2_2","id=" & me.id) او داخل عنصر تحكم الحقل هكذا : =Dcount("id";"b2_2";"id=" & me.id)

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

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

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

تفضل طريقة لاخفاء حقول التقرير test2.rar

تريد ان تتعلم ، وتعملها انت ، ونحن نساعدك ؟ ام تريد عملا جاهزا ؟

السلام عليكم اخواني واحبتي الكرام يوجد طريقة يسيرة ومتقنة نستغني فيها عن التصدير والاستيراد لمن عمله موزع بين اكسل واكسس لايستغني عن احدهما وهي الارتباط بمصنف اكسل كجدول نضع المصنف بجانب قاعدة البيانات يمكن العمل من مصنف اكسل ويمكن العمل ايضا من اكسس المرفق يبين الفكرة فك الضغط عن المرفق على قرص D نريد آراءكم بعد التجربة db.rar

=format([feldate];"dddd") باعتبار feldate هو حقل التاريخ

جزيت خيرا وشكرا على الشرح الجميل وتم تغيير العنوان بما يناسب الموضوع

يوجد نموذج مفتوح مرتبط بالجدول الذي تريد تحديث سجلاته تأكد من ان النموذج الذي تعمل منه غير مرتبط بالجدول

تفضل غير المعادلة بهذه =Sum([Minutesum])/Sum([Minutesum2])

وعليكم السلام بالضبط كما تفضلت تكون جملة التحديث هي p_buy * kmyahB ولكن لا حظ وجود حقل مشابه فتكون الجملة الصحيحة هكذا : tbl_Asnaf.p_buy * kmyahB

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

تفضل صنعت لك ساعة بسيطة باسطر قليلة ومفهومة Private Sub Form_Timer() Label3.Caption = Label3.Caption - 1 If Label3.Caption = 0 Then Label2.Caption = Label2.Caption - 1 Label3.Caption = 60 ElseIf Label2.Caption = 0 Then Label1.Caption = Label1.Caption - 1 Label2.Caption = 60 ElseIf Label1.Caption = 0 Then Me.TimerInterval = 0 End If End Sub بالنسبة للاحداث يمكنك وضعها ذاخل كود المؤقت لاحظ الشرط الاخير وهو حين يصل حقل الدقائق الى صفر يقف المؤقت ElseIf Label1.Caption = 0 Then Me.TimerInterval = 0 يمكنك وضع شروط اخرى مثلا : حين يصل حقل الدقائق الى رقم معين يحدث صوت معين عداد تنازلي.rar

تفضل الدالة Midتحقق المطلوب Mid([feldName];3) افتح الاستعلام الموجود داخل المثال لترى النتيجة db1.rar

تفضل مع تعديل طفيف على الكود Dim Untxt Untxt = Nz(DLookup("id", "Qry1"), 0) If Untxt = 0 Then DoCmd.OpenReport "Rep1", acPreview Else MsgBox "يوجد بيانات يجب تصحيحها" Exit Sub End If db1.rar

تفضلentdab7.rarentdab7.rar

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

Dim Untxt As Boolean Untxt = DLookup("txt1", "Qry1") If Untxt = False Then DoCmd.OpenReport "ReportName", acPreview else Exit sub End if باعتبار txt1 حقل الاسم في الاستعلام و Qry1 هو اسم الاستعلام و ReportName هو اسم التقرير ضع هذا الكود في حدث زر فتح التقرير

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

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

تفضل مثال لشجرة العائلة باستخدام المتصفح شجرة العائلة متصفح.rar

تفضل تم التعديل entdab2.rar