هاني بدر

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

السلام عليكم ورحمة الله وبركاته الاخ الفاضل ابوعبدالله كم اشتاق لكلامك الطيب واشتاق اكثر لحماسك المعهود واتمنى من الله ان يوفقنا جميعا في اخراج هذا العمل وسابدا بعون الله في عرض مدخلات البرنامج ومخرجاته بشكل مبسط حتى يتم التسهيل على السادة المشاركين فكرة البرنامج في قصة قصيرة عبارة عن * مؤسسة فندقية بها عدد من الغرف ذات طبيعة محددة يتوقف عليها سعر الاقامة بالغرفة * نزلاء يتوافدون الى المؤسسة للإقامة واثناء الاقامة يمكنهم الاستفادة بما يعرضه الفندق من خدمات تضاف قيمتها على قيمة اقامة النزيل * طبيعة النزلاء اما بشكل فردي Individual وهو مايعني ان كل ماتم تحميله من مبالغ على حساب الغرفة يجب تحصيله في نهاية مدة اقامة الغرفة Groups وهو مايعني ان النزيل جاء بموجب مستند رسمي صادر من وكيله السياحي المبرم عقد بينه وبين المؤسسة مسبقا موضحا فيه بيانات النزيل وجنسيته وعدد الافراد المرافقين الى اخره من هذه البيانات وفي هذه الحالة يتم مغادرة النزيل وتحويل رصيده(إقامة فقط ) المدين في المؤسسة الى رصيد الوكيل السياحي ولكن يتم محاسبة النزيل فقط على ما استفاد به من خدمات بمقابل وهو مايسمى Extras وهناك انواع نزلاء ذات طبيعة مختلفة مثل اصحاب المؤسسة ويتم احتساب كافة تكاليف اقامتهم وغلقها في حساب المصروفات وهو مايسمى House Use وايضا هناك نزلاء الضيافة ويعاملون معاملة اصحاب المؤسسة وهو مايسمى Complimentary وعليه فنحن وفي عرف المحاسبين كل خطوة يترتب عليها استحقاق مبالغ للمؤسسة سيتم تسجيلها وكذلك كل التزام سينشا على المؤسسة سيتم تسجيله ايضا وارجو ان اكون قد اوضحت طبيعة الحركات داخل المؤسسة الفندقية لذلك سابدا باذن الله بطلب اول فورم ادخال بيانات اولا فورم تعريف الغرف وهم اربع انواع وفي اماكن اخرى قد تزيد او تقل او تختلف في المسميات كل فندق وحسب انشائاته ولذلك ساقوم في كل خطوة ان شاء الله بترك المجال مفتوح للتغيير والتعديل انواع الغرف هي Standard Sea View Front Sea View Other Views وليكن مسمى الفورم Room Type والفورم الثاني سيكون للتعريف بالغرف نفسها وتحديد طبيعتها بناء على الفورم الاول بمعنى 101 Standard 102 Sea View 103 Front Sea View وهكذا وليكن مسمى الفورم Rooms Numbers ولتكن الصفحة المخصصة لادراج البيانات السابقة هي صفحة التعريفات Identificatios في انتظار البدء وليوفقنا الله جميعاً هاني بدر

