kanory

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

لعمل اختصار على سطح المكتب ضع هذا الكود في موديول ثم استدعيه 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

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

جرب المثال التالي ..... خطوات للوصول الى بحث جوجل.accdb

وعليكم السلام ورحمة الله أخي الكريم أين ظهر التكرار

اخي الكريم اذا كان عناك نموذج فرعي داخل النموذج الرئيسي . قم بازالت شريط التمرير من النموذج الفرعي .

بارك الله فيكم احبتي .... دعواتكم الصادقة هي وقودنا ... نفعني الله واياكم بالعمل الصالح

وعليكم السلام ورحمة الله وبركاته اشكركم جزيل الشكر على هذه التهنئة واتمنى واسأل الله ان اكون عند حسن ظن المنتدى وظنكم بي وان يعينني على تحمل هذه المسئولية بارك الله فيكم جميعاً ووفقني الله وأياكم لما فيه الخير

استخدم استعلام تحديث

الحمد لله رب العالمين

تفضل .... test 5 500 (4).mdb

اجابة اخي الوزير افضل حل لك ... هل تحتاج رؤية بقية السجلات عند ادخال البيانات ....