jjafferr

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

ولكن عندك المرفق ، تقدر تشوف طريقة عمله !! بإختصار: يجب عليك اولا ان تختار سجل ، حتى نعرف قيم حقوله ، ثم نفتح التقرير بتصفية ، حسب الحقل الذي تريد تصفيه ، وسواء الحقل رقم او نص (الحقل 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

انا عملت لك الزر في النموذج ، فهل جربته؟؟

وعليكم السلام انت ما عندك نموذج فرعي ، وانما نوع النموذج هو SplitForm ، لذلك انت تريد ان تغير طريقة فتح النموذج من SplitForm الى نموذج فردي ، الكود التالي يغير لك النموذج كل مرة تضغط على الزر ، اخفاء: Private Sub cmd_Hide_Sub_Table_Click() 'the only way to change the Default views, is to do it in Design view If Me.DefaultView = 0 Then 'close the Form, without saving it DoCmd.Close , , acSaveNo 'open the Form in Desgin view DoCmd.OpenForm "Add_Wife", acDesign, , , , acHidden 'set the Default view to SplitForm [Forms]![Add_Wife].DefaultView = 5 'open the Form DoCmd.OpenForm "Add_Wife" Else DoCmd.Close , , acSaveNo DoCmd.OpenForm "Add_Wife", acDesign, , , , acHidden 'set the Default view to Single Form [Forms]![Add_Wife].DefaultView = 0 DoCmd.OpenForm "Add_Wife", acNormal, , , , acWindowNormal End If End Sub . والعمل تم على النموذج add_wife فقط جعفر 547.Close.accdb.zip

هذا الموضوع يجب ان يُغلق ، اذا لم يكن عندك سؤال عن اخفاء الخانات الفارغة جعفر

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

وعليكم السلام تفضلي جعفر 527.6.مثال.accdb.zip

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

أخي الفاضل تم قفل موضوعك السابق: وقام المشرف بشرح السبب باللون الاحمر: 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. ولكنك وللاسف قمت بعمل نفس المخالفة مرة اخرى!! رجاء كتابة موضوع جديد ، بعنوان يوصف محتوى الموضوع مخالف - يُقفل جعفر

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

وعليكم السلام تفضل: جعفر 546.Holiday.accdb.zip

أحد الشروط التي التزم بها دائما ، هي كتابة اسم متغير مفهوم وله معنى ، مثلا: File_Name او How_Many ، بحيث بعد مدة لما أرجع لتصحيح الكود ، افهم ما هو عمل المتغير. والمحترفين يذهبون إلى ابعد من هذا ، فبالاضافة إلى استعمالهم مسمى مفهوم المعنى ، فإنهم يسبقون الاسم بحروف تدل على ان المتغير رقم أو كلمات ، هكذا: للارقام: intRows او nColumns ، وللكلمات: strName. واستغرب من بعض المتغيرات المستعمله في كود معقد مثل: a او b !! جعفر

طرق استعمالها: 1. اذا اردنا استعمال المتغير في الحدث / الوحدة النمطية فقط (يعني لا يمكن اخذ قيمتها من نماذج/تقارير/استعلامات/وحدات نمطية اخرى) ، فنستخدم: Dim UserName as string او Private UserName as string ويجب ان نستخدم Dim لكل حدث في النموذج/التقرير ، اي نعيد كتابته لكل حدث ، بينما يمكننا ان نضع Dim / Private مرة واحدة في اعلى الصفحة ، ولا تكون داخل اي حدث ، هكذا Option Compare Database Private User_Name As String 2. بينما اذا اردنا ان تكون القيمة متوفرة في جميع كائنات البرنامج ، فنستخدم التالي في وحدة نمطية (حتى ولو كانت وحدة نمطية فارغة): Public UserName as string مثال هذا ، عندما تستعمل نموذج المستخدمين ، ثم تريد الاحتفاظ باسم المستخدم في الكود ، فكل الذي تعمله هو: UserName = "jjafferr" ثم من اي مكان في البرنامج تستطيع ان تستعمل هذا المتغير UserName ، مثلا: User_Prevliage = iif(UserName = "jjafferr" , "Admin", "User") . ويمكننا ان نجعل الكود لا يعمل إلا بتعريف المتغير ، وفي الواقع هذه صعبة في البداية ، ولكن في النهاية سيكون برنامجك افضل ، وهكذا نجعل الكود يفرض علينا استعمال المعرف: . . واهمية هذه الخطوة هي عندما تريد ان تحفظ البرنامج لاحقا بصيغة mde او accde ، فيجب عليك ان: . واذا كانت المتغيرات في الكود معرّفة ، فلن تحصل على اخطاء في التحويل جعفر

هكذا ترسل الرسائل الخاصة: 1. تضع الفأرة على الاسم او الشعار ، فتأتيك النافذة التالية ، 2. تضغط على الرسالة ، ثم تكتب الرسالة . جعفر

السلام عليكم اخي عمرو حاولت ارسل لك رسالة على الخاص ، ولكن الظاهر انك لا تسمح بالرسائل الخاصة !! رجاء الكتابة لي على الخاص ، حتى تستطيع استلام رسالتي شكرا جعفر