اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

ابو عارف

الخبراء
  • Posts

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

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

  • Days Won

    2

مشاركات المكتوبه بواسطه ابو عارف

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

    5 ساعات مضت, محمد احمد لطفى said:

    المطلوب 

    عدم حساب الصفحة الفارغة رقم  

    1 - الصفحة الاولى 1 , الصفحة الفارغة  , الصفحة الثاثة 2 , وهكذا

    استاذ محمد ، غير مصدر مربع "نص14" الى: 

    ="صفحة " & [Page]\2+1 & " من " & [Pages]\2+1

     

    • Like 1
    • Thanks 1
  2. في ١٠‏/١١‏/٢٠٢٠ at 18:47, jjafferr said:

    لحدث اللي عملته انت ، حدث "عند التغيير" سيسبب لك بطء شديد اذا وضعت قاعدة البيانات على الشبكة ، لذا انصحك بوضع البحث على زر البحث

    كلام صحيح مئة في المئة حتى لو على درايف محلي مع زيادة سجلات سيسبب البطء

    ولكن مع قلة سجلات اقل من 100000 مثلاً و في درايف محلي  فلا بأس بطريقة بحث مع تقدم كتابة كما في المرفق

     عادل.rar

  3. تفضل أخي بعد كتابة رقم القومي اضغط على زر انتر

    Aziz (1).rar

    Rem === كود لتعبئة حقل الجتس تلقائي بناء على الرقم الوطني====
    
       Call Gender
       PIRTH_DATE.SetFocus
       
          Rem ==== كود يقوم بالتحقق من صحة الرقم الوطني====
       
      If Left(Me.CODE, 1) <> 1 And Left(Me.CODE, 1) <> 2 Then
                MsgBox "عذراً الرقم الذي ادخلته غير صحيح" & Chr(13) & "أعد إدخال الرقم الوطني بشكل صحيح"
                Me.CODE = ""
                Me.CODE.SetFocus
                Cancel = True
            ElseIf Len(Me.CODE & "") <> 12 Then
                MsgBox "ادخل الرقم الوطني"
                Me.CODE = ""
                Me.CODE.SetFocus
                Cancel = True
        End If
        
    PIRTH_DATE.SetFocus
    PIRTH_DATE.SelStart = 6
      SendKeys Mid(CODE, 2, 4)
      SendKeys "{LEFT 8}"

     

×
×
  • اضف...

Important Information