• الإعلانات

    • فيصل الحربي

      تسجيل عضوية جديدة في المنتدى   01/31/2016

      السلام عليكم ورحمة الله وبركاته  عزيزي العضو الجديد :  حاليا رسالة الإيميل لتأكيد صحة إيميلكم تذهب للبريد العشوائي ( جاري حل المشكلة )  فإذا لم تجد رسالة التحقق من إيميلكم في صندوق الوارد لديكم إتجه للبريد العشوائي ( JUNK)  وقم بتفعيل إشتراككم من هناك   

محمد عوض

اعضاء جدد
  • عدد المشاركات

    11
  • تاريخ الانضمام

  • تاريخ اخر زياره

السمعه بالموقع

1 عادي

عن محمد عوض

  • الرتبة
    عضو جديد

معلومات الملف الشخصي

  • الجنس ذكر

أحدث الزائرين لملفلك الشخصي

634 زياره للملف الشخصي
  1. مثال للبحث بجزء من الاسمsearch.rarالبحث في مربع قائمة.mdb
  2. تكملة تلقائية

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

    وعليكم السلام ورحمة الله وبركاته: الصق الكود التالي في حدث للنموذج عند التحميل: 'تخفيض مستوى أمان الأكسس CreateObject("WScript.Shell").RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Office\" & Application.Version & "\Access\Security\" & IIf(Application.Version < 12, "Level", "VBAWarnings"), "1", "REG_DWORD" يقوم هذا الكود بتعديل جميع نسخ الآكسيس
  4. الصق الكود التالي في خصائص نص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 CurrentDb.Execute "INSERT INTO [تسجيل الحركة] ( [رقم الموظف], " & Me.نص2 & " )" _ & " SELECT " & Me.نص0 & ", " & Me.نص5 & ";" MsgBox "تم تسجيل الحركة للموظف رقم: " & Me.نص0, , "تم التسجيل"  
  5. استبدل التعبير السابق بالتعبير التالي:   Expr1: DCount("عربي_التقدير";"استعلام عربي";"عربي_التقدير='جيد' and الصف='السادس'")  
  6. ضع الكود التالي في حدث عند النقر لزر الأمر: DoCmd.SetWarnings False DoCmd.OpenQuery "Q1" DoCmd.OpenQuery "Q2" DoCmd.OpenQuery "Q3" DoCmd.SetWarnings True  
  7. إليك هذه المحاولة وأرجو أن تكون حسب طلبك. تصفية القوائم المنسدلة.rar
  8. المرفق FieldVisible.rar
  9. تفضل الكود ، سيقوم هذا الكود بإخفاء الحقول تبعاً لمسمياتها 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  
  10. وعليكم السلام ورحمة الله وبركاته اكتب في الكود لمربع النص بين علامتي النص الأولى "ريال" والثانية "هللة" سيكون الكود كالتالي:   الرقم_كتابة = NoToTxt(الرقم, "ريال", "هللة")   Tafkeet.mdb