jjafferr

وعليكم السلام ضع هذا الكود في وحدة نمطية: Option Compare Database Public Get_myDate As Date Function Get_This() Get_This = Get_myDate End Function كود امر الطباعة ، اصبح: Private Sub Command22_Click() Dim I As Byte CopyN = InputBox("أدخل عدد النسخ المطلوب طباعتها :", "عدد النسخ") If IsNumeric(CopyN) Then For I = 0 To CopyN - 1 Get_myDate = DateAdd("d", I, Date) DoCmd.OpenReport "rpt_Patient_Drugs" Next I Else MsgBox "البيانات التي أدخلتها ليست بيانات رقمية .", vbCritical End If End Sub جعفر 552.4.accdb.zip

السلام عليكم اخي محمد قد يكون احد اسباب عدم الرد هو عدم وضوح السؤال !! الموضوع ما فيه شرح بالمطلوب (نعم الشرح غير واضح) ، وانا انزلت المرفق وكذلك لا يوجد فيه شرح عن المطلوب!! لوسمحت تخبرنا عن المطلوب بخطوات ومثال جعفر

اخي عبدالعزيز انا ما عندي النسخة العربية ، ولكن ترجمة كلمة Required = مطلوب (او شئ من هذا القبيل) ، افتح الجدول في وضع التصميم ، ثم اختار حقل رقم او تاريخ او نص ، وانظر في اعداداته في الاسفل (لاحظ الفيديو) ، واجعل: مطلوب = لا . جعفر

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

السبب في اعدادات الحقل في الجدول: جعفر

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

وعليكم السلام اهم شئ في الحل هو ان تكون على السجل الصحيح 1. خليك على السجل الصحيح ، 2. ضع هذا الحدث على زر "عند النقر" ، او حتى على اي من الحقول على حدث "النقر المزدوج": اذا كان نوع الحقل نص me.[myField]="" اذا كان نوع الحقل رقم me.[myField]= 0 جعفر

السلام عليكم بما ان اخي حسين لم يرفق لنا نموذج من بياناته ، عملت بحث في الانترنت لمعرفة مثل هذه المشاكل ، والمشكلة عبارة عن مسافات بعد البيانات مثل ما قال اخي حسين ، والحل مثل ما قال الاستاذ رمهان ، استخدام الامر Trim (لإزالة جميع المسافات الفارغة في الحقل) ، بينما انت تريد ازالتها من احد اطرافها ، لذلك تستطيع استعمال RTrim (لإزالت المسافات من يمين الكلمة) ، او LTrim (لإزالت المسافات من يسار الكلمة) ، ولا يضر اذا استخدمناهم مع بعض ، هكذا RTrim(LTrim([column_name])) جعفر

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

نعم شفت ملاحظتك هناك ، بس اللي احاول ان افهمه واوضحه لك: نحن في هذا الموضوع اللي نحن فيه "فتح التقرير عن طريق برنامج Adooe Acrobat Reader" ، ويش تريد ان نعمل زيادة فيه؟ انت هنا ما عندك صور ، والشئ الوحيد اللي عندك هو تقرير pdf ، والظاهر انك ما تريده يفتح خارج البرنامج ، وانما تريده يفتح في البرنامج!! ارجو توضيح طلبك لوسمحت لا نخلط طلبات الموضوعين في بعضهم البعض. جعفر

هل سيكون التقرير لفصل دراسي واحد فقط؟ او تريد جميع الفصول الدراسية في تقرير واحد؟ جعفر

عفوا ، لا نخلط المواضيع مع بعض ، انت في هذا الموضوع تريد ان ترى نتيجة ملف pdf في نموذج ، صح؟ جعفر

يعني تريد ان تفتح تقرير pdf في النموذج ؟ جعفر

وعليكم السلام البطء في الاستعلام . 1. انت تستخدم امر VBA في SQL ، مما يبطئ العملية ، 2. من المعروف ان Dlookup (كذلك امر VBA) بطيئ ، وانت محظوظ ان بياناتك قليلة ، وإلا فالبطء سيكون اكثر ، 3. انت تنتظر الحقل SumOfin و SumOfOut ليحصلوا على نتائج الجمع ، ثم تأخذ النتائج منهم وتطرحهم من بعض. والتعديل: . إضافة الجدول Item Names الى الاستعلام ، 1. تم تغيير الامر الى احد اوامر SQL وهو is Null (وليس IsNull امر VBA) ، 2. لسنا بحاجة الى اي معادلة ، لأننا جلبنا الجدول الى الاستعلام ، ثم وضعنا الحقل Products في الاستعلام مباشرة ، 3. نقوم بعملية الجمع مباشرة في الحقل جعفر

