jjafferr

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

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

أختي شفت النموذج الذي يظهر فيه الموعد الملغي ، وشفت ان مصدر بيانات النموذج هو استعلام (وان لم يكن استعلام ، فإعملي منه استعلام) ، وكل اللي عليك عمله هو ، في جميع مصادر بيانات النماذج التي لا تريدين ان ترين فيها المواعيد الملغاة ، في الاستعلام اجعلي معيار الحقل Appointment_Cancelled <>-1 طريقة اخرى لكي تجنبك كل هذا الصداع هو ، بدل الحقل Appointment_Cancelled (يجب حذفه وكأننا لم نعمله من البداية) ، نستطيع ان نضع زر على كل سجل "احذف هذا الموعد/السجل" ، والكود سيكون DoCmd.RunCommand acCmdDeleteRecord ولكني لا احبذ هذه الطريقة ، لهذا السبب لم اقترحها من البداية ، ستستفيدين يوم من الايام من سجلات المواعيد الملغاة ، ومن هم جعفر

هذا لأن الاخ اكرم حذف المرفق ، ونسى ان يحذف ارتباطه جعفر

في الواقع ما كنت اريد اكبّر البرنامج ، ولا اعطيه وقت اكثر وإلا فيمكن عن طريق الكود معرفة حجم الورقه ، وفيما اذا كانت افقية او عمودية ، وفيتم الحساب تلقائيا ، ولا ادخال اسماء الحقول لإعطائها ارتفاعها الجديد ، ولا حجم الخط ، انما يمكن الكود يأخذ كل ذلك في الاعتبار يعني لبكرة الصبح ما كنا نخلص جعفر

بالطريقة اعلاه ، لن يأتي موعده الملغي في النموذج انا كنت شايف كل هذه الملاحظات مسبقا ، لذلك عملت لك الترتيب والخطوات لها جعفر

عفوا اختي ، هاي امرين مستقلين ، امر لكل سطر ، واذا اردتي ان تضعيهم على سطر واحد ، فيجب عملهم هكذا: docmd.runcommand accmdsaverecord : me.requery وستزول مشكلتك جعفر عفوا ، وانا كذلك لم اقل ان تعملي زر خاص لإلغاء الموعد ، وانما قلت: اي ، انك لست بحاجة الى زر خارجي ، وانما الحقل نفسه سيعمل كل شيء جعفر

لما تعملين نموذج يأخذ بياناته من جدول ، في النموذج ، افتحي اعدادت النموذج ، واول إعداد على رأس قائمة "الكل" هو مصدر البيانات ، وسيكون الجدول الذي اخترتيه ، قومي بإستخدام الاستعلام بدلا عن الجدول واذا عندك مشكلة ، فالرجاء ارفاق برنامجك ، وان شاء الله نحاول نساعدك جعفر

انا لم اقل هذا ، وانما قلت ، عمل استعلام واحد يربط الجدولين:

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

هلا والله ، وحياك الله والوحدة النمطية modTextHeightWidth تعمل عمل آخر كذلك ، لذلك اشجعك بإنزال المرفق والذي به نموذجين ، نموذج لكل لتصغير الخط ، ونموذج لتصغير/تكبير حجم الحقل ليتناسب مع حجم الخط (يعني عكس عمل الخط) جعفر

وعليكم السلام انا انزلت المرفق البارحة ، وبعد محاولة استمرت في حدود النصف ساعة لمعرفة المطلوب وفي اي الحقول ولم اعرف طريقي فيه ، واكتفيت بإغلاقه جعفر

وعليكم السلام رجاء الانتباه الى ترتيب اجاباتي ، فهي غير ترتيب اسئلتك 2. في جدول المواعيد ، اضيفي حقل بإسم Appointment_Cancelled (تم الغاء الموعد) ، ويكون الحقل بصيغة نعم/لا ، وقيمته الافتراضية 0 (صفر ، اي لا) ، وفي الاستعلام الذي هو مصدر بيانات النموذج الفرعي ، اعملي هذا المعيار للحقل (لا يساوي ناقص واحد ، لأن ناقص واحد "علامة الصح" معناها انه تم إلغاء الموعد) : <>-1 وسترين هذا الحقل الجديد في النموذج الفرعي ، ويمكنك النقر عليه لإلغاء موعد ذلك اليوم ، علامة الصح يعني تم الغاء الموعد ، ويجب ان لا يظهر في المواعيد في هذا الاستعلام ، لذلك يجب ان تضعي الكود التالي على حدث النقر على هذا الحقل: docmd.runcommand accmdsaverecord me.requery وعندها سيختفي هذا الموعد من القائمة. 1. كما قال الاخ اكرم ، في الاستعلام الذي هو مصدر بيانات النموذج الفرعي ، اعملي هذا المعيار لحقل التاريخ: >Date() 4. رجاء قراءة الرابط التالي ، ابتداء من "ومصدر بيانات النموذج الفرعي اصبح:" ، وقراءة المعلومة بين الخطين الاحمرين ، فهي ما طلبتيه: 3. اعملي نفس الطريقة للنموذج اعلاه جعفر

انا من اول مشاركة لي في هذا الخصوص اخبرتك: الحمدلله انه تم العمل على خير جعفر

يعني شو اللي صار ؟؟

