اذهب الي المحتوي
أوفيسنا

alaa111

عضو جديد 01
  • Content Count

    37
  • تاريخ الانضمام

  • تاريخ اخر زياره

كل منشورات العضو alaa111

  1. حل مشكله run time error 70 permission denied
  2. السلام عليكم الرجاء المساعده فى ضبط الفورم عندما اقوم بعمل check in بعض البيانات صحيح والبعض الاخر غير صحيح . وعندما اعمل حجز جديد يتم حذف الحجز القديم ثانيا و عندما يتم حجز غرفه المفروض يتم عمل Booked امام رقم الغرفه فى شيت Bedinfo الرجاء ظبط الفورم 111111111111..xlsm
  3. مرفق قاعده بيانات اكسس بها جدولين جدول Charge Type . مرتبط بجدول اخر هل ممكن اعمل بالاكسيل هذا الارتباط بين شيتين فى صف واجد واذا كان ممكن عمل ذلك كيف يتم بهذه الطريقه وشكرا لحضرتك New Microsoft Access قاعدة بيانات.accdb
  4. يعطى رساله خطا على 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
  5. شكرا لحضرتك أ أحمد يوسف تعبتك معايا وربنا يكرمك ان شاء اللة حضرتك عند اختيار كشف الحساب فارغ وايضا حساب فارغ كشف حساب 1-عام 2-مخصص (حساب 1 - ايراد نقدى 2- مصروفات 3- ايراد بشيكات 4- تحويل للحساب 5- ايراد ايجارات 6- سلف الموظفين 7- مرتبات 8- مشتريات ولو ممكن اغير السنوات من فين اريد ان اعرف الفكره وشكرا لحضرتك
  6. السلام عليكم الرجاء المساعده فى ضبط فورم ايرادات ومصروفات عندما اضغط على مصروف او الايراد يعطى رساله خطأ كذلك لا يظهر نوع السند كما هو موضح فى شيت 1 وعندما اضغط على عمليات تظهر حركه اليوم فى الليست بوكس الرجاء مساعدتى فى ضبط الفورم EX&Income..xlsm
  7. السلام عليكم أ /Ali Mohamed Ali شكرا لحضرتك وربنا يجعلو فى ميزان حسناتك
  8. السلام عليكم شكرا لحضرتك أ / الرائد ولكن توجد مشكله فى الكود الرجاء المساعده من فضلك وربنا يكرمك عندما يتم البحث من خلال السيريل واريد خدمه من فضلك اريد رقم السريل يكون تلقائى عند كل حجز جديد وشكرا لحضرتك Reservation HOTEL(2020).xlsm
  9. السلام عليكم الرجاء مساعدتى فى كود البحث يظهر خطا عندما اقوم بالبحث يوجد خطا فى هذا الجزء ( باللون الازرق ) من الكود الرجاء مساعدتى فى تصحيح هذا الخطا 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
  10. السلام عليكم الرجاء مساعدتى فى جلب بيانات من شيت Database الى شيت SCERCH بناء على تاريخ اليوم Reservation Form (1) (1).xlsm
  11. السلام عليكم الرجاء حل مشكله عدم حفظ البيانات Reservation Form (1) (1).xlsm
  12. السلام عليكم شكرا أ/ عبدالفتاح ولكن حضرتك الغرفه تظل محجوزه حتى بعد انتهاء تاريخ المغادره اريد بعد تاريخ المغادره ترجع غير محجوزة مره اخرى الرجاء مساعدتى وشكرا لحضرتك Hotel Reservation Daily000 (1).xlsm
  13. الرجاء تصحيح المعادلة عندما يتم حجز غرفه فى sheet room reservation يعطى فى sheet Avalapilty امام رقم الغرفه محجوزه او غير محجوزه والغرف التى لم يتم حجزها تعطى امامها انها غير محجوزة Hotel Reservation Daily .xls
  14. السلام عليكم استاذ / امين شكرا لحضرتك طلب اخر من فضلك الليست بوكس ناقص Amount , Balanc ثانيا محتاج كود فى ( Days) الفرق بين تاريخين . وكذلك Amount و Balance لماذا يوجد مشكله عند عمل حفظ ( Submit ) ولا يتم الحفظ
  15. الليست بوكس لا يقبل اكثر من 9 وكذلك مشكله فى كود التاريخ ( arrival - depature ) المشكله الثانيه عند الحفظ لا تظهر البيانات Reservation Form (1).xlsm
  16. السلام عليكم شكرا الاستاذ/ شريف ولكن يوجد مشكله فى الليست بوكس . كما ان الليست بوكس ناقص ولا اعرف ما هى المشكله وعندما اريد حفظ البيانات لا يتم الحفظ الرجاء مساعدتى فى حلها Reservation Form (1).xlsm
  17. الرجاء حل مشكله اليوزر فورم فى عدم الظهور والعمل بطريقه صحيحة مع العلم تم عمل الاكواد ولا اعرف اين المشكله جزاكم الله خيرا Reservation Form.xlsm
  18. المصنف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 اريد ضبط الكود حتى يعمل بشكل صحيح اريد الاستعلام حالة الوصول او الاسم او برقم الغرفة
  19. الف شكر لك استاذى الكريم Ali Mohamed Ali ولكن انا مبتدا واحاول التعلم من حضرتك والاساتذة الافاضل بالمنتدى ولكن حضرتك فى استعلام بصفحة Reservation عندما يتم عمل Check in للغرفة يتم تحويلها الى صفحة Check in ارجو من حضرتك ان تفيدنى فى ذلك ولحضرتك جزيل الشكر والتقدير الف شكر لحضرتك تعبتك معايا وربنا يجعل كل هذا فى ميزان حسناتك وربنا يزيدك من علمة الف شكر يا استاذ على
  20. شكرا لحضرتك وربنا يجعل هذا فى ميزان حسناتك اريد عمل استعلام اخر لو سمحت حضرتك شكرا لحضرتك استعلام.xlsm
  21. السلام عليكم اساتذتى الكرام ,أرجو التكرم على مساعدتى فى عمل استعلام وجلب بيانات بين تواريخ مختلفة بارك الله فيكم جميعا تم تحديث الملف النهائى هنا استعلام.xlsm
×
×
  • اضف...