kanory

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

استخدم هذا الكود قبل تشغيل الاستعلام 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

🥀

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

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

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

جرب تعديل اعدادات العميل كما في الصورة

انظر المرفق توسيط (2).accdb

وعليكم السلام ..... ايش الهدف من الكود ؟؟؟؟ هل تسنعملها للكتابة مثل لوحة المفاتيح مثلا أو .... اسف أخي الوزير لم انتبه لمشاركتك