sm44ms

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

اخي الغالي خليفه - شكلة هو المطلوب صراحه عمل ممتاز 

بس انا لدي طلب بسيط

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

لاني بطبقة على النظام عندي حيث الجدول الاساسي لدي في بيانات من 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

ما من جديد

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

2007

اخوي الفاضل  فوكش الله يطول في عمرك ويصبرك على طلياتنا

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

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

السلام عليكم ورحمة الله وبركاتة

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

سوالي

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

جزاكم الله خير

Thanks for the quick response

شكرا على الاستجابة السريعة

السلام عليكم ورحمة الله وبركاته

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

ملف يشمل الجنسيات بالعربي والاجنبي

وشكار