ابو ياسر

نشكر مدير الموقع على سرعة الرد وعلى التوضيح وهذابرنامج لاحد الاخوة بهذا الصدد اسم المستخدم1 كلمة المرور 1 http://hero-share.com/download/10224905/__.____.22-06-1429__.rar.html

نبيع ونشتري تعبير قوي شوية الألطف: صفحة لعمل البرامج المجانية ولا بأس ان تكون احيانا بمقابل

اولا نحن لا نتعامل في قواعد البانات مع الجداول مباشرة بل يتم التعمل معها عبر التقارير او النماذج ومع ذلك اذا اردت طباعة اي شي فانقر ( Ctrl + P )

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

مشكووووووووووووووووووووووووووووووووووور

ارفق مثالك واجعله على الامتداد mdb

وهنا تطبيق للطريقة بدون جدول فرعي تنبيه : اكتب تاريخ اليوم في حقل الانتهاء في الجدول ملحوظة : اختصرت المرفق الى اقصى حد db4.rar

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

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

شكرا ... ششكرا يا عبدالهادي حلوة تنسيق القصيدة هذه

اخونا ksmn64 فقدناه من ذلك الوقت ؟ بإذن الله غيبته هذه تكون عن خير اللهم احفظه بحفظك

اجعل القيمة الافتراضية في الجدول لحقول التاريخ = صفر لا تنسى انه لا يتم تطبيق هذه القيمة على الحقول الفارغة السابقة ، حيث ان اكسس يضيف هذه القيمة لكل سجل جديد فط تستطيع نسخ القيمة من آخر سجل ولصقها في الحقول الفارغة

السلام عليكم تم عمل اللازم الزر طباعة جعلته للمعاينة ، فإن اردت الطباعة مباشرة فافتح محرر الفيجوال ستجد سطر الطباعة المباشر ( فاستبدله بسطر المعاينة ان اردت ) OfficeUP.rar

انا عندي الاصدارات الثلاث 2003 ، 2007 ، 2010 ، كل واحد في جهاز مستقل وإنما العشق للحبيب الأول وإن شئت قل : عند جهينة الخبر اليقين

هذا الكود لنقل التركيز من نموذج مفتوح الى آخر مفتوح ، ضعه في حدث الزر Forms!FormName.SetFocus باعتبار FormName هو اسم النموذج الذي تريد العودة اليه

طهورا ان شاء الله ... جمع الله لك بين الأجر والعافية

اخي الشامل الف مبروك والى الامام ومزيدا من التقدم اخي ksmn64 بصماتك واضحة في المنتديات الف مبروك وتستاهل اكثر اخي

وعليكم السلام أخي : زد إيضاحا ولو ارفقت رسما يبين المطلوب حتى نتمكن من مساعدتك

وعليكم السلام تفضل مثالك بعد التعديل 001.rar

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

لست بحاجةإلى القسم ، فالحال ينبىء عن المقال والاخوة هنا يبادرون ولكن اذا عرف السبب بطل العجب ؟ حيث أن مثالك على الاصدار 2007 وقلة هم من يستخدم هذا الاصدار خاصة الذين يتصدون للإجابة فلو حولته الى الاصدار 2003 لكان التفاعل أكبر

ضعه في حدث تنسيق التفصيل او في حدث طباعة التفصيل في التقرير

عن نفسي لم اطرح سؤالا في يوم من الايام الا وقد اعددت مرفقا ( مثالا) اقوم بتهيئته كما يهيء الطاقم الصحي المريض للجراح وهذا يعود بفوائد كثيرة لا تخفى فمما احنيه انا كسائل : سرعة الرد الدقة في الاجابة النسخ واللصق أو التصدير الى برنامجي حيث ان المسميات في المثال وضعتها كالمسميات في برنامجي

زادك الله علما وأسبغ عليك نعمه

وعليكم السلام هذا الكود يفي بالغرض Private Sub Command1_Click() If Len(Text1) < 10 Then Me.Text1.FontSize = 10 End If If Len(Text1) > 10 Then Me.Text1.FontSize = 8 End If If Len(Text1) > 15 Then Me.Text1.FontSize = 7 End If End Sub على ان الخط الافتراضي = 10 عدل في عدد الاحرف حسب حاجتك