السلام عليكم ورحمة الله وبركاته كنت قد اشتركت من فترة مع الاخ الفاضل ابوعبدالله والذي اكن له كل احترام وتقدير مثله مثل كل مشرفي ومديري القسم واعضاؤه الاجلاء اشتركنا في عمل برنامج مخزون مطاعم وفنادق والحمد لله كان برنامج ناجح بدرجة كبيرة جدا وهو من احد المواضيع المثبتة في هذا الصرح العظيم ( اوفيسنا ) والان انا بصدد تنفيذ برنامج متكامل معني بالدرجة الاولى بحسابات النزلاء وعلاقتها بشركات السياحة وكما هو واضح من عنوان الموضوع فالمطلوب هو تضافر جهود خبرات الاخوة المبرجين وما اكثرهم وما احلاهم وهم متالقون ومبدعون وهذا هو طرف المعادلة الاول واما الطرف الثاني فانا اعلم قلة وجود خبرات محاسب محاسبة الفنادق على الاقل في التواجد داخل هذا المنتدى العظيم واسمحوا لي انا اقوم انا بهذا الدور وارجو ان يوفقني الله في صب جم قدراتي وخبراتي المحاسبية في هذا المجال ويحضرني في هذا الصدد ان ابلغكم بان تكلفة شراء مثل هذه البرامج التي تختص بحسابات النزلاء في الفنادق قد تصل الى 200 الف جنيه وهذا رقم ليس مبالغا فيه واصدقكم القول بانني ساقوم بتسهيل الموضوع لكل من سيشاركونا العمل حتى نتمكن من اخراج عمل اعلم جيداً انه سيكون علامة فارقة في هذا المنتدى لما فيه من تشعبات لاحصر لها ارجو ممن لديهم الاستعداد على المشاركة ابداء الراى في الفكرة ومن ثم سابدا بعرض مدخلات المشروع ويليها المخرجات او النتائج والتقارير المطلوبة والمدخلات كلها ستكون عبارة عن اكثر من فورم ادراج بيانات معينة وفورم لقراءة هذه المدخلات والتعديل عليها وهذه الخطوة اعتقد انها ستمثل اكثر من نسبة 80 بالمائة من هذا المشروع أخوكم هاني بدر

اشكر لكم سرعة التفاعل والملف المطلوب هو مرفق بالفعل ويبدو ان هناك مشكلة ما في التواريخ في الاوفيس نفسه حيث انني اعمل على اوفيس 2010 وفيما يخص مشروع محاسبة الفنادق فساقوم بعرض الفكرة في موضوع منفصل وارجو التواصل لاهمية هذا المشروع ويكفي ان نعلم بان فيمة البرنامج الذي ينفذ المطلوب فيما يخص النزلاء وحساباتهم قد تصل تكلفة شراؤه الى مايقرب من 200 الف جنيه مصري اخوكم هاني بدر

السلام عليكم ورحمة الله وبركاته اشكرك استاذنا الكريم عبدالله على مشاركتك وعندما قمت بتغيير بيانات الوكيل السياحي اعطى ناتج #Div/0# وكذلك مع تغيير تاريخ الوصول نعطي نفس الناتج فهل هناك مشكلة في الاوفيس 2010 متعلقة بالتواريخ واود ان اطلب مشاركتك انت وجميع الاخوة الافاضل في عمل مشروع في اعتقادي الشخصي سيكون علامة بارزة في مجال الفنادق وفكرته تقوم على تسجيل دخول النزلاء وما يرتبط به من اسعار اقامة تتوقف على متغيرات عديدة منها على سبيل المثال لا الحصر الوكيل السياحي وفترة الدخول والخروج ونوعية الاقامة وكذلك نوع الغرفة ارجو الرد في حال الرغبة في بدء هذا المشروع الضخم لما فيه من معطيات كثيرة ومتنوعة ونتائج لا تعد ولا تحصى في حال الموافقة ساضع بين يديكم تصور كامل عن مدخلات ومخرجات المشروع وفقكم الله جميعاً اخوك هاني بدر

السلام عليكم ورحمة الله وبركاته اشكركم جميعاً على المرور والتفاعل ولكن وضعت المعادلة وكان الناتج #Value# لذا لو امكن رفع المرفق مرة اخرى وبه المعادلة مع توضيح الفروق بين استعمال معادلة Average Sumifs اخوكم هاني بدر

السلام عليكم ورحمة الله وبركاته ارجو الاطلاع على الملف المرفق وفكرته هو كعرض اسعار خلال فترات محددة والمطلوب هو احتساب متوسط السعر خلال فترة محددة والسعر في تاريخ محدد Book1.rar

36

السلام عليكم ورحمة الله وبركاته قمت بحذف المعادلات وتم رفع الملف باسوورد الدخول هو 01020103 برنامج حجوزات الغرف.rar

