محمد عوض

مثال للبحث بجزء من الاسم search.rar البحث في مربع قائمة.mdb

نعم يمكن عمل ذلك الصق الكود التالي في حدث عند فتح النموذج: Me.Person_in_charge.InputMask = "999/""" & Year(Date) & """"

وعليكم السلام ورحمة الله وبركاته: الصق الكود التالي في حدث للنموذج عند التحميل: 'تخفيض مستوى أمان الأكسس CreateObject("WScript.Shell").RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Office\" & Application.Version & "\Access\Security\" & IIf(Application.Version…

الصق الكود التالي في خصائص نص2 في حدث (بعد التحديث) If IsNull(Me.نص5) Then Me.نص2 = Null MsgBox "اكتب قيمة الإيراد" Me.نص5.SetFocus Exit Sub ElseIf IsNull(Me.نص0) Then Me.نص2 = Null MsgBox "اختر رقم الموظف" Me.نص0.SetFocus Me.نص0.Dropdown Exit Sub End If Curre…

استخدم طريقة الماكرو المضمن

استبدل التعبير السابق بالتعبير التالي: Expr1: DCount("عربي_التقدير";"استعلام عربي";"عربي_التقدير='جيد' and الصف='السادس'")

ضع الكود التالي في حدث عند النقر لزر الأمر: DoCmd.SetWarnings False DoCmd.OpenQuery "Q1" DoCmd.OpenQuery "Q2" DoCmd.OpenQuery "Q3" DoCmd.SetWarnings True

إليك هذه المحاولة وأرجو أن تكون حسب طلبك. تصفية القوائم المنسدلة.rar

المرفق FieldVisible.rar

تفضل الكود ، سيقوم هذا الكود بإخفاء الحقول تبعاً لمسمياتها Dim ctl As Control For Each ctl In Me.Controls Select Case ctl.ControlType Case acTextBox ctl.Visible = True If Val(ctl.Name) <= Me.cmp Then ctl.Visible = False End If End Select Next ctl

وعليكم السلام ورحمة الله وبركاته اكتب في الكود لمربع النص بين علامتي النص الأولى "ريال" والثانية "هللة" سيكون الكود كالتالي: الرقم_كتابة = NoToTxt(الرقم, "ريال", "هللة") Tafkeet.mdb