نجوم المشاركات

أخي الحبيب:السلام عليكم ورحمة الله وبركاته ورحمة ربك خير مما يجمعون ولعلك سمعت أن الأقلام ترفع وتجف الصحف عند الموت أي تختم سجلاتنا إلا ثلاث :علم ينتفع به( أرجو الله أن نكون من أهل العلم النافع) وولد صالح يدعو له ( اللهم اجعل أولادنا من الصالحين) وصدقة جارية ( نرجو الله أن يتقبل من أخينا الصقر صدقته علينا ) أرجو الله أن يبشركم بالجنة عند الموت حيث لا خوف مما هو آت ولا حزن على ما فات للمؤمن البشرى ...هو في فسحة من أمره لا في زنقة. ...والسلام عليكم.

الاخ الحبيب ابراهيم ابوليله جرب المرفق هل هو طلبك تقبل تحياتى واحترامى استخراج.zip

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

جرب الان قائمة منسدلة بدون تكرار مرتبطة بقائمة اخرى salim.zip

اخى الكريم لعد الخلايا غير الفارغة داخل نطاق محدد.... يمكنك استخدام المعادلة التالية =COUNTIF(B1:B10;"<>")

الاخ الحبيب / ابراهيم ابوليله الاجمل هو مرورك العطر وشاكر دعائك الطيب واسال الله تعالى ان يكون لك نصيب منه ********************************************************** الاخ الحبيب / عبدالعزيز البسكرى بارك الله فيك مجرد رؤيتى لأى رد منك منتهى السعاده بالنسبه لى ********************************************************* استاذى الحبيب / ياسر خليل يا غالى انت ونعم الناس ادب وخلق وفن وابداع اسال الله ان يطيل عمرك فى طاعته انا خايف انت اللى تنسانى يا صحبى ******************************************************** الاخ الحبيب / وائل الاسيوطى جزاكم الله خيرا ******************************************************** استاذى الحبيب / عادل حنفى الاروع هو مرورك وتشريفك لموضوعى المتواضع والمسات تعلمناها منكم استاذى الفاضل فأنا تلميذك ******************************************************* الاخ الحبيب / ياسر فتحى جزاكم الله خيرا *******************************************************

عمل أكثر من رائع أخى الحبيب / حسام وربنا يرحم الفقيد / الحسامى برحمته الواسعه ويدخله فسيح جناته جزاك الله خيرا

اخي حسام عمل رائع ولمسة جيدة منك وربنا يتغمد الحسامي بواسع رحمته تحياتي

جعله الله في ميزان حسناتك

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

السّلام عليكم و رحمة الله و بركاته بارك الله فيك أخي الغالي " الصّقر " على الهديّة الممتازة .. لا يمكننا بأي حال من الأحوال الاستغناء عن التّاريخيْن الهجري أو الميلادي بحياتنا و أعمالنا اليوميّة .. جزاك الله خيرًا و زادها بميزان حسناتك و زادك من علمه و فضله فائق تقديري و احترامي

