sm44ms

اشكرك اخي

سوف اجرب وارد لك اشكرك على كل حال بعد التجربة سوف اخبرك

هذا المرفق msgpass الرقم السري على شكل نجوم.accdb

لدي نموذج افتح برقم سري عن طريق الكود عند الفتح - كان زمان تظهر كلمة المرور على شكل نجوم عدلت شوي على الكود صار الرقم السري يظهر بدون نجوم يعني عادي اليكم الكود والوحدة النمطية On Error GoTo Err_clic5 TimerId = SetTimer(0, 0, 1, AddressOf TimerProc) ' رسالة توضيحية لطلب إدخال كلمة المرور Dim str_Title As String Dim str_Prompt As String Dim userInput As String Dim mypass As Variant str_Title = "ادخال كلمة المرور" str_Prompt = "ادخل الرقم السري الذي تم منحة لك لدخول هذه الشاشة" ' الطلب من المستخدم إدخال كلمة المرور userInput = InputBox(str_Prompt, str_Title) ' البحث عن كلمة المرور في الجدول mypass = DLookup("[Password]", "tblUsers", "[Password] = '" & userInput & "'") ' التحقق مما إذا كانت كلمة المرور المدخلة تطابق أي كلمة مرور في الجدول If Not IsNull(mypass) Then ' كلمة المرور صحيحة، يستمر بفتح النموذج Exit Sub Else ' كلمة المرور غير صحيحة، يتم فتح نموذج الرفض وإلغاء العملية DoCmd.OpenForm "ACSSEC2" DoCmd.CancelEvent Exit Sub End If Exit_clic5: Exit Sub Err_clic5: DoCmd.Close MsgBox "تم الغاء الدخول بسبب عدم وجود صلاحيات كافية" Resume Exit_clic5 الوحدة النمطية 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 اريد الباسورد على شكل نجوم ممكن

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

اريد تعديل

الكود الذي ارسلته لم اعرف اين اضعه شوف هذا الكود الي معي على زر الامر ... للحفظ Private Sub SAEF_Click() DoCmd.RunCommand acCmdSaveRecord Dim db As DAO.Database Dim rst As DAO.Recordset Dim existingName As String Dim nameExists As Boolean Set db = CurrentDb nameExists = False ' التحقق مما إذا كان الاسم موجودًا بالفعل في الجدول Set rst = db.OpenRecordset("SELECT [NAME ARABIC] FROM TABELSIMCARD WHERE [NAME ARABIC] = '" & Me.D2 & "'", dbOpenSnapshot) If Not rst.EOF Then ' إذا تم العثور على السجل، فذلك يعني أن الاسم موجود nameExists = True End If rst.Close Set rst = Nothing Set db = Nothing ' إذا كان الاسم موجودًا بالفعل، عرض رسالة تحذيرية وعدم الحفظ If nameExists Then MsgBox "الاسم '" & Me.D2 & "' الموظف موجود مسبقاً في نظام الكشوفات الخاصة ببطاقات الهاتف.", vbExclamation Else End If End Sub هو عباره عن نقل الاسم من حقل غير منظم اسمه D2 الى حقل منظم اسمه NAME ARABIC اذا كان الاسم موجود في الجدول الاساسي المنظم تظهر الرساله انه مكرر - ولا اريد يحفظ البيانات واذا لم يكن مكرر يتم الحفظ

السلام عليكم اريد تعديل على هذا الكود - D2حقل الاسم الاساسي مصدر بيانات NAME ARABIC فية حقل غير منظم اسمه EMPNA اسحب بيانات عن طريق البحث طبعا هو من جدول اخر - يقوم بنسخ الاسم الى الحقل السابق D2 عند الضغط على حفظ انا اريد اذا كان الاسم مكرر في الحقل D2 لايحفظ اي بيانات فقط اريد الرساله الموجوده في الكود التالي واذا غير مكرر يحفظ لي دون عرض الرساله بان الاسم مكرر انا اريد تعديل على هذا الكود ؟؟؟؟؟ DoCmd.RunCommand acCmdSaveRecord Dim db As DAO.Database Dim rst As DAO.Recordset Dim existingName As String Dim nameExists As Boolean Set db = CurrentDb nameExists = False ' التحقق مما إذا كان الاسم موجودًا بالفعل في الجدول Set rst = db.OpenRecordset("SELECT [NAME ARABIC] FROM TABELSIMCARD WHERE [NAME ARABIC] = '" & Me.D2 & "'", dbOpenSnapshot) If Not rst.EOF Then ' إذا تم العثور على السجل، فذلك يعني أن الاسم موجود nameExists = True End If rst.Close Set rst = Nothing Set db = Nothing ' إذا كان الاسم موجودًا بالفعل، عرض رسالة تحذيرية وعدم الحفظ If nameExists Then MsgBox "الاسم '" & Me.D2 & "' الموظف موجود مسبقاً في نظام الكشوفات الخاصة ببطاقات الهاتف.", vbExclamation Else End If

شكرا

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

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

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

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

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

Private Sub MOB_BeforeUpdate(Cancel As Integer) Dim stDocName As String Dim stLinkCriteria As String Dim strSubFormControl As String ' اسم النموذج الفرعي داخل النموذج الرئيسي strSubFormControl = "subfrmETSALATSIMCARD" ' تحقق من وجود رقم الجوال في جدول TABELSIMCARD If Not IsNull(DLookup("[NOMOBAIL]", "TABELSIMCARD", "[NOMOBAIL] = '" & Forms!frmMain.Controls(strSubFormControl).Form!NOMOBAIL & "'")) Then ' فتح النموذج ACSSEC_TKRAR1 DoCmd.OpenForm "ACSSEC_TKRAR1" ' عرض رسالة تنبيه MsgBox "العنصر تم تحويلك إلى شاشة تكرار البيانات", vbExclamation, "تكرار البيانات" ' إلغاء عملية التحديث Cancel = True ' إعداد المتغيرات لفتح نموذج ETSALATSIMCARDVIEW مع الشروط stDocName = "ETSALATSIMCARDVIEW" stLinkCriteria = "[NOMOBAIL] = '" & Me!NOMOBAIL & "'" ' عرض رسالة تنبيه أخرى MsgBox "الذهاب إلى شاشة تكرار السجلات", vbInformation, "تكرار البيانات" ' فتح النموذج ETSALATSIMCARDVIEW مع الشروط المحددة DoCmd.OpenForm stDocName, , , stLinkCriteria End If ' استخدام SendKeys لتحديد محتوى الحقل SendKeys "{F2}", False End Sub ممكن تعديل الكود لانه لا يضبط معي

السلام عليكم 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 اريد تعديل

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

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