jandbi

تفضل التقاعد.zip

بعد البحث وجدت هذا البرنامج للمبرمجة العظيمة ام عهود في منتدى الفريق العربي للبرمجة .. وبعد اذن مشرفي المنتدى وضعت الرابط لاني لم استطع احضار المرفق الموجود في الموضوع بسبب مشاكل في تسجيل الدخول للمنتدى هناك .. ومن استطاع وضع المرفق هنا اكون له شاكراً .. http://arabteam2000-forum.com/index.php?/topic/289445-هدية-برنامج-الترجمة-الناطق-من-الإنجليزية-الى-العربية-تم-التحديث/&page=1

أسأل الله أن يوفقك ويرزقك من واسع علمه وفضله أشكرك اخي العزيز أبو خليل

شكراً لتجاوبك JandbiBackUP1.zip

في المرفق قاعدة بيانات تحتوي على Module جاهز لأخذ نسخة احتياطية .. ارغب بتعديله حيث ان النسخة التي يتم أخذها تكون باسم الملف نفسه بالإضافة الى تاريخ اليوم .. حاولت التعديل كثيراً لكن لم انجح JandbiBackUP.zip

سبق ان رأيت مثل هذه الفكرة ولكن في ملف للاكسيل .. نتمنى ان نرى مثلها في الاكسس

برنامج الوورد يسهل لك هذا العمل عن طريق ( دمج المراسلات ) .. ابحث عن طريقتها في النت او اليوتيوب وستجدها سهلة وعملية بشكل اكبر

شوف المرفق Last Date Visit.zip

شوف المرفقات وان شاء الله يكون مطلوبك minimize access.zip

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

لم اجرب الكود على قاعدة بيانات منقسمة اما بقية استفسارك لعل احد الاخوة المحترفين يساعدنا بإيجاد طريقة مناسبة لما أردته فأنا على قد حالي

تفضل الطريقة السليمة في المرفق BackUpAuto.zip البرنامج يقوم باخذ نسخة احتياطية في نفس مجلد البرنامج اذا اردت ان تحدد انت مسار النسخة الاحتياطية .. قم بتغيير CurrentProject.Path الى مثلاً .. "D:\Backup"

الف مبروك يستاهلون

اشكرك اخوي سعيد .. لما ذكرت لي فكرة الجدول حللت المشكلة بشكل جذري .. انظر للمرفق الان ShowButton1.zip

اشكرك اخوي سعيد على سرعة تجاوبك .. هل يوجد طريقة لفعل الامر بدون الحاجة لفتح الفورم ؟! بالنسبة للنقطة الثانية اللي هي الاحتفاظ بالاختيار عند اغلاق الفورم .. هل من حل لها ؟

في المرفقات .. نموذجين .. تحتوي على ازرار في وضع غير مرئي نموذج Main1 يحتوي على عدد 2 checkbox .. الاول قمت بتنفيذه وهو اظهار واخفاء زر في نفس النموذج .. الثاني ارغب ان يقوم بإظهار الزر في نموذج Main2 << لم اعرف طريقة ربط الامر بالزر في النموذج الاخر الطلب الثاني .. انه في حالة ( الاختيار ) للـ checkbox يبقى مثل ماهو عند اغلاق النموذج والعودة مرة اخرى للنموذج ( أي يحتفظ بالاختيار الذي قمنا به ) ShowButton.zip

انظر المرفقات .. تحتاج لتفعيل الاداة على الويندوز لكي يعمل الباركود بشكل سليم Barcode.zip

يستاهل .. وهو أهل لذلك الف مبروك

شوف المرفق تخفيض امان الماكرو برمجيا.rar

1. يوجد تقرير واحد فقط في كل مرة 2. تعني المستخدم يقوم بقلب الورقة في الطابعة بعد طباعة الوجهة الاول وبعد الضغط على زر موافق يطبع الصفحة الثانية

اعرف هالكود .. لكن انا ذكرت سابقاً ان الكود موضوع داخل شريط ادوات تقرير ( مثل ما هو موجود بالصورة ) فيطبع التقرير المفتوح بغض النظر عن اسمه وهذه الاكواد موجودة في وحدة نمطية Option Compare Database Public Function ShowPrintDialog() On Error Resume Next DoCmd.RunCommand acCmdPrint End Function Public Function Print2sides() DoCmd.PrintOut acPages, 1, 1, acHigh, 1, True If MsgBox("اقلب الورقة لطباعة الصفحة الثانية", vbOKOnly, "") = vbOK Then DoCmd.PrintOut acPages, 2, 2, acHigh, 1, True Else DoCmd.PrintOut acPages, 2, 2, acHigh, 1, True End If End Function Public Function PrintCurrentPage() On Error GoTo طباعة_Err Dim CurrentPage CurrentPage = Screen.ActiveReport.Page DoCmd.PrintOut acPages, CurrentPage, CurrentPage, acHigh, 1, False طباعة_Exit: Exit Function طباعة_Err: MsgBox Error$ Resume طباعة_Exit End Function Public Function PrintRangePage() Dim StartRangePage, EndRangePage 10 StartRangePage = InputBox("أدخل بداية الصفحات التي تريد طباعتها :", "طباعة نطاق صفحات") EndRangePage = InputBox("أدخل نهاية الصفحات التي تريد طباعتها :", "طباعة نطاق صفحات") If IsNumeric(StartRangePage) = False Or IsNumeric(EndRangePage) = False Then If MsgBox("إما رقم بداية الصفحات أو رقم نهاية الصفحات غير صالح ." & vbCrLf & vbCrLf _ & "هل ترغب في إعادة المحاولة ؟", vbQuestion + vbYesNo + vbMsgBoxRight + vbMsgBoxRtlReading, "إدخال خاطئ") = vbYes Then GoTo 10 Else Exit Function End If End If If EndRangePage < StartRangePage Then MsgBox "رقم نهاية الصفحات أصغر من رقم البداية .", vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading Exit Function End If DoCmd.PrintOut acPages, StartRangePage, EndRangePage, acHigh, 1, False End Function Public Function ExportPDF() On Error Resume Next DoCmd.OutputTo acOutputReport, , acFormatPDF, , False, , , acExportQualityPrint End Function Public Function ExportExcel() On Error Resume Next DoCmd.OutputTo acOutputReport, , acFormatXLS, , False, , , acExportQualityPrint End Function Public Function CloseReport() Do While Reports.Count > 0 DoCmd.Close acReport, Reports(0).name Loop End Function عند الضغط على طباعة الكل << يطبع النموذج المفتوح بالاضافة الى التقرير ShowPrintDialog() عند الضغط على طباعة الصفحة الحالية << يطبع النموذج فقط بدون التقرير PrintCurrentPage() عند الضغط على طباعة على وجهين << يطبع النموذج المفتوح بالاضافة الى التقرير Print2sides()

السلام عليكم .. قمت بعمل شريط ادوات خاص للتقارير وارفقته بقاعدة بياناتي .. عند محاولة طباعة التقرير المفتوح يقوم بطباعة التقرير والنموذج المفتوح ايضاً ..!؟ علماً أني معدل خصائص النموذج والتقرير : منبثق ومشروط الى ( نعم ) وهذا كود لطباعة التقرير داخل زر الادوات DoCmd.RunCommand acCmdPrint اين المشكلة ؟!

الله يعطيك العافية .. الكود نجح بالعمل ..