السلام عليكم ورحمة الله وبركاته اشكركم جميعا على التفاعل ولكن لايمكنني رفع الملف وذلك لكبر حجمه بعد التعديل وادخال معادلات شرطية بشكل ضخم جعلت من حجم الملف يفوق ال 100 ميجا لذا السؤال ساحاول توصيل الفكرة بارسال كودالترجيل وكذلك كود تغيير التكست بوكس الذي يفترض ان تقرا بيانات الشيت بناء على تغيير القيم فيه Private Sub ADD_BTN_Click() Dim CONFIRM If TextBox1 = "" Or ComboBox2 = "" Or TextBox3 = "" Or TextBox4 = "" Or TextBox5 = "" Then MsgBox "íÌÈ ÊÚÈÆÉ ßÇÝÉ ÇáíÞÆá", vbExclamation, "íÞÆá ÛíÑ ããÊáÆÉ" Else CONFIRM = MsgBox(":áÞÏ ØáÈÊ ÊÓÌíá ÇáÈíÇäÇÊ ÇáÊÇáíÉ" & vbNewLine & "" & vbNewLine & "Name: " & TextBox1 _ & vbNewLine & "" & vbNewLine & "Room No: " & ComboBox2 & vbNewLine & "" & vbNewLine & "Room Type: " & TextBox3 & vbNewLine & "" & vbNewLine & "Arrival: " & TextBox4 & vbNewLine & "" & vbNewLine & "Departure: " & TextBox5 & vbNewLine & "" _ & vbNewLine & "Ýåá ÊÆÏ ÇáåÓÊãÑÇÑ¿", vbYesNo + vbQuestion, "ÊãßíÏ ÇáåÏÎÇá") If CONFIRM = vbYes Then With Columns(1).Rows(65536).End(xlUp) .Offset(1, 0) = TextBox6.Value .Offset(1, 1) = TextBox1.Value .Offset(1, 3) = TextBox3.Value .Offset(1, 4) = ComboBox2.Value .Offset(1, 5) = TextBox4.Value .Offset(1, 6) = TextBox5.Value .Offset(1, 7) = ComboBox3.Value .Offset(1, 9) = TextBox7.Value .Offset(1, 10) = TextBox8.Value .Offset(1, 11) = TextBox9.Value .Offset(1, 12) = TextBox10.Value .Offset(1, 13) = TextBox11.Value .Offset(1, 14) = TextBox12.Value .Offset(1, 15) = TextBox13.Value .Offset(1, 16) = TextBox14.Value End With Sort Update Me.Hide MsgBox "ÊãÊ åÖÇÝÉ ÌãíÚ ÇáÈíÇäÇÊ ÈäÌÇí", vbInformation, "ÊãÊ ÇáåÖÇÝÉ" End If End If End Sub هذا هو كود الترحيل والحروف الغير مقرؤة لانها بالعربي ولن تؤثر في صلب الموضوع =========================================================================== Private Sub ComboBox5_Change() On Error Resume Next Dim RNG As Range Set RNG = Range("Data_Hany") If ComboBox1 <> "Select Name" And Application.WorksheetFunction.CountIf(RNG, ComboBox1) = 0 Then MsgBox "!åÐå ÇáÞÇÆãÉ áåÎÊíÇÑ ÇáåÓã ÝÞØ .. ááÊÚÏíá íãßäß åÓÊÎÏÇã ãÑÈÚ ÇáäÕ ÇáÎÇÕ ÈÇáåÓã", vbExclamation, "ÚÝÜÆÇÐ" ComboBox1 = "Select Name" ComboBox1.DropDown Exit Sub End If TextBox6 = ComboBox5 TextBox1 = Application.WorksheetFunction.VLookup(ComboBox5, RNG, 2, 0) ComboBox2 = Application.WorksheetFunction.VLookup(ComboBox5, RNG, 5, 0) TextBox3 = Application.WorksheetFunction.VLookup(ComboBox5, RNG, 4, 0) TextBox4 = Application.WorksheetFunction.VLookup(ComboBox5, RNG, 6, 0) TextBox4 = Format(TextBox4, "mm-dd-yy;@") TextBox5 = Application.WorksheetFunction.VLookup(ComboBox5, RNG, 7, 0) TextBox5 = Format(TextBox5, "mm-dd-yy;@") ComboBox3 = Application.WorksheetFunction.VLookup(ComboBox5, RNG, 8, 0) TextBox7 = Application.WorksheetFunction.VLookup(ComboBox5, RNG, 10, 0) TextBox8 = Application.WorksheetFunction.VLookup(ComboBox5, RNG, 11, 0) TextBox9 = Application.WorksheetFunction.VLookup(ComboBox5, RNG, 12, 0) TextBox10 = Application.WorksheetFunction.VLookup(ComboBox5, RNG, 13, 0) TextBox11 = Application.WorksheetFunction.VLookup(ComboBox5, RNG, 14, 0) TextBox12 = Application.WorksheetFunction.VLookup(ComboBox5, RNG, 15, 0) TextBox13 = Application.WorksheetFunction.VLookup(ComboBox5, RNG, 16, 0) TextBox14 = Application.WorksheetFunction.VLookup(ComboBox5, RNG, 17, 0) ComboBox1 = Application.WorksheetFunction.VLookup(ComboBox5, RNG, 2, 0) End Sub وهذا كود تغيرر التكست بوكس والذي من المفترض قراءة باقي البيانات داخل الفورم بناء على التغيير فيه ارجو ان اكون قد اوصلت فكرتي واذا كان بالامكان الاستعاضة عن المعادلات الشرطية باكواد vba فسيكون هذا بالفعل انجاز اشكر لكم مشاركتكم ووفقكم الله جميعاً

