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

alaa1122

عضو جديد 01
  • Posts

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

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

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

0 Neutral

عن العضو alaa1122

البيانات الشخصية

  • Gender (Ar)
    ذكر
  • Job Title
    male
  • البلد
    egypt
  • الإهتمامات
    spurt
  1. السلام عليكم عندى مشكله عند عملية حفظ البيانات فى شيت DATABASE . واريد معادلة طرح من عندى مشكله فى يوزر فورم 2 عند عمليه بحث عن اى رقم سيريل وتعديل البيانات وحفظ البيانات مره اخرى يظهر خطا فى هذا الكود For i = 2 To Application.WorksheetFunction.CountA(Database.Range("A:B")) عمليه الطرح داخل اليوزر فورم Amount paid- Balance Reservation HOTEL(2020).xlsm
  2. الرجاء تصحيح كود البحث BOOKING-Form-in-Excel.xlsm الرجاء تصحيح كود البحث وتعبئه الكمبوكس من شيت Support تكرار نفس المشاركات سيعرض جميع مشاركاتك للحذف او الحذر admin
  3. ما هو الخطا فى هذا الكود يعطى رساله خطا فى السطر المظلل باللون الاخضر عنوان مخالف .... تم تعديل عنوان المشاركة ليعبر أكثر عن طلبك Private Sub TextBox20_AfterUpdate() Dim ifound As VbMsgBoxResult Sheet2.Activate If WorksheetFunction.CountIf(Sheet2.Range("a:a"), Me.TextBox20.Value) = 0 Then ifound = MsgBox("item not found!confirm if you want to add itme?", vbQuestion + vbYesNo, "vlookup system") If ifound = vbYes Then cmdAddNew.Enabled = True Me.TextBox20.SetFocus ElseIf vbNo Then cmdAddNew.Enabled = False Me.TextBox20.Text = "" End If Exit Sub End If Dim q, i As Long q = Application.WorksheetFunction.CountA(Sheet2.Range("A:A")) For i = 1 To 24 (Me("TextBox" & i).Value = Application.WorksheetFunction.VLookup(CLng(Me.TextBox20), Sheet2.Range("lookings"), i) Next i End Sub New Microsoft Excel Worksheet.xlsx
×
×
  • اضف...

Important Information