محمد التميمي

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

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

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

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

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

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

تفضل ستجد في هذا الرابط ماتريد بالتوفيق https://www.mediafire.com/file/gy9cfacev1qe28j/MasterPDF_%D8%B9%D8%B1%D8%A8%D9%8A_%D8%A7%D9%84%D8%A7%D9%81%D8%B6%D9%84_%D9%81%D9%8A_%D8%A7%D9%84%D8%AA%D8%B9%D8%AF%D9%8A%D9%84_%D8%B9%D9%84%D9%89.rar/file

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

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

وعليكم السلام اخي الكرم لو بحثت قليلا في المنتدى لوجدت ماتريد تفضل 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

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

شكرأ جزيلاً اخي الفاضل تعلمنا منكم