السلام عليكم ورحمة الله وبركاته بعد تعديل فورمات البيانات واضافة .Value Vlookup لم تعد تعمل

السلام عليكم ورحمة الله وبركاته الاساتذة الكرام ارجو المساعدة في هذا الملف حيث ان معادلة Vlookup لم تعد تعمل بعد ان عدلت ادراج البيانات باضافة الامر . Value لكل القيم المرحلة وهذا التعديل كان مهما جدا لبناء المعادلات بناء على ارقام وليس نصوص لذا ارجو استبدال معادلة Vlookup بمعادلة اخرى يمكنها قراة البيانات بمجرد تغيير الكود رابط الموضوع http://www.officena.net/ib/index.php?showtopic=39343 بارك الله قيكم جميعا

بارك الله فيك اخي الكريم اعجز عن شكرك بالفعل انتم خير عون لنا واعذرني ان تثاقلت بطلباتي كيف يمكن استخراج بيانات من الشيت ووضعها داخل التكست بوكس ولنفرض انني اريد وضع قيمة معينة في شيت واحد وعند التسجيل ارفعها داخل تكست بوكس وتقبل كل تحياتي

وانا اسجل البيانات داخل الفورم كيف اكتب معادلة شرطية في التكست بوكس ليقرأ من تكست بوكس آخر بمعنى في التكست البوكس الخاص ب مجموع الليالي اريد ان اكتب شرط تانه لو تاريخ الوصول مساوي لتاريخ المغادرة فيكون عدد الليالي يساوي 1 وما عدا ذلك يتم طرح القيمة الموجودة في التكست بوكس الخاص بتاريخ المغادرة - تاريخ الوصول ولكم جزيل الشكر

بارك الله فيك اخي الكريم بالفعل نجح الكود والحمد لله تقبل تحياتي وارجو منك ومن باقي الاخوة الاعضاء استكمال هذا الملف حيث انه متشعب وتقوم فكرته على بناء النتائج المنتقاة من صفحة الترحيل ورفعها في شكل تقرير الى فورم كما هو موضح في شكل اضافة البيانات اشكرك مرة اخرى

السلام عليكم ورحمة الله وبركاته طلب مني إعداد برنامج لعمل حجوزات غرف وقد كونت الفكرة والحمد لله ومتوقف على مشكلة ترحيل البيانات من الفورم الى الشيت حيث تقرا الارقام والتواريخ داخل الشيت على انها Text او Image ارجو المساعدة في حل هذه المشكلة تقبلوا تحياتي لكل القائمين على هذا الصرح العظيم مرفق ملف كلمة السر فيه 01020103 برنامج حجوزات الغرف.rar

