jjafferr

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

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

عفوا اختي ، هاي امرين مستقلين ، امر لكل سطر ، واذا اردتي ان تضعيهم على سطر واحد ، فيجب عملهم هكذا: 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 ، وتكون بقية الحقول لا حماية لها. جعفر

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

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

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

حياك الله هلا والله أخوي صالح هذه الثغرة Bug اللي الى اليوم ما لقوا لها حل جعفر

حياك الله جعفر

الله يسلمك ويعافيك ان شاء الله أخوي ابوخليل ، وهاي يحتاج لها سؤال ، انت تأمر ونحن نقول تم ان شاء الله هاي ما عرفت معادلتها وحياك الله جعفر

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