-
Posts
95 -
تاريخ الانضمام
-
تاريخ اخر زياره
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
كل منشورات العضو jandbi
-
تفضل التقاعد.zip
-
بعد البحث وجدت هذا البرنامج للمبرمجة العظيمة ام عهود في منتدى الفريق العربي للبرمجة .. وبعد اذن مشرفي المنتدى وضعت الرابط لاني لم استطع احضار المرفق الموجود في الموضوع بسبب مشاكل في تسجيل الدخول للمنتدى هناك .. ومن استطاع وضع المرفق هنا اكون له شاكراً .. http://arabteam2000-forum.com/index.php?/topic/289445-هدية-برنامج-الترجمة-الناطق-من-الإنجليزية-الى-العربية-تم-التحديث/&page=1
-
أسأل الله أن يوفقك ويرزقك من واسع علمه وفضله أشكرك اخي العزيز أبو خليل
-
شكراً لتجاوبك JandbiBackUP1.zip
-
في المرفق قاعدة بيانات تحتوي على Module جاهز لأخذ نسخة احتياطية .. ارغب بتعديله حيث ان النسخة التي يتم أخذها تكون باسم الملف نفسه بالإضافة الى تاريخ اليوم .. حاولت التعديل كثيراً لكن لم انجح JandbiBackUP.zip
-
عاجل ..احتاج برنامج صغير وبسيط لتوزيع الاسماء من ملف اكسيل
jandbi replied to ابوشرشر's topic in قسم الأكسيس Access
برنامج الوورد يسهل لك هذا العمل عن طريق ( دمج المراسلات ) .. ابحث عن طريقتها في النت او اليوتيوب وستجدها سهلة وعملية بشكل اكبر -
شوف المرفق Last Date Visit.zip
-
كيف استطيع اخفاء قائمة ابداء في اكسس 2010
jandbi replied to بسام محمد صالح شعلان's topic in قسم الأكسيس Access
شوف المرفقات وان شاء الله يكون مطلوبك minimize access.zip -
افتح النموذج في وضع التصميم .. اذهب الى الخصائص ثم الى تسمية توضيحية .. ستجد مطلوبك ( ملاحظة : يوجد فراغ كبير قبل الوصول الى الجملة لأنه مستخدم زر المسافة )
-
التعديل علي كود عمل نسخة احتياطية من قاعد البيانات
jandbi replied to حسين العربى's topic in قسم الأكسيس Access
لم اجرب الكود على قاعدة بيانات منقسمة اما بقية استفسارك لعل احد الاخوة المحترفين يساعدنا بإيجاد طريقة مناسبة لما أردته فأنا على قد حالي -
التعديل علي كود عمل نسخة احتياطية من قاعد البيانات
jandbi replied to حسين العربى's topic in قسم الأكسيس Access
تفضل الطريقة السليمة في المرفق BackUpAuto.zip البرنامج يقوم باخذ نسخة احتياطية في نفس مجلد البرنامج اذا اردت ان تحدد انت مسار النسخة الاحتياطية .. قم بتغيير CurrentProject.Path الى مثلاً .. "D:\Backup" -
تهنئة للإخوة عبدالله قدور وأبو محمد وسعيد صواب للترقية
jandbi replied to عبدالرحمن هاشم's topic in قسم الأكسيس Access
الف مبروك يستاهلون -
[ إظهار / إخفاء ] زر في نموذج آخر عن طريق checkbox
jandbi replied to jandbi's topic in قسم الأكسيس Access
اشكرك اخوي سعيد .. لما ذكرت لي فكرة الجدول حللت المشكلة بشكل جذري .. انظر للمرفق الان ShowButton1.zip -
[ إظهار / إخفاء ] زر في نموذج آخر عن طريق checkbox
jandbi replied to jandbi's topic in قسم الأكسيس Access
اشكرك اخوي سعيد على سرعة تجاوبك .. هل يوجد طريقة لفعل الامر بدون الحاجة لفتح الفورم ؟! بالنسبة للنقطة الثانية اللي هي الاحتفاظ بالاختيار عند اغلاق الفورم .. هل من حل لها ؟ -
في المرفقات .. نموذجين .. تحتوي على ازرار في وضع غير مرئي نموذج 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 اين المشكلة ؟!
-
تقرير واحد يحتوي على صفحتين ( كيف اطبعه على ورقة واحدة على وجهين ) ؟
jandbi replied to jandbi's topic in قسم الأكسيس Access
الله يعطيك العافية .. الكود نجح بالعمل ..