ابوخليل

تفضل غير المعادلة بهذه =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- اذا كانت العائلة ليس بالكثيرة يمكنك رسم شجرة على الفورم ووضع مربعات نصوص مخفية وتلصق فوقها رسوم تمثل الاوراق

وعليكم السلام في الوحدة النمطية / السطر الخامس قبل الأخير appword.Visible = True استبدله بهذا : appword.Visible = False

تفضل هذا هو الخط الصقه في نظامك ضمن الخطوط EAN-13.rar

وعليكم السلام وانت بخير نعم يمكن جعل معيار الاستعلام يستند الى قائمة منسدلة في النموذج

كل عام وانتم بخير اعاننا الله وإياكم على صيامه وقيامه

كل عام وانتم بخير اعاننا الله وإياكم على صيامه وقيامه

انا عطيتك في المثال السابق ولخاطرك تفضل تم التعديل وتشغيل الكود على مثالك maysoon2.rar

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

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

اهلا اخوي السالم مرحبا في منتدى اكسس ما اللغات التي تجيدها ؟

ولماذا تنسخ الكائنات داخل القاعدة ؟؟ هذه العملية لم يسبقك احد اليها !! النسخ يتم على القاعدة كاملة ، ثم توضع في مجلد خاص او توضع بجانب القاعدة الأصل باسم مختلف الى حين الحاجة اليها