أبو آدم

حياك الله أبا الحارث نسأل الله أن يحيطكم برعايته وعنايته ، ويرفع عنّا وعنكم الغمّة ...........

الكلمة الطيبة شعار لقائلها ودليل على طيب قائلها الكلمة الطيبة تحول العدو إلى صديق بإذن الله، وتقلب الضغائن التي في القلوب إلى محبة ومودة تثمر عملاً صالحاً في كل وقت بإذن الله تصعد إلى السماء فتفتح لها أبواب السماء، وتقبل بإذن الله: (( إليه يصعد الكلم الطيب …)) أنها من هداية الله وفضله للعبد، قال تعالى : (( وهدوا إلى الطيب من القول )) الكلمة الطيبة ثوابها ثواب الصدقة تطيب قلوب الآخرين، وتمسح دموع المحزونين، وتصلح بين المتباعدين

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

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

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

ثانياً : نتمنى عليك الإلتزام بقواعد المشاركة في المنتدى http://www.officena.net/Tips/Questions.htm فلا نطرح موضوعنا ضمن موضوع سابق ... لا تربطه به وحدة الفكرة و الموضوع و لا نطرح سؤالاً مباشراً لشخص محدد الا في معرض الحوار و النقاش فجميع الإخوة في خدمتكم ، وبإنتظار مشاركاتكم الطيبة ........

الأخ أحمد رمضان أولا : نغتنم الفرصة الطيبة لإنضمامك لنا ... بدعوة طيبة لطيب http://www.officena.net/ib/index.php?showannouncement=21&f=89 ...........

كان سؤالي بسيطاً وواضحاً وكانت إجابتك بتكرار المتغيرات المعلومة من مشاركاتك ، ولكن دون الإجابة على سؤالي في الصورة المرفقة تم الاستلام بتاريخ وساعة معينة وحددت ايام العمل ومنها تعرفنا للفترة بين الوقتين واحتسبنا ايام العمل ، حيث لا يوجد يوم عطلة رسمية ، ومن عدد أيام العمل احتسبنا ساعات العمل . ما هي حاجتك بالضبط ... ؟؟ قاعدة البيانات لديك تحتاج لتعديلات مهمة ... عند التعامل مع اليوم و الساعة في مثل ما تتعامل معه أنت هنا ، يفضل أن نتعامل مع صيغة General Date لنجمع اليوم و الساعة . يلزمك جدول للعطل الرسمية ، حيث يتضح من حاجاتك ضرورة التعامل مع أيام العمل الفعلية ، وهذا يتقاطع مع أيام العطل الاسبوعية (الجمعة) و العطل الرسمية. بانتظار ردودك (بدون غضب أو يأس) ............

يمكنك الإستعانة بالمرفق ... فكرة قريبة أعتذر من صاحب التطبيق ... حيث أنني لا أذكر مصدره ....... طلبات مطعم.rar

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

هذا يتطلب إعادة النظر في قاعدة البيانات (حسب تحليلي لها) نحتاج تصوراً آخر ... !!! .........

في المشاركة 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 يتم إشعارنا برسالة بخيارنا ويتم إغلاق النموذج جرب ....

كود إنشاء رسالة تنبيه تحوي ثلاثة خيارات Yes و No و Cancel Select Case MsgBox("This is an exclemated normal Yes/No/Cancel Msgbox!", vbYesNoCancel Or vbDefaultButton1 Or vbExclamation, "Title: Click Yes, No Or Cancel!") Case vbYes MsgBox ("You pressed 'yes'!") Case vbNo MsgBox ("You pressed 'no'!") Case vbCancel MsgBox ("You pressed 'cancel'!") End Select ومكان رسالة التنبيه الفرعية بتوضيح الخيار يمكننا وضع كود يناسب الوضع الذي تم إختياره .

من خلال النموذج الرئيسي لدي نموذج فرعي إسمه frmSub أريد تبديل النموذج الفرعي حسب الحاجة بين أكثر من نموذج فرعي frm_Sub_4 .. frm_Sub_3 .. frm_Sub_2.. frm_Sub_1 ... !! بسيطة ... خلف حدث عند الضغط لزر أمر في النموذج الرئيسي نضع الكود التالي : Me.frmSub.SourceObject = "frm_Sub_2" أو Me.frmSub.SourceObject = "frm_Sub_3" وهكذا .... ..

من خلال النموذج الرئيسي لدي نموذج فرعي إسمه frmDicl أريد إخفاء النموذج الفرعي حال عدم وجود سجلات فيه ... !! بسيطة ... في حدث عند الحالي للنموذج الرئيسي نضع الكود التالي : With Me![frmDicl].Form.Visible = (.RecordsetClone.RecordCount > 0) End With

من النموذج الرئيسي تم استدعاء نموذج منبثق لإظهار معلومات معينة عند إغلاق النموذج المنبثق (الثاني) أريد أن أعود بالتركيز لحقل معين في النموذج الرئيسي .. !! بسيطة ... في حدث عند الإغلاق للنموذج المنبثق (الثاني) نضع الكود التالي : Private Sub Form_Close() [Forms]![MainForm]![TaxBox].SetFocus End Sub

لنحصل على شريط متحرك بالعبارة التى نريدها بدلاً عن إسم النموذج ، نقوم بما يلي : في بداية صفحة الفيجوال Option Compare Database Private strText As String في حدث عند التحميل ​Private Sub Form_Load() strText = "النص الذي نود أن يظهر في الشريط المتحرك ...... 2013" strText = Space(110) & strText PutButtons Me End Sub في حدث عند التوقيت للنموذج Private Sub Form_Timer() strText = Mid(strText, 2) & left(strText, 1) Me.Caption = strText End Sub وفي خصائص النموذج نحدد الفاصل الزمني في Timet Interval ليكون 150 أو 200 أو غيرها وكفى ......

أريد إحتساب مدّة الدوام (الحضور) في النموذج ، لدي AttendanceStart لوقت الحضور و AttendanceEnd لوقت المغادرة ، والنتيجة في AttendanceTotal بسيطة ... الكود يكون : Me.AttendanceTotal = Nz(Me.AttendanceEnd, 0) - Nz(Me.AttendanceStart, 0)

في التقرير أريد أخفاء مربع نص من الصفحة الأولى فقط على أن يظهر في الثانية وما بعدها !! بسيطة ... في page header format نضع الكود التالي : If page > 1 Then Me.controlname.visible = false . . . Else Me.controlname.visible = true . . . End If

والنتيجة للتطبيق عنوان ....

سؤال يتكرر كثيراً ... أريد إضافة < None > لمصدر صف في مربع تحرير وسرد أو مربع قائمة والجواب بإذن الله هيّن ... لدينا جدول tblDuty للمهام المسندة للموظفين فيه الحقل DutyID كمعرف وفيه الحقل strDuty لوصف المهمة في خيارات مربع التحرير والسرد نختار نوع مصدر الصف / جدول أو استعلام نختار عدد الأعمدة 2 نجعل عرض الأعمدة 0";3" ليتم إخفاء العامود الأول (الرقم المعرف) و إظهار الثاني بعرض 3 سم (وصف المهمة) في مصدر الصف لمربع التحرير و السرد ، نضع العبارة : SELECT DISTINCTROW [DutyID],[strDuty] FROM [tblDuty] UNION SELECT "0","< None >" FROM [tblDuty] ORDER BY [strDuty]