alaa111

السلام عليكم الرجاء المساعده فى كود حفظ البيانات حيث يتم الحفظ فى السطر الاخير من الصفحه فى اليومية الرجاء تصحيح الخطأ يومية امريكية وميزان مراجعة.xlsm

شكرا لحضرتك أ kha9009lid ربنا يجعلو في ميزان حسناتك

عندى اوفيس 2010 البرنامج لا يفتح يعطي رساله the database you are trying to open requires a newer version microsoft access مرفق البرنامج برنامج اعداد الحسابات والقوائم والتقارير المالية.rar

شكرا لحضرتك

حل مشكله run time error 70 permission denied

مرفق قاعده بيانات اكسس بها جدولين جدول Charge Type . مرتبط بجدول اخر هل ممكن اعمل بالاكسيل هذا الارتباط بين شيتين فى صف واجد واذا كان ممكن عمل ذلك كيف يتم بهذه الطريقه وشكرا لحضرتك New Microsoft Access قاعدة بيانات.accdb

شكرا لحضرتك أ Ali Mohamed Ali

يعطى رساله خطا على End sub Private Sub CommandButton1_Click() On Error Resume Next ' to prepare requlred data for remaining columns of our sheet trow = Sheet3.Cells(Rows.Count, 1).End(xlUp).row For X = 4 To trow Sheet2.Cells(trow, 1) = TextBox1.Value Sheet2.Cells(trow, 3) = TextBox3.Value Sheet2.Cells(trow, 4) = TextBox4.Value Sheet2.Cells(trow, 5) = TextBox5.Value Sheet2.Cells(trow, 6) = ComboBox1.Value Sheet2.Cells(trow, 😎 = TextBox7.Value Sheet2.Cells(trow, 7) = TextBox6.Value Sheet2.Cells(trow, 9) = lblfloor.Caption Sheet2.Cells(trow, 10) = lblroomtype.Caption Sheet2.Cells(trow, 11) = Label17.Caption Sheet2.Cells(trow, 12) = Label18.Caption Sheet2.Cells(trow, 15) = Label19.Caption ' for outo and unique trasaction no Sheet2.Cells(trow, 19) = Sheet2.Cells(trow = 1, 19) + 1 Unload UserForm4 UserForm4.show End Sub Form..xlsm