هلا والله خلاص اذن ، هذه الجزئية جاهزة للدرس جعفر

ولكن عندك المرفق ، تقدر تشوف طريقة عمله !! بإختصار: يجب عليك اولا ان تختار سجل ، حتى نعرف قيم حقوله ، ثم نفتح التقرير بتصفية ، حسب الحقل الذي تريد تصفيه ، وسواء الحقل رقم او نص (الحقل ID رقمي ، والحقل fName نص) ، فطريقة معاينة تقرير عادي بتصفية بأحد هذه الحقول يكون: للحقل الرقمي DoCmd.OpenReport "rpt_Names", acViewPreview, , "[ID]=" & Me.ID او للحقل النصي DoCmd.OpenReport "rpt_Names", acViewPreview, , "[fName]='" & Me.fName & "'" . وامر تصدير / طباعة التقرير rpt_Names على صيغة pdf هو (والذي يطبع جميع السجلات): DoCmd.OutputTo acOutputReport, "rpt_Names", acFormatPDF, File_name_and_path . وبما اننا نريد ان ان نصدر سجل واحد ، والامر عاليه لا يسمح لنا بذلك ، فنقوم بمعاينة التقرير كما عملنا سابقا ، فلما يأتي امر التصدير الى pdf ، يأخذ بياناته من التقرير المفتوح (بدلا ان يأخذ جميع السجلات) ، ولكنه لا يبدو جيدا ان يرى المستخدم التقرير مفتوحا امامه ، لذلك نفتح التقرير بصورة مخفيّه (حيث يراها البرنامج ولا يراها المستخدم) ، هكذا: للحقل الرقمي DoCmd.OpenReport "rpt_Names", acViewPreview, , "[ID]=" & Me.ID , acHidden او للحقل النصي DoCmd.OpenReport "rpt_Names", acViewPreview, , "[fName]='" & Me.fName & "'" , acHidden . والشئ الاخير هو اسم الملف ومسار حفظه ، فاذا لم يكن معرّفا (لم تكون فيه قيمة) ، فيفتح لك الاكسس نافذة اختيار المجلد واسم الملف) جعفر

السلام عليكم أخي محمود ، اخبرك ايش المشكلة: انت لم توضح بالضبط ما يجب علينا عمله ، ولا الخطوات ، ولم تذكر النموذج Home ولم تشر اليه !! لهذا السبب ومن اول مشاركة لي كل تركيزي كان على النموذج Add_Wife ، وهو لو نظرت اليه لرأيت كانه نموذج رئيسي (نموذج فردي Single) وفيه نموذج فرعي (نموذج جداول DataSheet) ، وعملت لك الطريقة لأخفاء النموذج الفرعي (والذي اخبرتك انه ليس نموذج فرعي ، وانما نموذجك عبارة عن نموذج SplitForm ، والذي يظهر كأنه نموذج رئيسي وفرعي ، وانت اكدت ذلك) . الآن فقط فهمت قصدك ، وسؤالك كان يجب ان يكون هكذا: عندي نموذج رئيسي Home ، وفيه النماذج الفرعية Add_Wife و sons ، اريد ان يكون في النماذج الفرعية زر ، عند الضغط عليها تُغلق/تختفي. وجوابي كان سيكون ، تفضل ، هذا كود الزر لإخفاء النموذج Add_Wife Private Sub cmd_Hide_Sub_Table_Click() Me.Parent.ID.SetFocus Me.Parent.Add_Wife.Visible = False End Sub جعفر 547.2.Close.accdb.zip

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

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

وعليكم السلام حقول الارقام في الجدول معرّفة بـ Double ، والتي تُريك الذي تريده من الخانات العُشرة ، ولكنها تخفي الباقي (يعني الرقم في الواقع غير الذي تراه) فمعادلتك التالية لن تنجح في التعرّف (ولن ترى) بقية الخانات العُشرية Rsd_item: Nz([rsd])-Nz([S_Compo]) بينما اذا كنت عرّفت الحقول في الجدول بـ Decimal ، لما كانت لديك مشكلة ولحل مشكلتك الآن ، سنطلب من الكود تقريب الرقم الى 3 خانات عُشرية (لأني رأيت انك تُظهر هذه الخانات) لكل حقل ، ثم نطرح ، بهذه الطريقة نحن نعرف بالضبط الارقام التي نتعامل معها Rsd_item2: Round(Nz([rsd],0),3)-Round(Nz([S_Compo],0),3) جعفر

وعليكم السلام اختي واهلا وسهلا بك في المنتدى سؤالك غير واضح ، فياريت توضحيه اكثر ، وبمثال جعفر