kanory

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

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

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

تابع الشرح في الفيديو ...... شرح صنع فاتورة بالاكسس

هل هذا هو المطلوب ..... ناتج استعلام في نموذج (2).rar

وضح أكثر أو ضع مثال بسيط لما تريد بارك الله فيك

وهذه طريقة أخرى ........ ناتج استعلام في نموذج.rar

🥀

راجع امان الاكسس ... تفعيل الماكروا

من ملف .... خيارات

ماذا تقصد بالنموذج الرىيسي ؟؟"