jjafferr

هلا والله ، وحياك الله والوحدة النمطية 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 اللي الى اليوم ما لقوا لها حل جعفر

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

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

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

اولا ، الصق الحقول بالقسم العلوي من قسم Detail ، ثانيا ، اذا كنت تستخدم خاصية الاكسس 2010 في تجميع الحقول ، فتأكد ان تجعل المسافات حول الحقول = صفر ، ثالثا ، اجعل ارتفاع الحقول نفس ارتفاع قسم Detail جعفر

الحمدلله وبعدين ، وين قلت لي !! جعفر

وعليكم السلام نعم يمكن ، وهناك العديد من الامثلة على الانترنت ، مثل: http://www.accessribbon.de/en/?Welcome جعفر

كانت حتى تركز على ارتفاع القسم فقط ، وبعدها تستطيع انت ترجع للحقول وتعطيها الحجم الصحيح تفضل وانزل المرفق من هنا : http://www.lebans.com/autosizefont.htm بس حسب تجربتي مع الكود ، فتستطيع ان تضيف الى الحجم النهائي (في الكود) نقطة او نقطتين ، بالتجربة سترى قصدي ، ولا داعي لـ len جعفر

تفضل 623.1.stu new.accdb.zip

السلام عليكم سيدي الفاضل ، عاشت ايدك ، اكواد بسيطة ونتائج رائعة التغييرات اللي انا عملتها: 1. اذا كتبت شيء ، وغيرت رأيك ، فتستطيع ان تضغط على الزر Esc (Escape) ، وسوف يختفي النموذج الفرعي ، Private Sub text76_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyEscape Then SubFrm.Visible = False Else SubFrm.Visible = True End If End Sub 2. اذا كتبت شيء ، فارتفاع النموذج الفرعي يطول ويقصر مع عدد السجلات الموجودة ، اكثر عدد هو 3 ، Private Sub text76_Change() On Error Resume Next Dim x As String SubFrm.Visible = True x = Me.text76.Text Me.Text11.Value = x Me.SubFrm.Requery 'تغيير ارتفاع النموذج الفرعي حسب عدد سجلاته Dim rst As DAO.Recordset Set rst = Me.SubFrm.Form.RecordsetClone rst.MoveLast RC = rst.RecordCount If RC > 3 Then Me.SubFrm.Height = Me.SubFrm!FldText.Height * 3 Else Me.SubFrm.Height = Me.SubFrm!FldText.Height * RC End If rst.Close: Set rst = Nothing End Sub 3. اذا كتبت شيء ، ونقرت على الاسم في النموذج الفرعي ، فسيتغير سجل النموذج الرئيسي حسب الاسم المختار ، وهنا فانت لست بحاجة الى زر البحث Private Sub FldText_Click() 'Forms!formS1.ITEM_NEM = Me.FldText Me.Parent.text76 = Forms!formS1!SubFrm.Form.FldText.Text 'اظهر نتيجة البحث Me.Parent.Form.Requery 'Me.Parent.text76.SetFocus Forms!formS1!SubFrm.Form.Visible = False End Sub جعفر 624.test.mdb.zip