ابوخليل

السلام عليكم اعتقد لن تتمكن من اتاحة التعديل على مقاسات التقرير للمستخدم الا عندما يكون المشروع مفتوح على صيغة mdb أو accdb بحيث عند تنفيذ الكود يتم فتح التقرير على التصميم ثم التعديل ثم الحفظ ورأي اخونا kaser906 انك تعمل ملصقات عدة حسب المقاسات الشائعة ويتم الاختيار منها

السلام عليكم اخواني واحبتي : في المثال المرفق نموذج مستمر ، عند التصفية من مربع التحرير يظهر 58 سجل في عمود واحد اريد عرض هذه السجلات في اكثر من عمود ، بالضبط كما نعمل في التقارير . الذي اعرفه انه في التقرير يتم عمل ذلك من خصائص اعداد الصفحة والنموذج يوجد فيه هذه الخصائص نفسها ولكنه لا يستجيب . قلت : لعل الاصدارات بعد 2003 تدعم هذه الخصيصة في النموذج افيدونا مأجورين ،،، test.mdb

وعليكم السلام لا تحتاج الى تشغيل الاستعلام فالاستعلام يعطي قيمة وهو مغلق ولتوظيف قيمة حقل استعلام في مكان آخر .. يكفي ان تناديه فالتعامل مع حقول الاستعلام كالتعامل مع حقول الجدول تماما

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

حسب ما فهمت لا يلزمك ترحيل ولا استعلامات فقط اضف عمود لتضع فيه علامة لمن تجاوز المدة المحددة والكود المسؤول عن احتساب المدة مثل هذا Cmonth = DateDiff("m", Date1, Date()) يستخرج عدد الاشهر وتعمل استعلام تحديث للعمود الجديد بعد الفحص بهذه الدالة لكل سجل فيكون عندك شرطين : عدم السداد والمدة

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

الاعلان عن القيمة وبدون المرور على السجلات لانها حقل واحد Dim rs As Recordset Set rs = CurrentDb.OpenRecordset("SELECT Count(*) as expr1 FROM (SELECT DISTINCT tblcomIn.Datem FROM tblcomIn)as expr2 ") MsgBox rs!expr1 شكرا ابا جود ،،،

تسلم . تصل بالسلامة ..

الذي عندي بعضا مما عندكم ، جزاك الله خير الثلاث الاول واضحة ومفهومة . نريد الرابعة لا حرمك الله الأجر

اريد استخدم الرقم الناتج من جملة سلكت في اي مكان من البرنامج. تحويله الى متغير

صحيح .. لا شك ان جملة سلكت افضل واسرع السؤال الآن استاذنا كيف اعلن عن هذا الرقم الناتج ؟

يا سلام رائع .. رائع كما عودتنا استاذنا الكريم ولي عودة للاستفسار لانه يحدث اشياء غريبة عند اللصق وعند اعادة فتح الاستعلام تختلف وتتغير بعض البيانات لاني كنت اكتب ما ذكرته سابقا مارأيكم : Dim db1 As Database Dim rs As Recordset Set db1 = CurrentDb Set rs = db1.OpenRecordset("SELECT tblcomIn.Datem FROM tblcomIn GROUP BY tblcomIn.Datem") MsgBox rs.RecordCount نعم .. اتضحت .. الاستعلام يضيف للكود اسماء مستعارة للحقل وللجدول

لأن الايام التي تم التوقيع فيها 18 يوم كما هو عندك في الاستعلام q1 وايضا رأي الاستاذ رمهان طبعا على حسب البيانات في الجدول الحالي

شكرا استاذنا اطلعت على الحل المطلوب : (الرقم 18) اللي هو عدد السجلات الموجودة في Q1 الطريقتين اللي اعرفهما : الاولى : عن طريق استعلامين الاول تجميعي والثاني يقوم بعد التجميعي والثانية : وهي الاقرب عندي : عمل وحدة نمطية واضمن الاستعلام التجميعي داخلها فهل يوجد طريقة اقرب مثلا : 1- استعلام واحد يظهر الرقم أو 2- سطر برمجي باستخدام الدالة Dcount

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

السلام عليكم احبتي الكرام في المثال المرفق جدول يشتمل على سجلات حضور لموظفين وهي متفاوتة في العدد ونريد استخراج عدد ايام العمل الفعلية بناء على اكبر عدد حضور من أي واحد (بدون تخصيص) من الموظفين الموجودين في الجدول بمعنى اي موظف عدد توقيعاته هي الاكبر = عدد ايام العمل الفعلية المطلوب : اقصر طريق لاستخراج الرقم سواء من خلال كود برمجي او استعلام dbCountDays.mdb

وانا لم اسألك ما نوع مدخل كيبل الطابعة ؟ اذا usb : اولا حاول تغيير مدخل كيبل الطابعة في الكمبيوتر ... اذا كنت شاك انه متغير لم ينفع جرب : حاول تحذف تعريف الطابعة ثم تعيد تشغيل الكمبيوتر ثم تركب التعريف مرة اخرى هذا الذي اعلمه .. ولعل بعض الاخوة ممن لهم دراية وخبرة يفيدونك في ذلك

على كل حال غالبا تكون المشكلة في خصائص الطابعة اما المنفذ وهي مشكلة معروفة في الطابعات الصينية تصور بعض الطابعات الصينية حين اغير مخرج الــ usb لا تعمل او ان بعض الخصائص غير مفعلة (دسيبل) وتحدث في طابعة ابسون

طيب يكون الخلل في التقرير هل الطباعة تتم من البرنامج بنجاح على طابعة أخرى ؟ حتى لو طابعة وندوز الافتراضية ؟ هل الطابعة .. طابعة فواتير حرارية ؟

غالبا يكون السبب المنفذ ( البورت) افتح على الطابعات وكلك يمين على الطابعة وافتح تبويب المنافذ وحاول تغير المنفذ واذا فيه طابعة اخرى مشتركة في المنفذ الغيها مؤقتا وجرب

الطابعة صينية ؟

تفضل نقل الاسم .mdb

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

تفضل اكبر منup.rar

اكتب هذا تحت زر الدخول Private Sub log_Click() Me.WebBrowser0.Document.Forms(0).Save.Click End Sub