عزيزي الرائع ابوعبدالله اعتذر بشدة على تاخيري في الرد على كلامك الاكثر من رائع بخصوص محاسبة المطاعم وذلك لظروف مرضي ولكن ان شاء الله يمكننا سويا وضع نواة حسنة لمشروع محاسبة الفنادق والذي كما سبق واوضحت انه يشمل المطاعم بداخله واامل ان نبدا سويا من الالف الى الياء حتى يخرج مشروع فريد لمحاسبة الفنادق والتي اعتقد انها شاملة لاهم ومعظم مجالات المحاسبة. ولكن دائما سيبقى الوقت هو العدو الاوحد لي وساضع امامك اطار عام لمجال المحاسبة داخل المنشآت السياحية ولكن بكل بساطة او بمعنى ادق بالمفهوم العامي وقبل البدء ارجو ان يتسع صدرك لكلام محاسبة وبس اى بدون برمجة حتى تصلك الفكرة الاساسية والتي من خلالها يمكنك معرفة كافة مدخلات الاطار المحاسبي ( البيانات التي سيتم معالجتها او تبويبها )داخل الفندق وكذلك العمليات التي تتم فيه ثم المخرجات والتي ستكون في شكل تقارير اساسية واخرى مكملة - هناك اقسام داخل قسم المحاسبة والتي تقوم بتجميع البيانات كل حسب تخصصه. وهي كالتالي : قسم مراقبة التكاليف :Cost Control ويتراسه Cost controller وهو القسم المسئول عن مراقبة المخزون ومخرجه الاساسي هو ( تكلفة البضاعة المباعة )Cost Of Salesوبالطبع كي نصل الى رقم تكلفة البضاعة المباعة فنحن بحاجة لمعرفة رصيد اول الفترة المحاسبية وصافي المشتروات واخيرا رصيد بضاعة آخر الفترة (كل هذه البنود بسعر التكلفة وليس البيع) والمخزون في غالبية الفنادق يصنف على 4 محاور رئيسية 1- مخزون اغذية Food Store 2- مخزون مشروبات Beverage Store 3-مخزون عام General store 4-مخزون الصيانة Maintenance Store وساقوم برفع ملف به هذه التصنيفات بمحتوياتها من اصناف لان كل من هذه المخازن بداخلها تصنيف فرعي آخر وهنا يجب الاشارة الى معيار هام في التفرقة بين ماهو Food وما هو Beverage وهو اذا لم تتم اضافة اى تكاليف للصنف بعد شراؤه فهو Beverage وللتوضيح الشاى نضيف اليه سكر اذا فهو Food وليس مشروب Beverageاما الكولا فهي مشروب عزيزي ابو عبدالله اعلم اني اطيل عليك ولكن انت قلت ان الفكرة اعجبتك واذا اردت مني اكمال الموضوع فانا معك حتى تصل الفكرة للاذهان واذا قلت توقف وارسل ملفات فانا ايضا معك واتمنى ان لا تمل مني وفي المرة القادمة ساقوم بشرح باقي الاقسام والتعريف بمهامها الاساسية ومدخلاتها ومخرجاتها وهي على النحو التالي قسم مراقبة الايرادات Income و يتراسه Income Auditor ويليه Night Auditor ويليه Restaurant Auditor ويليه General Cashier ثم F&B Cashier وكل له تخصصه وله مدخلات بيانات ومخرجات مكملة لبعضها البعض قسم المدفوعات Payable قسم المقبوضات Receivable وكل هذه الاقسام تصب بياناتها في جعبة رئيس الحسابات والذي بدوره يصب بياناته بعد المعالجات والتسويات المطلوبة للمدير المالي تحياتي للجميع وتحياتي الخاصة جدا لك عزيزي المبدع على الدوام ابوعبدالله هاني بدر

اساتذتى الافاضل فى هذا الصرح العلمى كما تعلمت منكم ابتكار ما هو جديد ومفيد دائما أقدم لكم اليوم تقويم يمكن من خلاله تحويل التاريخ من ميلادى الى هجرى والعكس لاى سنه من السنين يعنى هيكون تقويم الكترونى على شاشة جهازك دون الحاجه الى تقويم ورقى على مكتبك أقدمه لكم صدقه جاريه على روح المغفور له بأذن الله استاذى / عماد الدين الحسامى لا تنسوا الفقيد من صالح دعائكم اسال الله تعالى ان يتغمده بواسع رحمته تقبلوا تحياتى اخوكم وتلميذكم / حسام تقويم الصقر.zip

السلام عليكم ورحمة الله وبركاته بالنيابة عن نفسي وعن إدارة المنتدي أهنئ الاستاذ نضال .nedal_shami بالترقية الي خبير معنمد لما يقدمه ويبذله من مجهود يستفيد منه جميع اعضاء المنتدي من الجديد الي القديم متمنين منه الابقاء (ان لم يكن بالزيادة) علي هذا العطاء اثابه الله عليه خير اثابة فألف ألف ألف مبروك والي الصعود دائما خالص تحياتي القلبية وتقديري الشخصي لأستاذ نضال

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

اخى الكريم جرب المرفق وابدى ملاحظاتك ... تم الغاء الدمج لانه يسبب مشاكل بالكود رصيد الفوندى_3.rar

السلام عليكم اخى / ياسر البنا شاكر مرورك العطر وكلماتك الطيبه ... جزاك الله خيرا خالص تحياتى وتقديرى لشخصكم الكريم

اول مشاركة من ببرنامج مخازن وبيع يصلح لاي نشاط تجاري ولا تنسونا بالدعاء FhdAccount.zip

اخى الكريم جرب الملف المرفق علة المطلوب .. انتبة الى المعادلة الموجودة بالخلية O1 البحث عن الاسم ياتي مرة ثلاثي ومرة رباعي.rar (يتم جلب القيم بمجرد ادخال الاسم بالخلية B1 )

اول شيء مرحبا مليون اخي محمد سلامة اشكرك على ردك وتجاوبك معي اخي . وانا عندي امل كبير ان شاء الله من الأعضاء التجاوب معي واعتقد بأن فعل الخير لا يحتاج إلى إمكانيات

السلام عليكم إخوتي الكرام : حديث شريف يبعث على التفاؤل والرجاء " من أمسى كالا من عمل يده أمسى مغفورا له " وأنا والحمد لله أمسيت كالا من عمل يدي.... أرجو الله أن يتقبل منا ومنكم صالح اﻷعمال..