أخي ابو عائشه انت لما تكتب الكود ، فهذه النافذة تُسمى نافذة اكواد VBA ، ويمكنك ان تبحث عن اي امر تريده مساعدة فيه ، بطريقتين (لإصدارات الاكسس 2000 الى 2010) : في هذه النافذة حقل في اعلى اليمين تكتب الامر اللي تريد تبحث عنه ، فتخرج لك نافذة فيها معلومات عن الكلمة التي تبحث عنها ، او تكتب اي امر في نافذة الاكواد ، مثلا: msgbox وتضع مؤشر الكتابة على اي جزء من الكلمة ، ثم تضغط على الزر F1 ، فتأتيك النافذة كما في الرقم 1 اعلاه ، بمعلومات عن msgbox. من الرقم ا او 2 ، سترى جميع الاوامر الخاصة بالامر msgbox الآن بالنسبة الى الامر msgbox ، فهناك اوامر تنبيه ، والتي تصدر صوت تنبيه كذلك ، وكل أمر له الشكل/الايقونة الخاص به (وهذا كان سؤال موضوعك)، مثلا: MsgBox "تجربة بصوت", vbYesNo + vbCritical او MsgBox "تجربة بصوت", vbYesNo + vbExclamation او MsgBox "تجربة بصوت", vbYesNo + vbInformation ولتكملة الموضوع ، فان الصوت يأتي من اصوات الوندوز ، ويمكنك ان تغيره من هنا (فالسهم يؤشر على صوت Critical ، والذي تناديه من الكود اعلاه بـ vbCritical): . وطبعا تستطيع استعمال أمر Beep كما قال عنه أخي شفان ، في اي مكان من البرنامج جعفر

السلام عليكم اللي عملته هو: 1. يطبع التقرير صفحة واحدة بغض النظر عن عدد السجلات ، 2. التحكم في حجم الخط ، وتجعله في حجم مربع النص 1- بسبب ان اعدادات طابعتي تختلف عن طابعتك ، وطابعة المستخدم الاخير ، فجعلت الكود يحسب كل ارتفاعات الطابعة واقسام التقرير تلقائيا: hSum = Me.Section(1).Height + Me.Section(2).Height + Me.Section(3).Height + Me.Section(4).Height pSum = Me.Printer.TopMargin + Me.Printer.BottomMargin extra = 576 * 2.5 'to tighten the space h_p_t = hSum + pSum + extra 'in twips pPaper = 29.7 'Me.Printer.PaperSize A4 pPaper_t = pPaper * 576 hDetail = (pPaper_t - h_p_t) 'Me.StuName.Height = 23.2 * 576 / Me.mycount Me.StuName.Height = hDetail / Me.mycount اذا تلاحظ المتغير (والذي يساوي 2.5 سم ، والرقم هذا اتى بعد عدة محاولات) extra = 576 * 2.5 'to tighten the space وذلك حتى يرفع التقرير ويصبح صفحة واحدة بغض النظر عن عدد السجلات 2- من الرابط http://www.lebans.com/autosizefont.htm ، اضفت الوحدة النمطية modTextHeightWidth ، والتي تتحكم في حجم الخط ، وتجعله في حجم مربع النص ، وبما ان البيانات كان بالانجليزي ، فكل شيء كان تمام ، وقد اخبرتك انه قد يجب ان تتلاعب مع السطر التالي في الكود ، والذي يحدد حجم الخط .FontSize = .FontSize - 1 فقد تضطر ان تغير الرقم 1 الى رقم آخر ، ولكن بالتجربة ستتوصل فيما اذا كان يجب ان تقوم بالتغيير اصلا او لا جعفر 625.SH-16-17Ssss.accdb.zip

اذن التأخير طبيعي المتبقي جعفر

لا مو بهذه الطريقة ، فكل شيء لازم يكون في الحقل في النموذج ، حيث ان المسار (القيمة) التي ستضعها في الحقل Me.linc_scanner يجب ان يكون بهذه الصيغة: D:\Scanner\ جعفر

السلام عليكم أخي حسين نعم: استبدل هذا السطر sFolder = Application.CurrentProject.Path & "\scanner" & "\" بهذا sFolder =[اسم مربع نص المسار] يعني مثلا sFolder = me.My_New_Path ويجب التأكد ان قيمة المسار ينتهي بالشارطة المعكوسة \ يعني القيمة يجب ان تكون ، مثلا D:\scanner\ جعفر

وعليكم السلام لما تكون في VBA ، ابحث عن هذه الكلمة msgbox ، وسترى مثال في اسفل النافذة ، والتفاصيل في اعلا النافذة جعفر

وعليكم السلام أختي تقدرين تعملين التالي: عن دخول اي مستخدم CurrentUser ، ان يتم حفظ اسمه في مكان ما ، سواء في النموذج الرئيسي الذي لا يُغلق ، او النموذج الذي يكون مخفي ، او في الكود ، في حدث فتح النموذج ، تعرفين من هو المستخدم ، فإذا كان المستخدم رقم 2 ، فتعملين حماية لحقول معينه: me.ID.Lock = true ، وتكون بقية الحقول لا حماية لها. جعفر

مادام البرنامج شغال تمام ، فمافي داعي نغير فيه جعفر

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

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