يوسف أحمد

اخي / noursh لقد تم عمل استعلام يقوم بذلك وعمل تقرير مصدره هذا الاستعلام ارجو ان يفي بالغرض db1.rar

اخي/ fox2006 اليك المرفق بعد التعديل cash.rar

رااااااااااااااائع استاذ ابو هادي تم حفظ المثال للتعلم منه والاستفادة شكراً لك على هذا المرور الرائع والكود الجميل

اخي / ماجد جلال المرفق به مثال قمت بعمله ليفي بالغرض ان شاء الله ارجو ان يكون هو المطلوب المعذرة منك استاذي ابو هادي فلم انتبه لردك وقد كنت مشغولاً بعمل المثال للاخ السائل بارك الله فيك وجعلك سباقاً إلى الخير db5.rar

اخي / ماجد جلال بصراحة سؤال جميل واجابة اجمل من الاخ الكريم Zahof ضع الكود الخاص باللغة العربية في حدث عند الفتح للنموذج وبامكانك الدخول اليه عن طريق خصائص النموذج ومن ثم التبويب حدث وتختار حدث عند الفتح تضع الكود به. بخصوص General ستجد في اعلى الصفحة جملة Option Compare Database ضع الكود تحتها سيظهر الكود كما بالاسفل Option Compare Database Private Declare Function LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal flags As Long) As Long Option Explicit واليك مثال لما تفضل به الاخ الكريمZahof مشكوراً dblanguageset.rar

اخي / met شكرا لك وانا احاول بقدر المستطاع تقديم ما استطيع لأساعدك إذا كنت تريد نفس الطريقة التي عملها الاخ محمد جزاه الله خيراً فقم بعمل الآتي:- 1: - إضافة نموذج جديد ليس له مصدر للسجلات اي تقوم بإلغاء المعالج عند ظهوره. 2: - تقوم بعمل مربع تحرير وسرد وتسميه M وتجعله يبحث عن قيمة محددة في الجدول الوحيد لديك يتم ذلك عن طريق المعالج. 3: - تقوم بتعديل الاستعلام لديك وذلك بوضع العبارة التالية [forms]![form1]![m] في المعايير تحت حقل Name . على اعتبار ان اسم النموذج لديك اسمه form1 4: - تقوم بتغيير مصدر التقرير إلى الاستعلام الذي تم تعديله بالفقرة 3 5: - تعود مرة اخرى للنموذج وتضع زر امر يقوم بمعاينة التقرير وستجده يعرض البيانات للسجل المختار من القائمة. 6:- تقوم بوضع زر امر يقوم بطباعة التقرير وستجده يقوم بطباعة البيانات للسجل المختار من القائمة. ارجو ان يكون الموضوع واضحاً

اخي / met ارجو ان يكون التعديل بملفك هو ما تريده وهو عرض اوطباعة السجل الظاهر على الموذج print.rar

بعد إذن استاذنا منذر عساج اخي / salman20032 الحل يكمن في وضع كلمة not like لتظهر الاسماء التي لم تلتحق بالدورة واليك الكود كاملا بعد التعديل ارجو ان يكون هو ما تبحث عنه Dim MyStr As String MyStr = Nz(Me.combo1.Text, "") If MyStr = "" Then Me.ALDURAT.Form.RecordSource = "SELECT ssss.* FROM ssss " Else Me.ALDURAT.Form.RecordSource = "SELECT ssss.* FROM ssss" _ & " WHERE (((ssss.COURCE_NAME) not Like '" & MyStr & "' & '*')) " End If بالتوفيق اخي salman20032

اخي / ماجدجلال شكراً لك على دعواتك الطيبة جعل الله لك ولأستاذنا منذر مثلها .. آمين هناك نقطة وددت اضافتها وهي :- سيبقى الرقم الخاطئ للبحث موجود بمربع التحرير والسرد عند اغلاق الرسالة اذا اردت ان تزيله ضع الكود ادناه قبل جملة end if Me.مربع_تحرير_وسرد_29.Value = "" بالتوفيق اخي ماجد جلال

اخي / mahdena يتم وضع الكود ادناه بحدث عند الفتح للنموذج الرئيسي والذي يتم فتحه عند ابتداء البرنامج If Date > #9/28/2006# Then MsgBox " انتهى وقت البرنامج " & vbCrLf & vbCrLf & _ " الى اللقاء " & vbCrLf & vbCrLf & _ "بالتوفيق ان شاء الله", vbOKOnly + vbMsgBoxRight + vbExclamation DoCmd.Quit End If وبالإمكان تغيير التاريخ بالسطر الاول بما يتناسب بالتوفيق ان شاء الله

بعد إذن استاذنا ومشرفنا العزيز منذر عساج وددت ان اساهم في الحل اخي / ماجدجلال ارجو ان يكون بالمرفق ما تبحث عنه تقبل الله الصيام والقيام وكل عام والجميع بخير وعافية ____________________.rar

شكراً لك استاذ / منذر عساج وبارك الله فيك وزادك من علمه وفضله

اخواني مشرفي واعضاء منتدى اوفيسنا اولا اشكرك الجميع على هذا الجهد المبذول واتمنى التوفيق للجميع بالمثال المرفق يوجد form2 يتم فتحه عن طريق form1 الخاصة باضافة جنسية اريد اذا تم فتح نموذج form2 واضافة جنسية وبعد اغلاقة يتم تحديث النموذج form1 وتظهر الجنسية المضافة في مربع السرد والتحرير دون اغلاق النموذج form1 ارجو شرح الطريقة والتعديل على المثال ولكم الشكر مسبقاً db11.rar