• الإعلانات

    • فيصل الحربي

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

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

محمد عوض

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

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

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

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

1 عادي

عن محمد عوض

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

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

  • الجنس ذكر

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

222 زياره للملف الشخصي
  1. استبدل التعبير السابق بالتعبير التالي:   Expr1: DCount("عربي_التقدير";"استعلام عربي";"عربي_التقدير='جيد' and الصف='السادس'")  
  2. ضع الكود التالي في حدث عند النقر لزر الأمر: DoCmd.SetWarnings False DoCmd.OpenQuery "Q1" DoCmd.OpenQuery "Q2" DoCmd.OpenQuery "Q3" DoCmd.SetWarnings True  
  3. إليك هذه المحاولة وأرجو أن تكون حسب طلبك. تصفية القوائم المنسدلة.rar
  4. المرفق FieldVisible.rar
  5. تفضل الكود ، سيقوم هذا الكود بإخفاء الحقول تبعاً لمسمياتها 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  
  6. وعليكم السلام ورحمة الله وبركاته اكتب في الكود لمربع النص بين علامتي النص الأولى "ريال" والثانية "هللة" سيكون الكود كالتالي:   الرقم_كتابة = NoToTxt(الرقم, "ريال", "هللة")   Tafkeet.mdb