ahmed draz

السلام عليكم ورحمة الله وبركاته
أخي الكريم (خالد جميل)
Private Declare PtrSafe Function GetModuleHandle Lib "kernel32" Alias "GetModuleHandleA" (ByVal lpModuleName As String) As Long Private Declare PtrSafe Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long Private Declare PtrSafe Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long Private Declare PtrSafe Function SendDlgItemMessage Lib "user32" Alias "SendDlgItemMessageA" (ByVal hDlg As Long, ByVal nIDDlgItem As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Private Declare PtrSafe Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long Private Declare PtrSafe Function GetCurrentThreadId Lib "kernel32" () As Long هذه العبارات تقوم بأستدعاء أو تحميل مكتبات لغة VBA في بداية الكود 
و كلمة "user32" تدل على أن الكود يعمل فقط على اصدار اوفيس 32بت (32Bit)
وإذا وجدت كلمة "user64" فمعناها أن المبرمج قام بأستدعاء أو تحميل مكتبات لغة VBA لتعمل على اصدار اوفيس 64بت (64Bit) 
وفي الغالب تجد أن المبرمج قد وضع أكواد الإصدارين معاً ليضمن عمل الكود على أي إصدار أوفيس قد يستعملة المستخدم أو قد ينقل القاعدة على أي جهاز لا يعرف نوع إصدار الأفيس علية (32Bit) أو (64Bit)
أما لماذا تعطي خطاء لديك وذلك لأن المكتبة مفصولة عن بقية الكود الخاص بها بالخط الفاصل أو أنها لاتتبع الكود أصلا
الكود المكتوب اسفل الكود الخطأ هو كود إخفاء إطار الاكسس
و هذا كود إخفاء إطار الاكسس أخر يعمل بكفاءة
 hideaccesswindow.zip
وهذه مشاركة تشرح ماذا تعني مكتبات  (32Bit) و (64Bit) 
 
 

السلام عليكم ورحمة الله
مرحباً بك أخي بلال
تفضل التعديل بإغلاق النموذج فقط
كلمة المرور: 123

 
test (2).rar

السلام عليكم ورحمة الله
مرحباً بك أخي بلال
تفضل طلبك

نفقات التمدرس.accdb

السلام عليكم ورحمة الله
مرحباً بك أخي بلال
تفضل التعديل
كلمة المرور: 123
ومن هنا طريقة تغييىر كلمة المرور
 

test (1).rar

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


نموذج بحث شامل 1.accdb نموذج بحث شامل 2.rar

السلام عليكم ورحمة الله
أخي الكريم kassem_geo
بعد إذن أخي الفاضل M.Abd Allah الذي علمني كثيرا بارك الله فيه
إليك التعديل في الشكل مع تشغيل الازرار
وأرجو أن ينال إعجابك


توثيق.accdb

السلام عليكم ورحمة الله 
أخي الكريم 2saad مرحباً بك
وأرجو أن اكون قد اجبت طلبك

1.rar

السلام عليكم ورحمة الله
أخي الكريم بلال
استخراج اليوم والتاريخ والسنة من التاريخ
في النموذج وفي الاستعلام 
تفضل
 
 
 

test.accdb