kanory

هذه صورة من جهازي .... ليس هناك مشكلة .... ربما اشكالك في برنامج قاري الـ 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") حرك الماووس فوق الشريط حتى يتحول شكله لسهمين متعاكسين ثم اضغط واسحب

أخي ابو عبدالله ......... أولا : اشرح مطلوبك مرة أخرى ثانيا : ماهو الهدف من ذلك ؟

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