أبو آدم

أخي العزيز شكرا لك ... هديتك جميلة ... وجهدك طيب بارك الله بك

أخي العزيز نصيحة: أسماء الحقول لجميع الجداول بالأحرف العربية وهذا مرهق عند إنشاء الكود حاول التغيير للأحرف الانجليزية

أخي العزيز في حدث عند الفتح للشاشة الرئيسية (مثلاً) ضع الكود Private Sub Form_Open(Cancel As Integer) Dim intStore As Integer intStore = DCount("[رقم_معرف]", "[data1]", "[تاريخ انتهاء الاستماره] = date() ") If intStore = 0 Then Exit Sub Else If MsgBox("يوجد " & intStore & " استمارة " & _ " سينتهي تاريخها" & vbCrLf & vbCrLf & _ " " & _ " تابع مع المعنين " & _ " ", vbYesNo Or vbExclamation Or vbDefaultButton1, _ " تنبيه .... إستمارات منتهية") = vbYes Then Else Exit Sub End If End If End Sub هذا مثال عام ينبه عندما يكون تاريخ انتهاء الاستمارة هو اليوم ، ويظهر رسالة بعدد الاستمارات يمكنك تعديل الشرط حسب الضابط الذي تراه مناسبا ........... هذا ما خطر ببالي الآن ....... ...........

تفضلوا ........ المرفق السيارات.rar

نحمد الله على عودتك ...

إخوتي الأحبة إستمتعت بالمرفقات و الحوارات ..... عماد الحسامي : عزيزي بارك الله بك ونفع بما علمّك ... أنت حقا مبدع محمد صالح : عزيزي لا تبخس نفسك حقها ، فأنت صاحب فكر نيّر و أداء متميز ، وقناعتك بأنك متميز باب من أبواب ... التغيير ... ياسر الحافظ أبا الحارث : أخي الحبيب ، فكرة ممتازة ، ولا تظن أن مثل هذا لا يحصل و إن لم نعرف به ... !!! إخوتي الأعزاء : أظن أنكم إستمتعتم بالأداء التميز ... كما هو حالي !!! وفقكم الله ... والى الأمام لنرتقي .......

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

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

أخي الحبيب أبو بنسيانا شكرا لردك وكلماتك الطيبة وأوجه ردك للأخ أشرف "رداً على الطلب" جزيتم خيرا

أخي العزيز حلّي لم يفلح ، أصبحنا بحاجة لحل !! ..........

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

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

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

أخي العزيز يرجى تزويدنا ببعض التفاصيل عن تصور لحاجاتك ، فأنت صاحب الحاجة حتى يتمكن اخوتك من مساعدتك ..........

مبارك لك و لنا يا أبا الحارث مهما دارت الأيام وأحوال أهلها فلا بد من أن تدق أوتاد الرجل المناسب في مكانه المناسب ولا بد أن يحمل من المسئوليات ما قدر له فالاعباء الجسام تظهر من مثلك من الرجال مبارك أخي الحبيب ............

أخي اليحياوي شكرا لك ولكل جديد منك للعلم عمل معي الكود باستخدام الاصدار 2003 ، مع استخدام Microsoft Office Compatibility Pack جزيت خيرا .........

اللهم يا مثبت القلوب ثبت قلبي على الإيمان ، وحسن صحبة الإخوان ، فقد جمع بيننا حب فيك ، وبعض علم فتحت به علينا اللهم و إرفع قدرهم بين عبادك ، و إفتح عليهم بما ينفعهم من العلم الله يا الله يا الله اللهم بارك لهم وبهم وبما أنعمت عليهم من البسطة في العلم والصحة و المحبة اللهم يسر لهم ولنا نشر العلم والطيبات وإجمع شملنا على الطاعات ، وجنبنا النفور و الكِبر وكل سبل المعاصي

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

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

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

اللهم يا مثبت القلوب ثبت قلبي على الإيمان ، وحسن صحبة الإخوان ، فقد جمع بيننا حب فيك ، وبعض علم فتحت به علينا اللهم و إرفع قدرهم بين عبادك ، و إفتح عليهم بما ينفعهم من العلم الله يا الله يا الله اللهم بارك لهم وبهم وبما أنعمت عليهم من البسطة في العلم والصحة و المحبة اللهم يسر لهم ولنا نشر العلم والطيبات وإجمع شملنا على الطاعات ، وجنبنا النفور و الكِبر وكل سبل المعاصي أخي محمد سعد شقيق روحي أبو الحارث أخي الجزيرة أخي ضاحي الغريب أخي alidroos شكرا لطيبات قولكم ، أثلجتم صدري بمروركم ، ورفعتم من معنوياتي ، وزدتم ثقتي بأدائي فجزيتم عني خبرا والله من وراء القصد وهو المستعان. ............

عدم وجود معلومات في النموذج ... No records to support form display في نموذج البحث وعند محاولة عرض نتائج البحث في نموذج ثاني منفصل ، وعند عدم وجود نتائج للبحث يظهر النموذج فارغا أو تظهر رسالة خطأ. أريد رسالة تنبيه بعدم وجود معلومات في النموذج كنتائج بحث ، كما في التقارير !!! الحل في الكود التالي ، وينسخ في حدث عند الفتح للنموذج الثاني (إظهار نتائج البحث) ، حيث يتم تنبيه المستخدم برسالة ، ثم يعود لنموذج البحث ويفرغ حقل نص البحث . Private Sub Form_Open(Cancel As Integer) On Error Resume Next If Me.RecordsetClone.RecordCount = 0 Then MsgBox "No records to support form display", vbExclamation, "System Message" DoCmd.CancelEvent Forms!frmSearchD!txtSearchText.SetFocus Forms!frmSearchD!txtSearchText = "" Exit Sub End If End Sub بسيطة ؟ ..............

أخي المبدع أحمد زمان أقدر و أثمن مرورك الطيب أنتم أهل الخبرة ومنكم نتعلم ونستزيد شكرا .......

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

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