ابوخليل

ستطيع تحقيق ذلك بجعل الاستعلام مصدر بيانات التقرير تجعله استعلام مجاميع انظر مثالك المرفق عملت لك استعلاما باسم 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

السلام عليكم كل سنة وانت طيب استاذ عبدالرحمن اعتذر لتأخري في الرد والسبب اني انسيت الموضوع ، ولو ذكرتني على الخاص لكان احب الي واعتذر ايضا اني لم انتبه الى المثال المرفق في حينه واليوم هكذا دخلت بالصدفة واطلعت على المثال بالنسبة للرموز فيوجد طريقة ذكية للاستبدال وتستطيع تجربتها على نسخة من العمل للأمان حتى تتقن العملية ثم تطبقها على المشروع الأصلي وهي : اولا ادرج رمز (صلى الله عليه وسلم ) في اي مكان من الصفحة 1-حدد الرمز ( علامة الاستفهام) ثم انسخه ثم تفتح البحث والاستبدال وفي خانة البحث تلصق مافي الذاكرة 2- ارجع الى الصفحة وانسخ رمز (صلى الله عليه وسلم ) 3- ضع المؤشر في خانة استبدال بـ 4- انقر على زر : أكثر ثم انقر على زر : خاص 5- اختر القيمة : محتويات الحافظة الآن قم باجراء عملية الاستبدال ( يمكنك استبدال الكل بضغطة واحدة ) اما بالنسبة للآيات : فالخط هو خط البسملة والخطوط التابعة له من Qcf_p001.TTF الى Qcf_p604.TTF والملاحظ انها لا تقرأ الكتابة آليا جرب وحدد (ظلل) احدى الآيات المختلة ثم طبق عليه احد خطوط القران المذكورة اعلاه ستجد انها تظهر والسؤال لماذا لا تظهر آليا واعتقد اما ان السبب عدم تعرف الخط على النص اي لا يوجد رابط بينها حيث يتم تطبيق اي خط عليها او اني لم اثبت كامل الخطوط .. لا حظ ان الخطوط بعدد صفحات القرآن ، وهذا يعني ان اللآيات مكتوبة مسبقا والعمليه هي ادراج هذه الآيات من ملفات الخطوط كتبت لك تجربتي على عجالة وان شاء الله سأبحث عن حل افضل ولعلك تسبقني اليه

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