هدية متواضعة الطريقة المثالية لأدخال البيانات

أخي الغالي

أبو شامة

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

عمل ممتاز ويستحق الاشادة ربنا يوفقك وننتظر منك مزيد من التقدم

تم عمل بعض التعديلات الخفيفة علي تطبيقك

أولاً تم اضافة وحدة نمطية وذلك لتحويل الباص وورد داخل شاشة inputbox الي نجوم اسمها password كالتالي

Option Compare Database

Declare Function SetTimer Lib "user32" (ByVal hWnd _
 As Long, ByVal nIDEvent As Long, ByVal uElapse _
 As Long, ByVal lpTimerFunc As Long) As Long
Declare Function KillTimer Lib "user32" _
(ByVal hWnd As Long, ByVal nIDEvent As Long) _
As Long
Declare Function FindWindowEx Lib "user32" _
 Alias "FindWindowExA" (ByVal hWndParent As _
 Long, ByVal hWndChildAfter As Long, ByVal _
 lpClassName As String, ByVal lpWindowName _
 As String) As Long
Declare Function Sendmessagebynum _
 Lib "user32" Alias "SendMessageA" (ByVal _
 hWnd As Long, ByVal wMsg As Long, ByVal _
 wParam As Long, ByVal lParam As Long) _
 As Long

 Const EM_SETPASSWORDCHAR = &HCC
 Public str_Title$, TimerId&

Sub TimerProc(ByVal hWnd As Long, ByVal uMsg As Long, _
 ByVal uElapse As Long, ByVal lpTimerFunc As Long)
 KillTimer 0, TimerId
 Dim lng_Hwnd&
 lng_Hwnd = FindWindowEx(0, 0, "#32770", _
  Trim(str_Title))
 lng_Hwnd = FindWindowEx(lng_Hwnd, 0, _
  "Edit", vbNullString)
 If lng_Hwnd Then
  Sendmessagebynum lng_Hwnd, EM_SETPASSWORDCHAR, 42, 0
 End If
End Sub

وفي حدث تحميل النموذج maragee

ضع هذا الكود لاستدعاء الوحدة النمطية

Private Sub Form_Open(Cancel As Integer)
TimerId = SetTimer(0, 0, 1, AddressOf TimerProc)
 str_Title = "شاشة كلمة المرور"
 str_Prompt = "أدخل كلمة المرور1111"
If InputBox(str_Prompt, str_Title) = "1111" Then
'DoCmd.Close
DoCmd.OpenForm "maragee"
Else
MsgBox ("رقم سري خاطيء برجاء اعادة المحاولة"), vbCritical, "خطأ"
DoCmd.CancelEvent
End If
End Sub

ثانياً : -

تم التعديل علي طريقة البحث وجعل جملة البحث تبحث في جميع الحقول المتاحة داخل اللست بوكس

Like "*" & [forms]![frmsearch]![ser] & "*"

وأخيراً

أحب أن اشكرك علي مجهودك الطيب

مرفق ملفك بعد اجراء التعديلات اللازمة عليه

abo_ezen_up.rar

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

اخي الكريم ابو شامة

اخي واستاذي محمد فؤاد تركي

ما شاء الله والله هذا الموضوع من اكثر المواضيع طلبا لما فيه من حاجة لكل مبرمج لنجاح نظامه وتخفيف الاخطاء

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

لقد تم التعديل على مربع الاختيار والسرد لاسم المدينة بالتقيد بالاخيارات الموجودة وآلية تعلمنها من هذا المتدى الجميل لاضافة مدينة جديدة في حالة عدم وجود المدينة ضمن القائمة فبذلك نكون ضربنا عصفورين بحجر واحد :lol: وذلك لتنبيه على المستخدم بادخال مدينة خطأ وبنفس الوقت نسمح له بإدخال مدينة جديدة

والله هذا كلوا تعلمناه من هذا المنتدى الجميل والله يوفق الجميع لما هو خير للاسلام والمسلمين

واليكم الملف بعد التعديل

abo_ezen_up1.rar

أخي الغالي

ألف تحية وبعد ،،،،،،،،

هدية رائعة من إنسان رائع .. ما فيه كلام ... أتمنى لك مستقبل واعد

سر الى الامام .. ونحن معك على طول الطريق ... الطريق مليء ... لكن يوجد محطات استراحة ...

مع خالص تحياتي ...

بارك الله فيك وجزاك الله خير

ونفع الله بعلمك

مثال رائع رائع رائع

الله يعطيك العافيه

الله يعطيكم العافيه

اخواني مشكورين من هذا المثال الرائع جميعاً

اخي العزيز ابوشامة كل التحية والاحترام لهذا العمل، واشكر ايضا عزيزي محمد فؤاد على جهوده المباركة،، والاخ محمد سامر... كل لديه شي يضيفه وهذا اروع ما في المنتدى..

همام

اخوان ان تكرمتوا ارفاق هذا الملف مع البرنامج لانه يعطي ارور

وهو msdatgrd.ocx