ليس لنا رب سواك فيدعى وليس لنا الها غيرك فيسأل فاستجب دعائنا وتقبل منا انك انت السميع العليم واغفر لنا انك انت الغفور الرحيم وصلى اللهم وسلم وبارك على افضل الخلق اجمعين وعلى آله وصحبه وسلم تسليما كثيرا واخر دعوانا ان الحمد لله رب العالمين

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

ايوه ياعم علي الهدايا اللي نازله ترف الله يسهلو اللي اداك يدينا يامعلم

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

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

السّلام عليكم و رحمة الله و بركاته كلام طيّب من أخ أكثر من طيّب .. بارك الله فيك عزيزي " الصّقر " .. جزاك الله خيرًا و زادها بميزان حسناتك .. تفضّل يا غالي هديتي مع كامل إحتراماتي لشخصك الكريم الصقر.rar

جزاك الله خير

صحيح اخي ياسر بعض الاسطر حذفت سهواً جرب المرفق Kh_Srech_Al_##.rar

الشرح أنا بحثت عنه على اليويتوب وحصلته على الرابط هذا

اخى الصقر فورم جميل ويعمل بإتقان تسلم دماغك نسال الله ان يزيدك من فضله وعلمه تقبل تحياتى

تسلم ايدك ياريس جزاكم الله خيرا كثيرا

السّلام عليكم و رحمة الله و بركاته أخي الكريم " أبو أمين " .. لو كنتَ اتبّعت التوجيهات الموضوعة بالمنتدى للأعضاء الجدد لوجدت الحل بأسرع وقت ممكن .. راجع هذا الرّابط لو تكرمت : http://www.officena.net/ib/topic/60047-كود-الوقت-و-التّاريخ-على-اليوزرفورم/ فائق تقديري و إحتراماتي

السلام عليكم أستاذي الكريم م/ياسر جزاكم الله خيراً...عمل رائع.... بارك الله فيك ونفع بك الاسلام والمسلمين شكرا الاخ مختار على الظافة

ألف ألف مبروك للأستاذ نضال شامي .. عقبال المزيد من الترقيات و النجاحات في شتّى المجالات ..

أمين شكرا على كلماتك الطيبة يا أخ عمرو طبعا أنا فهمت شغلك تمام باقي نقطة مهمة جدا في برنامجك وهي أن كمية البضاعة المطلوبة غير موجودة فإذا كان مثلا تاريخ الطلب هو قبل شهر من الآن ولم يتم توريد أي بضاعة حتى الآن لو سألتك الشركة يا عمرو : كم الكمية المطلوبة ؟ لن تستطيع الجواب من خلال البرنامج لأنه لا يوجد خانة تبين ذلك عموما تم حل هذه المشكلة في المرفق الآتي لاحظ الأعمدة الأربعة الجديدة D و F و AD و ِِ AE تفضل تحليل المشتريات للموردين3.rar

السّلام عليكم و رحمة الله و بركاته ألف شكر أستاذنا القدير عادل حنفي .. إلتفاتة طيّبة منك .. جزاك الله خيرًا و زادها بميزان حسناتك ألف ألف مبروك للأستاذ نضال شامي .. عقبال المزيد من الترقيات و النجاحات في شتّى المجالات .. دمتما ذخرا لنا و سندا للجميع في سبيل نشر العلم و المعرفة في هذا الصرح التعليمي الكبير ..زادكما الله من علمه و فضله فائق إحتراماتي

الف مبروك اخي الغالي/ نضال الشامي فعلا تستحقها ومواضيعك تشهد على ذلك اسأل الله ان يوفق الجميع لما يحبه ويرضاه

مبروك أحى نضال تابعت أعمالكم .. شد حيلك .. الهمة للمهمة

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

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

مرفق ملف للتوضيح Dملف باسم داتا يوضع مثلا على قرص كمبيوتر والملف الثاني لا يشترط وضعه في مكان وبالامكان تغير مساق الداتا كما يمكن تغير قيم الادخال وإدخال من خلايا الاكسل او من مربع نص بالفورم Input And Query From DB.zip

اتفضل انا كملت على الملف اللى ارسلته لك بالامس لان الملف اللى انت بعته لا يعمل جيدا اما استدعاء الماكرو فيكون من خلال Ctrl+q BBB.rar

السلام عليكم مرفق الحل للترحيل مع ترك صفوف فارغة وكمان حل لو عايز تضيف فاصل طباعة قبل كل مجموعة لكن موضوف الفورمات اللى انت ببتكلم عليه مش واضح .. لو عايز الالوان وخلافه ليها طريقة اما لو عايز "عرض الأعمدة" او ارتفاع الصفوف ده ليه حل تانى. aaaa.rar

