السلام عليكم
الرجاء مساعدتى فى كود البحث يظهر خطا عندما اقوم بالبحث
يوجد خطا فى هذا الجزء ( باللون الازرق )
من الكود الرجاء مساعدتى فى تصحيح هذا الخطا
Private Sub ComboBox1_Change()
Application.ScreenUpdating = False
'rest
On Error Resume Next
shDatabase.Activate
III = 2
Do Until shDatabase.Cells(III, "A").Text = ""
If Me.ComboBox1.Text = shDatabase.Cells(III, "A").Text Then
Cells(III, "A").Activate
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Me.txtName = ActiveCell.Offset(0, 0).Text
Me.txtaddress = ActiveCell.Offset(0, 1).Text
Me.txtarrival = ActiveCell.Offset(0, 2).Text
Me.Txtdepartue = ActiveCell.Offset(0, 3).Text
Me.Txtdays = ActiveCell.Offset(0, 4).Text
Me.Txtadult = ActiveCell.Offset(0, 5).Text
Me.cmbroom = ActiveCell.Offset(0, 6).Text
Me.cmbmeals = ActiveCell.Offset(0, 7).Text
Me.cmbstatus = ActiveCell.Offset(0, 8).Text
Me.cmbroomtype = ActiveCell.Offset(0, 9).Text
Me.TxtReat = ActiveCell.Offset(0, 10).Text
Me.Txtcharge = ActiveCell.Offset(0, 11).Text
Me.Txttotal = ActiveCell.Offset(0, 12).Text
Me.TxtAmount = ActiveCell.Offset(0, 13).Text
Me.TxtBalance = ActiveCell.Offset(0, 14).Text
Reservation Form (111) (1).xlsm