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

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

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

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

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

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

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

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

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

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

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

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

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

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

أ / خالد الرشيدى

سلمت يمينك يا غالى جزاك الله خيرا

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

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

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

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

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

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

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

جزاك الله خير

السلام عليكم اكتب الشهر برقمه كالمرفق عموم اضغط الزر لتفيذ الكود امل ان يلبي طلبك مسابقة قراءة القران الكريم_111.rar

جزاك الله خيرا أخي ياسر و زادها بميزان حسناتك

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

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

تمام يامعلم شغال الله ينور بس عشان خاطر ابو يوسف يبقي مش شغال ياعم صقر وظبطو شغلكوا شوية ياعم

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

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

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

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

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

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

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

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

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

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

رابعاً:- التعامل مع خصائص الـ ComboBox فى لغة البرمجه فى الدرس قبل السابق عرفنا ازاى نتحكم فى خصائص ComboBox من شاشة الخصائص اثناء عملية التصميم فماذا لو حبينا نتحكم فى خصائص ComboBox ولكن من خلال الاكواد وليس من شاشة الخصائص فى مرحله التصميم هنبدأ على طول بمثال عملى ونشرح عليه اضغط دبل كليك على اى مكان فاضى فى الفورم وهندخل محرر اكواد الفورم ونعمل كود فى حدث فتح الفورم اتبع الصوره هتلاقى الصوره دى فى المكان المظلل باللون الاحمر هنا موضوع كتابه الاكواد ولكتابة اى كود خاص بأى عنصر تحكم فى الفورم يكون على الشكل التالى الخاصيه ( Back Color):- زى ما قلنا قبل كدا ان هذه الخاصيه تتيح للمستخدم تغيير لون خلفية للـ ComboBox عايزين نكتب فى المربع الاحمر كود يجعل لون خلفية الكمبوبوكس (سماوى ) عند فتح الفورم لو حضرتك محترف كتابة انجلش كويس على الكيبورد وسريع خلاص لا تهتم بالقائمة المساعده للخصائص اللى بيعرضها الفيجوال بيسك واكتب انت بنفس سطر الكود ناخد مثال اخر عن الخاصيه ( Back Style):- ناخد مثال اخر عن الخاصيه ( Row Source ):- ComboBox1.RowSource = "A1: b5" سطر الكود زى ما هو ظاهر تم كتابة اسم العنصر ثم . ثم اسم الخاصيه ثم = ثم المدى المراد اظهاره فى الكمبوبوكس ( المدى تم كتابته بين اقواس تنصيص " المدى " وهذه الاقواس كما قلنا انها تكتب من خلال الضغط على شيفت + حرف ط بالعربى ) ناخد مثال اخر عن الخاصيه ( Column Heads ):- ComboBox1.ColumnHeads = True سطر الكود زى ما هو ظاهر تم كتابة اسم العنصر ثم . ثم اسم الخاصيه ثم = ثم نوع الخاصيه اما True أو false وكذالك لباقى الخصائص الخاصه باى عنصر تحكم على الفورم هذا هو الكود بشكله النهائى على الاربع خصائص السابقه Private Sub UserForm_Initialize() ComboBox1.BackColor = 15849925 ComboBox1.BackStyle = fmBackStyleOpaque ComboBox1.RowSource = "A1: b5" ComboBox1.ColumnHeads = True End Sub هل يمكن ايضا كتابة الكود بشكل ابسط نعم يوجد طريقه اخرى من خلال استخدام With وطبعا لازم نقفل With بـ End with ويكون بداية سطر الكود هو . ثم اسم الخاصيه ثم = ثم نوع أو قيمة النتيجة شاهد الكود كالتالى Private Sub UserForm_Initialize() With ComboBox1 .BackColor = 15849925 .BackStyle = fmBackStyleOpaque .RowSource = "A1: b5" .ColumnHeads = True End With End Sub أنا عايزك تجرب باقى الخصائص بنفسك ولو صدفك اى مشكله لا تتردد انك تراسلنى تابعونا

تمت الفائدة يُنقل...

في المشاركة ... 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

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

السلام عليكم ورحمة الله وبركاته أخي تفضل الكود 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

شكرا لك كثيرا استاذي الكبير استفدت من مثالك كثيرا وعملت تحديثات باستخدام أمر زر وبنفس الكود بما يناسبني كالتالي : Private Sub Command18_Click() Dim LResponse As Integer Dim MyFiLeName As String If Not NoData Then ' checks for no data event to prevent a mis fire DoEvents LResponse = MsgBox("Do you wish to Save the report", vbYesNo, "Save Now or loose it") DoEvents If LResponse = vbYes Then DoEvents MyFiLeName = "D:\Customer reports\" & Format([TabCompName]) & Format(Now, "dd-mm-yyyy hhnnss") & ".pdf" ' هنا يمكننا اظهار عنوان موقع الملف المحفوظ MsgBox "The report was safed successfully" & vbCrLf & MyFiLeName, vbInformation ' وبهذا الكود يمكننا اظهار فقط معلومة الحفظ ' MsgBox "The report was safed successfully" & vbCrLf, vbInformation DoCmd.OutputTo acOutputReport, "TabCompanies", acFormatPDF, MyFiLeName, True DoEvents If LResponse = vbNo Then DoCmd.CancelEvent Else End If End If End If 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

في المشاركة 39 كنت تحدثت عن تعذر قبول المشاركات ، وقد رأيت اليوم ما لم أرى بالأمس ... يتم فتح الموضوع للمشاركة ، والتفاعل والله من وراء القصد ... وهو حسبي ......

أحتاج لخيار آخر غير InputBox بحيث يكون قابل للسيطرة و متناسقاً مع النظام من حيث الشكل وتنسيق النماذج !! هذه هينة بإذن الله ... قم بإنشاء نموذج بالحجم الذي تجده مناسبا قم بانشاء مربع نص بإسم Text000 قم بانشاء زر أمر بإسم ComClose وسمه OK قم بانشاء زر أمر بإسم ComCancel وسمه Cancel وفي محرر الفيجوال للنموذج ضع مجموعة الكودات التالية : Private Sub ComClose_Click() If IsNull(Me.Text000) Or Me.Text000 = "" Then MsgBox ("You did not provide anything!") Else MsgBox ("You entered: '" & Me.Text000 & "' as the value!") End If DoCmd.Close acForm, Me.Name End Sub Private Sub ComCancel_Click() MsgBox ("You pressed Cancel!") DoCmd.Close acForm, Me.Name End Sub Private Sub Form_Timer() DoCmd.Close acForm, Me.Name End Sub Private Sub Text000_Change() Me.TimerInterval = 0 End Sub التطبيق بسيط وفعاّل عند فتح النموذج وعدم التفاعل معه لمدة 10 ثواني يغلق تلقائياً عند إدخال أي نص في مربع النص تظهر الحروف على شكل نجمة (كلمة سر) بالموافقة على النص المدخل OK تظهر رسالة توضح النص المدخل ، وهنا يمكننا وضع الكود المناسب للتطبيق من حيث إعتماد القيمة أو رفضها ... في حال ترك مربع النص فارغاً وضغط OK تظهر سالة تفيد بانه لم يتم إدخال أي قيمة في حال الضغط على الزر Cancel يتم إشعارنا برسالة بخيارنا ويتم إغلاق النموذج جرب ....

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

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