تصحيح كود البحث وتعبئه الكمبوكس من شيت Support

[alaa111]

السلام عليكم

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

يوجد خطا فى هذا الجزء ( باللون الازرق )

من الكود الرجاء مساعدتى فى تصحيح هذا الخطا

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

[الرائد77]

تم تصحيح الاخطاء

Reservation Form (111) (1).xlsm

[alaa111]

السلام عليكم

شكرا لحضرتك أ /  الرائد

ولكن توجد مشكله فى الكود الرجاء المساعده من فضلك وربنا يكرمك

عندما يتم البحث من خلال السيريل

واريد خدمه من فضلك

اريد رقم السريل يكون تلقائى عند كل حجز جديد 

وشكرا لحضرتك

Reservation HOTEL(2020).xlsm

[الرائد77]

أخي  تم إجابة طلبك و الكود يعمل بدون أي مشاكل.

أنت  أرفقت ملف آخر جديد  و بطلب جديد .  كان  عليك أان تضعه في موضوع جديد. و لكن لا تقل توجد  مشكلة بالكود  . لأن الكود قد يستفيد منه أعضاء المنتدى.

[a.kawkab]

فعلا الكود شغال وبيعمل جيدا

[أحمد يوسف]

  

  alaa111

فين انت من ده كله ... وده أقل ما يقدم لصاحب الفضل عليك بعد ربنا فى حل مشكلتك؟!!!!!!!!!

فالكود والملف يعملان بكل كفاءة ولا تبخس الناس حقوقهم ,هو كده جزاء المعروف والله غلطان اللى يقدم مساعدة لك تانى بعد ده كله

أين الضغط على الإعجاب لهذه الإجابة الممتازة ؟!!!💙

[alaa1122]

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

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

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

[alaa1122]

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

BOOKING-Form-in-Excel.xlsm

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

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

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

admin

 

[Ahmed Hosny]

احسنت اخى العزيز كود رائع