jjafferr

اخي عبدالعزيز انا ما عندي النسخة العربية ، ولكن ترجمة كلمة 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) جعفر

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

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

وعليكم السلام اهلا وسهلا بك في المنتدى عملت لك طريقتين مختلفتين ، بالرقم ، وبالنص ، وباستخدام نافذة الحفظ ، وباستخدام نافذة الحفظ التي يقدمها اكسس لحفظ اسم الملف ، وهذا كود حدث النموذج: Option Compare Database Private strInputFileName As String Private Sub cmd_Show_PDF_Click() On Error GoTo err_cmd_Show_PDF_Click 'Call Get_File_Click Call Get_File_Click If Len(strInputFileName & "") = 0 Then Exit Sub DoCmd.OpenReport "rpt_Names", acViewPreview, , "[ID]=" & Me.ID, acHidden DoCmd.OutputTo acOutputReport, "rpt_Names", acFormatPDF, strInputFileName DoCmd.Close acReport, "rpt_Names", acSaveNo ' PauseTime = 1 ' Set duration. ' Start = Timer ' Set start time. ' Do While Timer < Start + PauseTime ' DoEvents ' Yield to other processes. ' Loop Application.FollowHyperlink strInputFileName Exit Sub err_cmd_Show_PDF_Click: If Err.Number = 53 Then 'file does not exist Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub Private Sub Get_File_Click() Dim strFilter As String 'set what files should be filtered when the open dialog popsup 'strFilter = ahtAddFilterItem(strFilter, "All Files (*.*)", "*.*") 'strFilter = ahtAddFilterItem(strFilter, "Word document (*.doc)", "*.doc") 'strFilter = ahtAddFilterItem(strFilter, "Excel sheet (*.xls)", "*.xls") 'strFilter = ahtAddFilterItem(strFilter, "Ms Access files(mdb , accdb)", "*.mdb; *.accdb") strFilter = ahtAddFilterItem(strFilter, "PDF files ( pdf )", "*.pdf") 'OpenFile=True means Open dialog, 'OpenFile=False means Save dialog, strInputFileName = ahtCommonFileOpenSave(InitialDir:="C:\", _ Filter:=strFilter, OpenFile:=False, _ DialogTitle:="Please select a Ms Access File...", _ Flags:=ahtOFN_HIDEREADONLY) 'the user clicked cancel, and didn't select a file If strInputFileName = "" Then Exit Sub End Sub Private Sub Save_This_File_Click() On Error GoTo err_Save_This_File_Click Me.fName.SetFocus DoCmd.OpenReport "rpt_Names", acViewPreview, , "[fName]='" & Me.fName & "'", acHidden DoCmd.OutputTo acOutputReport, "rpt_Names", acFormatPDF, abc Exit_Save_This_File_Click: DoCmd.Close acReport, "rpt_Names", acSaveNo Exit Sub err_Save_This_File_Click: If Err.Number = 2501 Then Resume Exit_Save_This_File_Click Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub جعفر 542.reprtPdf2.accdb.zip

أخي محمود طلبك ، واسم الموضوع هم عكس طلبك الآن الطريقة الوحيدة التي استطعت عملها ، هو فتح النموذج Add_Wife من نموذج آخر frm_Main ، لأنك في وضع DataSheet تستطيع ان تغلق النموذج فقط ، بسبب عدم وجود ازرار على النموذج. جعفر 547.1.Close.accdb.zip