sm44ms

شكرا

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

اشكرك الف شكر اخي

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

من نموذج رئيسي ETSALATSIMCARDFORMTEST

Cmd.OpenReport "ETSALATSIM_REPORT3", acPreview, , "[EMID]=[Forms]![ETSALATFORM]![EMID]" جربت الكود لم يعمل معي اسم التقرير ETSALATSIM_REPORT3 اسم النموذج الفرعي ETSALATFORM اسم النموذج الرئيسي ETSALATSIMCARDFORMTEST اسم الحقل للرقم الوظيفي في الفرعي EMID اريد معاينة السجل الحالي فقط بناء على الرقم الوظيفي

السلام عليكم BCعندي جدول اسمه ASوجدول اسمه SDونموذج رئيسي اسمه FVوفرعي اسمه الفرعي داخل النموذج الرئيسي وياخذ بعض من البيانات من النموذج الرئيسي وبعض البيانات انا اقوم بادخالها عند الحفظ تظهر هذا الرساله المرفقة شو السبب

سوف اعمل بنصيحتك واجرب والرد لك خبر الله يطول في عمرك

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

وكيف عمل هذه الاستعلامات والشرط

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

الف الف شكر وتقدير لكم

الف الف شكر والله عاجز عن التقدير

اريد كود للحفظ وفي نفس اللحظة التراجع عن الحفظ Private Sub VIP4_Click() 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 End Sub اريد تعديل

نفسه او الساعة الرقمية عادي اهم شي كيف يضبط على نموذج واحد

الف شكر الغالي سوف اجربة بكره لني مخلص الدوام واخبرك بالنتيجة

السلام عليكم هل ينجح اضافة 4 حقول او اكثر خاص بالساعة في نموذج واحد مثال: ساعة بتوقت ابوظبي ساعة بتوقيت مكة ساعة بتوقيت الرياض ساعة بتوقيت مصر وساعة بتوقيت الاردن وساعة بتوقيت القدس او اي دوله عربية وجزاكم الله خيرا

اريد كود للحفظ وفي نفس اللحظة التراجع عن الحفظ Private Sub VIP4_Click() 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 End Sub اريد تعديل

خدمة اخرى اذا سمحت هذا كود للحفظ على زر امر ابا عند التراجع عن الحفظ تظهر رسالة او مسج بوكس او عند التراجع عن الحفظ يفتح اسم هذا النموذج (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