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