sm44ms

خدمة اخرى اذا سمحت هذا كود للحفظ على زر امر ابا عند التراجع عن الحفظ تظهر رسالة او مسج بوكس او عند التراجع عن الحفظ يفتح اسم هذا النموذج (ACSSES_ADDUSER) On Error GoTo Err_VIP4_Click DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70 DoCmd.OpenForm "ACSSES_ADDUSER" Exit_VIP4_Click: Exit Sub Err_VIP4_Click: Resume Exit_VIP4_Click

ضبط الكود على اوفيس 2010 اشتغل البرنامج ولكن لم تتغير ايقونة سطح المكتب جربت على اوفيس 2021 ضبطة الايقونه ولكن فيه بعض اوامر ما اشتغلت عندي مثل زر اضافة الصوره في النموذج وقاعد اجرب شي ورا شي وبخبرك للعلم انا استخدم ويندوز 11 + اوفيس 2010 - 2021 والقاعدة مسويها على اوفيس 2007

هي عبارة عن وحدة نمطية للصور

Option Compare Database Option Explicit Public Maxpath As String ' Declarations for Windows Common Dialogs procedures Private Type CLTAPI_OPENFILE strFilter As String ' Filter string intFilterIndex As Long ' Initial Filter to display. strInitialDir As String ' Initial directory for the dialog to open in. strInitialFile As String ' Initial file name to populate the dialog with. strDialogTitle As String ' Dialog title strDefaultExtension As String ' Default extension to append to file if user didn't specify one. lngFlags As Long ' Flags (see constant list) to be used. strFullPathReturned As String ' Full path of file picked. strFileNameReturned As String ' File name of file picked. intFileOffset As Integer ' Offset in full path (strFullPathReturned) where the file name (strFileNameReturned) begins. intFileExtension As Integer ' Offset in full path (strFullPathReturned) where the file extension begins. End Type Const ALLFILES = "All Files" Private Type CLTAPI_WINOPENFILENAME lStructSize As Long hWndOwner As Long hInstance As Long lpstrFilter As String lpstrCustomFilter As String nMaxCustrFilter As Long nFilterIndex As Long lpstrFile As String nMaxFile As Long lpstrFileTitle As String nMaxFileTitle As Long lpstrInitialDir As String lpstrTitle As String Flags As Long nFileOffset As Integer nFileExtension As Integer lpstrDefExt As String lCustrData As Long lpfnHook As Long lpTemplateName As String End Type Const OFN_ALLOWMULTISELECT = &H200 Const OFN_CREATEPROMPT = &H2000 Const OFN_EXPLORER = &H80000 Const OFN_FILEMUSTEXIST = &H1000 Const OFN_HIDEREADONLY = &H4 Const OFN_NOCHANGEDIR = &H8 Const OFN_NODEREFERENCELINKS = &H100000 Const OFN_NONETWORKBUTTON = &H20000 Const OFN_NOREADONLYRETURN = &H8000 Const OFN_NOVALIDATE = &H100 Const OFN_OVERWRITEPROMPT = &H2 Const OFN_PATHMUSTEXIST = &H800 Const OFN_READONLY = &H1 Const OFN_SHOWHELP = &H10 Declare Function CLTAPI_GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" _ (pOpenfilename As CLTAPI_WINOPENFILENAME) _ As Boolean Declare Function CLTAPI_GetSaveFileName Lib "comdlg32.dll" Alias "GetSaveFileNameA" _ (pOpenfilename As CLTAPI_WINOPENFILENAME) _ As Boolean Declare Sub CLTAPI_ChooseColor Lib "msaccess.exe" Alias "#53" _ (ByVal hwnd As Long, rgb As Long) هنا العيب بلون الاحمر

عطني يوم بصور لك كل شي تمام

اخي Foksh انا جريب على اوفيس 2016 ما فتحت مع النماذج كل شوي تجي رساله وتروح بي الى مكان كتابة الكودات انا ما سوي ابديت للاوفيس احذف القديم واحط الجديد وجربت على اوفيس 2019 ونفس الشي تجي لي مشاكل في فتح البرنامج ولا نموذج يفتح عندي حاولت بكل الطرق ما فيه فايدة هل هناك فيه اختلاق في البرمجة بين الاوفيس والاخر

احدثة الى اي اصدار وهل بيعمل معادي دون مشاكل اوفيس10 16 19 21

ما من جديد

هذا هو الاصدار 2007

اخوي الفاضل فوكش الله يطول في عمرك ويصبرك على طلياتنا انا لم يظهر عندي على الويندوز وارسلت لك الصوره وشفتها يا ترى من وين المشكلة جزاك الله خير

نعم هي ولكن عندي تظهر بالشكل اكسس على ويندوز 7

السلام عليكم ورحمة الله وبركاتة اولا عاجز عن الشكر في كل ما تقدمونه من خدمات للجمهور سوالي هل من الممكن تغيير ايقونة اكسس على سطح المكتب واستبدالها باخرى يتم اختيارها من قبل المصمم جزاكم الله خير

Thanks for the quick response شكرا على الاستجابة السريعة

السلام عليكم ورحمة الله وبركاته بحثت على ملف يحتوي على جميع الجنسيات ولم اجده هل من الممكن الحصول عليه ملف يشمل الجنسيات بالعربي والاجنبي وشكار

الف شكر اخي الفاضل جزاك الله خير

السلام عليكم عندي نموذج مصدر استعلام ابي فرز تاريخ الانتهاء من الاصغر الى الاكبر في النموذج في حقل تاريخ الانتهاء

بحاول ارسله لك لانه حجمه كبير وبشوف لك اليوم كيف اسوي فيه جزاك الله خير

السلام عليكم ورحمة الله وبركاتة لدي سوال كيف يعمل نظام اوفيس اكسس 2007 على نظام اوفيس 2019 ومافوق حيث عندي برنامج على قاعدة بيانات 2007 واريده ان يعمل على اوفيس 2019 او 2021

اخي خليفه - شكرا جزيلا هذه الفكره الذي ارسلتها لي تفي بالغرض وسوف اطبقها علاى النظام عندي واخبرك بالنتيجه ومبارك عليكم الشهر

طيب ابشر بجهز الملف

وين

السلام عليكم ورحمة الله وبركاتة عندي جدول في حدود 3250 موظف فيه حقل تاريخ انتهاء البطاقة اريد هذا الحقل يعرض البطاقات المنتهية فقط واحده تلو الاخرى في نموذج معين عند فتحه اشوف هذا الحقل يعرض لي البطاقات المنتهية حتى لو كان بين الواحده والاخرى ثانيتين او اقل او اي طريقه اسم الحقل تاريخ الانتهاء --- Expiry_Date

المرفق ما اشتغل معي

طلب اخر ان امكن في التقرير عندي جدول فيه اسماء مكرره لموظفين اريد اسوي تفرير اي اسم مكرر يكون باللون الاحمر او اي لون بشرط اذا كانت اسمين وما فوق - يعني اسمين ثلاثه الى الخ...... بشرط الاسماء المكررة تبان في التقرير بس بلون موحد

على العموم شكرا لكن المرفق ما عمل معي لان الاوفيس الي عندي 2007 ثانيا يااستاذي الفاضل طلبي الثاني - اللي باللون الاحمر