alaa1122

السلام عليكم عندى مشكله عند عملية حفظ البيانات فى شيت DATABASE .

واريد معادلة طرح من 

عندى مشكله فى يوزر فورم 2

عند عمليه  بحث عن اى رقم سيريل  وتعديل البيانات وحفظ البيانات  مره اخرى يظهر خطا فى هذا الكود

For i = 2 To Application.WorksheetFunction.CountA(Database.Range("A:B"))

عمليه الطرح داخل اليوزر فورم

Amount paid- Balance

Reservation HOTEL(2020).xlsm

الرجاء تصحيح كود البحث 

BOOKING-Form-in-Excel.xlsm

الرجاء تصحيح كود البحث 

وتعبئه الكمبوكس من شيت Support

تكرار نفس المشاركات سيعرض جميع مشاركاتك للحذف او الحذر

admin

ما هو الخطا فى هذا الكود يعطى رساله خطا فى السطر المظلل باللون الاخضر

عنوان مخالف .... تم تعديل عنوان المشاركة ليعبر أكثر عن طلبك

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