المطلوب من السادة الافاضل قبل ان نزحف عليهم بالملايين ده بعد إذنكم طبعاً Module يقرا من COM1 , To Data Base Or Text File ولشرح الكوم هو زى وصلة الشاشة 9 بن ( طرف ) وإذا لم تتوافر الإجابة فالميدان ملك للجميع

السلام عليكم ورحمة الله فيما يخص تعديل الملف ليلائم اوجه نشاط اخرى مختلفة فهو بالفعل يمكنه التعامل مع الانشطة التجارية العادية وفيما يخص وجود اكثر من مخزن فهو بالفعل موجود في تصنيف المخازن ولكن ما يعيبه او بالمعنى الاصح لم اوجهه لتحديد كارت الصنف في كل مخزن على حدا وهى نقطة جوهرية بالفعل وساحاول ان اعالج هذا القصور ان شاء الله

اخي الفاضل ايمن اشكر لك حسن التواصل وسوف احاول ربط الملف بالريسيبي ولكن لي تخوف وهو مشروع بان حجم الملف سوف يزداد بشكل ملفت للنظر مما قد يتعذر معه العمل بالكفاءة المطلوبة ولكن بجد ما يدور بمصر يعيق التفكير في الوقت الحالي لذا اتمنى من الله ان تسير الحياة بطبيعتها وان شاء الله انا معكم وربط العمل بالريسيبي كان في مخيلتي بالفعل كماذكرت من قبل

السلام عليكم ورحمة الله وبركاته اعتذر بشدة عن الاتاخير ولكن سامحوني فالظروف والاحداث المتلاحقة بمصر تشغل بال الكثيرين وانا منهم لذا سامحوني على التاخير وان شاء الله ساقوم بقراءة كافة مقترحاتكم والرد عليها في القريب العاجل ان شاء لي المولى

هذا هو مكان الملف والمستخدم واليوزر 123 123 http://www.4shared.com/file/IALotwVD/Hany__StoresFB_Sales4.html واعتذر عن التاخير نظرا للظروف الموجودة داخل بلدنا الام مصر الحبيبة تقبلوا تحياتي

بسم الله الرحمن الرحيم ياجماعة قد اوضحت سلفا انه يجب استدعاء البيانات من الصفحة الرئيسية(تقارير) ثم مسح كافة البيانات المدخلة والضغط على زر تعديل وادخال كلمة السر هذا فيما يخص بدء تسجيل البيانات على قاعدة بيانات خالية تم توضيح هذه الجزئية في المشاركة بتاريخ 25 يناير الساعة العاشرة 58 دقيقة صباحاً واما ارصدة اول المدة فقد اوضحت سلفا بانه سيتم ادراجها عن طريق صفحة الادخال ( فهي ستعتبر مشتروات والطرف الدائن فيها هو OB واشكر لكم حسن مروركم

بسم الله الرحمن الرحيم ارجو دائما المعذرة وخاصة في الوقت الحالي فمن له علاقة بمجال الفنادق يعلم بشكل قاطع بان اقفال الشهر قد بدا بالفعل لذا دائما اطلب منكم المعذرة

بسم الله الرحمن الرحيم ارجو استخراج التقارير واختيار ايقونة بيانات وحذف كافة البيانات المسجلة والضغط على ايقونة تعديل وادخال كلمة السر 9412351058 لتصفير كافة البيانات القديمة

السلام عليكم ورحمة الله وبركاته نظرا لان هذا الملف قد تمت تجربته لفترة وجيزة من نهاية ديسمبر 2010 لذا فارجو من مستخدميه قبل البدء في التشغيل تغيير قيمة اول تاريخ في صفحة Definition خلية Af28 ليصبح التاريخ اول يناير 2011 وليس 2010 وهكذا لباقي مكونات العمود حتى اول ديسمبر 2011 وليس 2010 وذلك حتى يمكن تفعيل تقرير كارت الصنف حيث انه في الفترة 2010 سيقرا الملف البيانات خلال شهر يناير على انها لفترة يناير 2010 واود ان اوضح انني قد اظطررت الى اكمال هذا الملف بسبب النقص المفاجئ في هذا القسم لذا فسامحوني ان كنت اغفلت شيئا من المؤكد انه لن يكون بقصد وتقبلوا تحياتي هاني بدر