شكرا لحضرتك أ أحمد يوسف تعبتك معايا وربنا يكرمك ان شاء اللة حضرتك عند اختيار كشف الحساب فارغ وايضا حساب فارغ كشف حساب 1-عام 2-مخصص (حساب 1 - ايراد نقدى 2- مصروفات 3- ايراد بشيكات 4- تحويل للحساب 5- ايراد ايجارات 6- سلف الموظفين 7- مرتبات 8- مشتريات ولو ممكن اغير السنوات من فين اريد ان اعرف الفكره وشكرا لحضرتك

شكرا لحضرتك مجهود كبير بارك الله فيك

السلام عليكم الرجاء المساعده فى ضبط فورم ايرادات ومصروفات عندما اضغط على مصروف او الايراد يعطى رساله خطأ كذلك لا يظهر نوع السند كما هو موضح فى شيت 1 وعندما اضغط على عمليات تظهر حركه اليوم فى الليست بوكس الرجاء مساعدتى فى ضبط الفورم EX&Income..xlsm

السلام عليكم أ /Ali Mohamed Ali شكرا لحضرتك وربنا يجعلو فى ميزان حسناتك

السلام عليكم شكرا لحضرتك أ / الرائد ولكن توجد مشكله فى الكود الرجاء المساعده من فضلك وربنا يكرمك عندما يتم البحث من خلال السيريل واريد خدمه من فضلك اريد رقم السريل يكون تلقائى عند كل حجز جديد وشكرا لحضرتك Reservation HOTEL(2020).xlsm

السلام عليكم الرجاء مساعدتى فى كود البحث يظهر خطا عندما اقوم بالبحث يوجد خطا فى هذا الجزء ( باللون الازرق ) من الكود الرجاء مساعدتى فى تصحيح هذا الخطا 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

السلام عليكم الرجاء مساعدتى فى جلب بيانات من شيت Database الى شيت SCERCH بناء على تاريخ اليوم Reservation Form (1) (1).xlsm

السلام عليكم الرجاء حل مشكله عدم حفظ البيانات Reservation Form (1) (1).xlsm

السلام عليكم شكرا أ/ عبدالفتاح ولكن حضرتك الغرفه تظل محجوزه حتى بعد انتهاء تاريخ المغادره اريد بعد تاريخ المغادره ترجع غير محجوزة مره اخرى الرجاء مساعدتى وشكرا لحضرتك Hotel Reservation Daily000 (1).xlsm

الرجاء تصحيح المعادلة عندما يتم حجز غرفه فى sheet room reservation يعطى فى sheet Avalapilty امام رقم الغرفه محجوزه او غير محجوزه والغرف التى لم يتم حجزها تعطى امامها انها غير محجوزة Hotel Reservation Daily .xls

السلام عليكم استاذ / امين شكرا لحضرتك طلب اخر من فضلك الليست بوكس ناقص Amount , Balanc ثانيا محتاج كود فى ( Days) الفرق بين تاريخين . وكذلك Amount و Balance لماذا يوجد مشكله عند عمل حفظ ( Submit ) ولا يتم الحفظ

الليست بوكس لا يقبل اكثر من 9 وكذلك مشكله فى كود التاريخ ( arrival - depature ) المشكله الثانيه عند الحفظ لا تظهر البيانات Reservation Form (1).xlsm

السلام عليكم شكرا الاستاذ/ شريف ولكن يوجد مشكله فى الليست بوكس . كما ان الليست بوكس ناقص ولا اعرف ما هى المشكله وعندما اريد حفظ البيانات لا يتم الحفظ الرجاء مساعدتى فى حلها Reservation Form (1).xlsm

الرجاء حل مشكله اليوزر فورم فى عدم الظهور والعمل بطريقه صحيحة مع العلم تم عمل الاكواد ولا اعرف اين المشكله جزاكم الله خيرا Reservation Form.xlsm

المصنف03.xlsx Sub ÇÓÊÏÚÇÁ() On Error Resume Next If [B4] = "" And [C4] = "" And [E4] = "" Then MsgBox "íÌÈ ÇÎÊíÇÑ ÍÓÇÈ ÈÏáÇáÉ ÇáÍÇáÉ Çæ ÇÓã ÇáäÒíá Çæ ÇÎÊÇÑ ÑÞã ÇáÛÑÝÉ", vbInformation + vbMsgBoxRight, "ÊäÈíå" Else [B9:H200].ClearContents [B6] = "" & [K1] Application.ScreenUpdating = False For x = 9 To Sheets.Count MySheets = Sheets(x).Name If Sheets(MySheets).Name = "Search" Then Exit For For R = 3 To Sheets(MySheets).[c1500].End(xlUp).Row If (Sheets(MySheets).Cells(R, 5) = [B4] Or Sheets(MySheets).Cells(R, 10) = [C4] Or Sheets(MySheets).Cells(R, 1) = [E4]) And (Sheets(MySheets).Cells(R, 2) >= [G4] And Sheets(MySheets).Cells(R, 4) <= [H4]) Then With Sheets("ÇáÞíæÏ").[B200].End(xlUp) .Offset(1, 0) = Sheets(MySheets).Cells(R, 1) .Offset(1, 1) = Sheets(MySheets).Cells(R, 10) .Offset(1, 2) = Sheets(MySheets).Cells(R, 2) .Offset(1, 3) = Sheets(MySheets).Cells(R, 3) .Offset(1, 4) = Sheets(MySheets).Cells(R, 4) .Offset(1, 5) = Sheets(MySheets).Cells(R, 5) .Offset(1, 6) = Sheets(MySheets).Cells(R, 6) End With End If Next R Next x Application.ScreenUpdating = True MsgBox "!Êã ÇÓÊÎÑÇÌ ÇáßÔÝ ÇáãØáæÈ ÈäÌÇÍ", vbInformation + vbMsgBoxRight, "Êã ÇáÇÓÊÎÑÇÌ" [B4:E4].ClearContents End If End Sub اريد ضبط الكود حتى يعمل بشكل صحيح اريد الاستعلام حالة الوصول او الاسم او برقم الغرفة

الف شكر لك استاذى الكريم Ali Mohamed Ali ولكن انا مبتدا واحاول التعلم من حضرتك والاساتذة الافاضل بالمنتدى ولكن حضرتك فى استعلام بصفحة Reservation عندما يتم عمل Check in للغرفة يتم تحويلها الى صفحة Check in ارجو من حضرتك ان تفيدنى فى ذلك ولحضرتك جزيل الشكر والتقدير الف شكر لحضرتك تعبتك معايا وربنا يجعل كل هذا فى ميزان حسناتك وربنا يزيدك من علمة الف شكر يا استاذ على

شكرا لحضرتك وربنا يجعل هذا فى ميزان حسناتك اريد عمل استعلام اخر لو سمحت حضرتك شكرا لحضرتك استعلام.xlsm