محمد التميمي

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

السلام عليكم في الملف المرفق عندي نموذج فيه زر امر يفتح اعدادات الطابعة ومن خلال نافذة الاعدادات نذهب الى خصائص الطابعة اخواني الكرام انا بحاجة الى كود بزر امر اخر يقوم بفتح خصائص الطابعة مباشر دون المرور بنافذة اعدادات الطابعة اسم الطابعة ( 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 شكرأ اخي الكريم ابا جودي صدق انا لست باستاد انتم الاساتدة تعلمنا وما زلنا نتعلم من فيض علمكم اللهم اغفر لاحيائنا وامواتنا اجمعين انك الغفور الرحيم

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

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

السلام عليكم اخواني الكرام يسرني ان أقدم لكم هدية متواضعة وهي عبارة عن برنامج صغير لطباعة بطاقات العمل البلاستيكية مفتوح المصدر أقدمت على عمل هذا البرنامج بطلب من أحد الاخوة واهدي منه نسخة الى اخواني في المنتدى البرنامج شغال وقمت بتجربته على طابعة البطاقات يعمل 100% والحمد لله .. انت فقط اضبط اعدادات الطابعة جيداً يمكنك تغيير خلفيات البطاقات على راحتك لان صور خلفيات البطاقات معمولة بالفوتوشوب وجميع المعلومات هي افتراضية وغير حقيقية اسم المستخدم : اوفيسنا رمز المرور : 1234 حمل البرنامج من الرابط المباشر ادناه https://www.mediafire.com/file/yz3abye3mekko8z/234.rar/file الشكر موصول للأستاذ الخبير ابا جودي المحترم لأبداء المساعدة لنا اخواني ذا كانت هناك أخطاء لا تبخلوا علينا بالتنبيه ومنكم نستفيد لا تنسونا بالدعاء ولوالدي بالرحمة والمغفرة -------------------------------------------------------------------------------- 30-11-2020 النسخة المعدلة ، بصيغتي mdb و accdb 🙂 1289.اوفيسنا.zip

وعليكم السلام وجدت في مكتبتي هذا المثال لعله ينفعك نسخ احتياطي واسترجاع النسخة الاحتياطية.rar

السلام عليكم شكرأ استاذي ابا جودي نعم بالفعل المثال يعمل بالمعيار الجديد مع فائق الشكر والحترام

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

غداً لناظره قريب شكرا جزيلا

بارك الله بجهودك استاذ ابا جودي وازادك الله علما وتقوى نعم هذا هو المطلوب شكراً جزيلاً

السلام عليكم الاخوة الكرام طيب الله اوقاتكم لدي نموذج عنصر تحكم ذات صفحتين في كا منهما بيانات من مصدر واحد هو الجدول وفي الجدول بيانات موظفين ومدرسين حسب عامود ( العنوان الوضيفي ) المطلوب في النموذج الصفحة الاولى يظهر فيها بيانات الموظفين فقط والصفحة الثانية يظهر بها بيانات المدرسين فقط طبعا هو المشروع اكبر من المثال ولكني اريد راس الخيط فقط ليتسنى لي اكمال الباقي مع فائق الشكر والتقدير New.accdb

بارك الله بك استاذ جعفر اللهم يارب تزداد علم وتقوى ونبقى نتعلم منكم

السلام عليكم مداخلة بسيطة لو سمحتم لاكن كلما اضغط على رز الاضافة يكرر نفس البيانات في النموذج الفرعي

بارك الله بك

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