في المشاركة ... http://www.officena.net/ib/index.php?showtopic=38385&p=225383 كان الأخ الصمت المتحدث تساءل عن تطبيق فكرة نطاق السنوات على الأشهر ، ورغم تأخر الردّ ، نطبق الفكرة لعموم الفائدة وباستخدام مفهوم callback function ، لغايات تحقيق المرونة و الفاعلية ، نقوم بانشاء وحدة نمطية عامة ، تحدد هذه الوحدة خصائص مربع التحرير و السرد او مربع القائمة التي ستحتوي البيانات بحيث يكون نوع مصدر البيانات Value List وعدد الاعمدة 1 ، ثم نفرغ المربع المحدد من أي بيانات سابقة ، ونقوم بتحديد بياناته الجديدة بواسطة بقية جمل الوحدة النمطية . Public Function callbackMonth(strContMonth As Control) 'By Nart Lebzo .... www.officena.net 'Amman - Jordan 25/06/2014 Dim intI As Integer strContMonth.RowSourceType = "Value List" ' Clear out strContMonth.RowSource = vbNullString strContMonth.ColumnCount = 1 ' Months For intI = 1 To 12 strContMonth.AddItem Format( _ DateSerial(Year(Date), intI, 1), "mmmm") Next intI End Function وفي جملة الاستدعاء وفي حدث عند الحالي للنموذج نحدد اسم مربع التحرير و السرد او مربع القائمة المستهدف لاحتواء البيانات Call callbackMonth(CombMonth) مرفق تطبيق اصدار 2003 و 2007 NA_CallbackMonths.rar

IS NOT يمكنك نفي شرط IS باتباع ذلك مع المشغل NOT SELECT LastName, FirstName, HourlySalary FROM Employees WHERE Department IS NOT NULL ..............

السلام عليكم ورحمة الله وبركاته أخي تفضل الكود Private Sub CommandButton1_Click() Dim Msg As String Dim ans As Integer Dim ans2 As Integer Msg = "هل ترغب بعمل نسخة احتياطية؟" ans = MsgBox(Msg, vbYesNo, "الرجاء الإنتباه") If ans = vbYes Then copy1 ans2 = MsgBox(" تم عمل نسخة إحتياطية ", vbInformation, "الرجاء الإنتباه") Else Exit Sub End If End Sub Sub copy1() Dim Extension$ Dim savePathName As String Extension = Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 5) & "Backup" & (Format(Now, " dd-mm-yyyy,hh.mm.ss AMPM")) & ".xlsb" savePathName = "c:\Test Backup 1\" On Error Resume Next Application.DisplayAlerts = False GetAttr (savePathName) Select Case Err.Number Case Is = 0 Application.DisplayAlerts = False ThisWorkbook.SaveCopyAs savePathName & Extension Application.DisplayAlerts = True Case Else MkDir savePathName ThisWorkbook.SaveCopyAs savePathName & Extension End Select On Error GoTo 0 End Sub

بين النموذج و التقرير : إظهار التقرير وتصديره لمسار معين بصيغة PDF لدينا تقرير لعميل ، نود الإطلاع على التقرير Preview وبعد تدقيق التقرير والتأكد من المعلومات ، نختار بين الرفض أو تصديره لمسار معين (حيث يتم حفظ تقارير هذا العميل ) على الخادم (السيرفر) أو غيره ... !! في النموذج وخلف زر أمر ننسخ الكود التالي : Private Sub Command56_Click() On Error GoTo Err_Command56_Click Dim stDocName As String stDocName = "Rep_ACC_Tracker" DoCmd.OpenReport stDocName, acPreview Exit_Command56_Click: Exit Sub Err_Command56_Click: MsgBox Err.Description Resume Exit_Command56_Click End Sub وفي محرر الفيجوال للتقرير ، ننسخ الكود التالي : Private Sub Report_Deactivate() Dim LResponse As Integer Dim MyFiLeName As String If Not NoData Then ' checks for no data event to prevent a mis fire DoEvents MyFiLeName = "D:\Customer reports\ACC\" & "Rep_ACC_Tracker" & Format(Now, "dd-mm-yyyy hhnnss") & ".pdf" DoEvents LResponse = MsgBox("Do you wish to Save Your Adobe File to a ACC file location", vbYesNo, "Save Now or loose it") DoEvents If LResponse = vbYes Then DoCmd.OutputTo acOutputReport, "Rep_ACC_Tracker", acFormatPDF, MyFiLeName, True DoEvents Else End If End If End Sub

جهد مشكور وجزيتم خيرا

أخي الكريم لقد وضعت لك برنامج صغير فاطلع عليه فعليه يوجد التعديل والحفظ وتستطيع أن تأخذ منه ما تشاء. أخوك R1.rar