محمد التميمي

وعليكم السلام بعد اذن استاذ جعفر تفضل 345.accdb

تأكد من ارتباط النوذج الفرعي بالرأيسي

وعليكم السلام ارفق مثال ليتم مساعدتك اخي الكريم

ماشاء الله عمل يستحق التقدير بارك الله بك وانشاء الله في ميزان حسناتك

السلام عليكم بعد اذان اخواني الكرام تفضل ارجوا ان يكون ماطلبت يمكنك التغيير بتواريخ السنين على كيفك 122.accdb

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

وعليكم السلام كل عام وانتم واعظاء المنتدى بالف خير بارك الله بجهودك الكد يعمل بامتياز

كنت قد عملت برنامج فواتير بيع وشراء ولاكن ليس بهذا الحجم هذا عمل استاذ

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

السلام عليكم بوركت اياديكم اساتذتي الكرام انا ايضاً استفد من شرح الموضوع

الف الف مربروك لاساتذتنا الكرام خيماوى كووول و عبدالله الصاري الترقية

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

وعليكم السلام اخي الكرم لو بحثت قليلا في المنتدى لوجدت ماتريد تفضل 567.accdb

سلمت يداك اخي استاذ جعفر بارك الله بك

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

السلام عليكم في الملف المرفق عندي نموذج فيه زر امر يفتح اعدادات الطابعة ومن خلال نافذة الاعدادات نذهب الى خصائص الطابعة اخواني الكرام انا بحاجة الى كود بزر امر اخر يقوم بفتح خصائص الطابعة مباشر دون المرور بنافذة اعدادات الطابعة اسم الطابعة ( Fargo HDP5000 card printer ) بحثت في المنتدة لم اجد سوى ما يتعلق بنافذة الاعدادات جُزيتم خيراً الصورة المرفقة هي واجهة خصائص الطابعة 666.accdb

السلام عليكم بعد اذن استاذنا الكريم ابا جودي تفضل هذا مثال ثاني BackUp.accdb

افكارة بحث جميلة جداً بارك الله بجهودك

شكراً جزيلاً اخواني الكرم الشكر موصل للاستاذ جعفر والاستاذ ابا جودي

سلمت يداك يا اخي العزيز

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

وعليكم السلام اخي جعفر 1- كيف الاحوال اخي واستااااااااااااااذي جعفر قبل يومين انت كنت معصب عالرجال تكول اني مو استاذ اني جعفر وبس واعمالك تشهد لك والحمد لله انت استاذ والنعم 2- جايبلي مشاركتي حتى اذكرني بيهة اخاف ازعل من تصحيحك لا اخي لا ما ازعل بارك الله بك اخي الفاضل ( المؤمن مرآة اخيه المؤمن ) فعلا اصبح البرنامج في غاية الاناقة والرشاقة كل الشكر والامتنان لشخصكم الكريم ونبقى منكم نتعلم لاكن في مشكلة نماذج الاقسام الثلاثة التي دمجتها بــ lst_Occupation اصبحت تظهر ثلاثة سجلات التابعة لقسم الطلبة فقط

السلام عليكم تعديل بسيط حذفنا جدول Occupation واصبح العنوان الوضيفي في الجدول الاساسي نص http://www.mediafire.com/file/lt8lxsjt2zj11ng/%D8%A7%D9%88%D9%81%D9%8A%D8%B3%D9%86%D8%A7.rar/file

شكرأ اخي وصلت الفكرة بارك الله بجهودك

السلام عليكم استاذي الفاضل ابا جودي انا عندي هذا الكود يعمل نفس العمل الذي قمت به بدون موديول سؤوالي هل يوجد فرق بين الكدين Private Sub ww_NotInList(NewData As String, Response As Integer) Dim ctl As Control Dim strSQL As String Set ctl = Me!ww DoCmd.Beep If MsgBox(" القيمة النصية التي أضفتها" & " / " & _ Me.ww.Text & " / ليس من ضمن القائمة هل تريد إضافتها الى القائمة ", _ vbInformation, "!! ... انتباه") = vbOK Then Response = acDataErrAdded strSQL = "INSERT INTO tbl_city(city) VALUES('" strSQL = strSQL & NewData & "');" CurrentDb.Execute strSQL DoCmd.Beep MsgBox "تمت إضافة القيمة الجديدة المكتوبة الى القائمة بنجاح", , "الإضافة الجديدة" Else Response = acDataErrContinue ctl.Undo End If End Sub