kanory

اخي الكريم انظر للصورة ثم الشرح هو أن الكود المصدري مع الكود الوسيط يتم حفظهما معاً ضمن ملف قاعدة بيانات الأكسس ذي اللاحقة mdb (أو accdb). بعد أن تكتب الكود المصدري بلغة VBA، يتم تجميعه compiled إلى كود وسيط يسمىp-code. عندما يعمل تطبيق قاعدة البيانات، ويستخدم أكواد VBA، تتم ترجمة هذا الكود الوسيط وتنفيذ الكود بواسطة الأكسس، ولذلك تحتاج إلى وجود الأكسس دوماً (أو على الأقل إلى وجود المكونات التي تقوم بالترجمة). السؤال الذي يطرح نفسه هنا هو التالي: مع ملاحظة أن الكود المصدري بلغة VBA قد تمت ترجمته إلى الكود الوسيط p-code ، ألا يعني هذا أن بإمكاننا الآن أن نتخلص من الكود المصدري، ونحتفظ بالكود الوسيط، ولن نخسر شيئاً؟ الجواب: بلى، بإمكاننا أن نتخلص من الكود المصدري، لكن هذا يعني أننا لن نستطيع القيام بأي تعديلات في الكود لاحقاً. في الحقيقة، الأكسس يوفر لنا هذه الخاصية من أجل حماية الكود المصدري من التعديل، وتقليص حجم ملف قاعدة البيانات. يتم ذلك عبر تحويل كل الأكواد المصدرية في الملف إلى كود وسيط p-code، ثم التخلص من الكود المصدري، وضغط الملف بعدها وتحويل الامتداد إلى mde (أو accde) بدلاً من mdb. ومن هنا تعرف السر في أنك لا تستطيع الاطلاع على أكواد ملفات mde، مع أن التطبيق يعمل بشكل كامل.

هل جربت ملفى المرفق بالاعلا . كما ذكر الاخ @Shivan Rekany تمت الاجابه على جميع تساؤلاتك السابقة

صحيح أخي , بعض الخطوط العربية فيها مشاكل عند التحويل لـ pdf وكذلك عند ادراج المخططات والرسوم البيانية ... لذلك غير نوع الخط عن الحفظ تضبط معك.

هذه صورة من جهازي .... ليس هناك مشكلة .... ربما اشكالك في برنامج قاري الـ pdf لديك .

جرب هذا test (1).accdb

بارك الله فيك @Shivan Rekany

سؤالك غير مفهوم ..... هل تريد في النموذج الفرعي فقط 5 سجلات أم ماذا تريد بالضبط .... ماذا تقصد بخمس سنوات ... بارك الله فيك

بالنسبة للمطلوب الثاني لماذا لا يتم سحب البيانات التي تريدها من الجدول العام للطلاب أقصد جداول الطلاب أظن موقع نور يقوم بتصدير بيانات جداول الطلاب

مشكور أخ @Shivan Rekany استاذ .

ياسيدي ممكن التلميذ يسبق استاذه .. بارك الله فيك

جزاك الله خيرا أخي الكريم وهذا برنامج جامع للفكرتين ( جلب اسماء الطابعات + تحديد الطابة الافتراضية ) ولعلي أحظى بدعوة لي ولوالدي ... تحديد واختيار الطابعة الافتراضية - تغيير الطابعة الافتراضية.accdb

هذا تواضع منكم . جزاك الله خير . ⚘

@ابو زاهر اشكرك اخي وضاح . بارك الله فيك ... كلنا نتعلم من بعض في هذا المنتدى الرائع

ممكن جزء من البرنامج والروابط بها

استخدم هذا الكود قبل تشغيل الاستعلام DoCmd.RunCommand acCmdSaveRecord

هذا ما تمتاز به اوفيسينا .... 😁

بارك الله فيك اخي @Khalf

انظر هذا الموضوع لنفس السائل الاستاذ . صالح

يمكن الاستفادة من المثال في ذلك SelectPrinterAndPaperSizes1.mdb

اذا كان اسم الطابعة معروفه مسبقا ضع هذا الكود قبل امر الطباعة SetDefaultPrinter (HP laserjet 1510)

وعليكم السلام ورحمة الله .... برنامج رائع من رجل رائع ومبادر .... شكرا جزيلا لك أخي الفاضل

وعليكم السلام .... جرب هذا test (1).mdb

بارك الله فيك أخي ابا عارف

لعمل اختصار على سطح المكتب ضع هذا الكود في موديول ثم استدعيه Public Sub CreateDesktopShortcut(strShortcutTitle As String, _ Optional strTargetPath As String = "") On Error Resume Next Dim oShell As IWshShell_Class Dim oShortcut As IWshShortcut_Class Dim vItem As Variant Dim vType As Variant Set oShell = New IWshShell_Class If strTargetPath = "" Then strTargetPath = CurrentDb.Name End If For Each vItem In oShell.SpecialFolders If Mid(vItem, Len(vItem) - 6, 7) = "Desktop" And _ InStr(1, vItem, "All Users") = 0 And _ InStr(1, UCase(vItem), "ADMINISTRATOR") = 0 Then Set oShortcut = oShell.CreateShortcut(vItem & "\" & strShortcutTitle & ".lnk") oShortcut.TargetPath = strTargetPath oShortcut.Save End If Next End Sub استدعية بهذه الطريقة Call CreateDesktopShortcut("This is my shortcut title") حرك الماووس فوق الشريط حتى يتحول شكله لسهمين متعاكسين ثم اضغط واسحب