alaa111 قام بنشر يونيو 22, 2020 قام بنشر يونيو 22, 2020 السلام عليكم الرجاء مساعدتى فى كود البحث يظهر خطا عندما اقوم بالبحث يوجد خطا فى هذا الجزء ( باللون الازرق ) من الكود الرجاء مساعدتى فى تصحيح هذا الخطا 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 قام بنشر يونيو 22, 2020 قام بنشر يونيو 22, 2020 تم تصحيح الاخطاء Reservation Form (111) (1).xlsm 2
alaa111 قام بنشر يونيو 22, 2020 الكاتب قام بنشر يونيو 22, 2020 السلام عليكم شكرا لحضرتك أ / الرائد ولكن توجد مشكله فى الكود الرجاء المساعده من فضلك وربنا يكرمك عندما يتم البحث من خلال السيريل واريد خدمه من فضلك اريد رقم السريل يكون تلقائى عند كل حجز جديد وشكرا لحضرتك Reservation HOTEL(2020).xlsm
الرائد77 قام بنشر يونيو 22, 2020 قام بنشر يونيو 22, 2020 أخي تم إجابة طلبك و الكود يعمل بدون أي مشاكل. أنت أرفقت ملف آخر جديد و بطلب جديد . كان عليك أان تضعه في موضوع جديد. و لكن لا تقل توجد مشكلة بالكود . لأن الكود قد يستفيد منه أعضاء المنتدى.
أحمد يوسف قام بنشر يونيو 22, 2020 قام بنشر يونيو 22, 2020 alaa111 فين انت من ده كله ... وده أقل ما يقدم لصاحب الفضل عليك بعد ربنا فى حل مشكلتك؟!!!!!!!!! فالكود والملف يعملان بكل كفاءة ولا تبخس الناس حقوقهم ,هو كده جزاء المعروف والله غلطان اللى يقدم مساعدة لك تانى بعد ده كله أين الضغط على الإعجاب لهذه الإجابة الممتازة ؟!!!💙
alaa1122 قام بنشر يونيو 23, 2020 قام بنشر يونيو 23, 2020 ما هو الخطا فى هذا الكود يعطى رساله خطا فى السطر المظلل باللون الاخضر عنوان مخالف .... تم تعديل عنوان المشاركة ليعبر أكثر عن طلبك 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 قام بنشر يونيو 23, 2020 قام بنشر يونيو 23, 2020 الرجاء تصحيح كود البحث BOOKING-Form-in-Excel.xlsm الرجاء تصحيح كود البحث وتعبئه الكمبوكس من شيت Support تكرار نفس المشاركات سيعرض جميع مشاركاتك للحذف او الحذر admin
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.