ابوخليل

حسب ما فهمت لا يلزمك ترحيل ولا استعلامات فقط اضف عمود لتضع فيه علامة لمن تجاوز المدة المحددة والكود المسؤول عن احتساب المدة مثل هذا 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

هو لن يتعرف على الحقل الا بوجود المصدر داخل الاستعلام وهذا لن يتم الا اذا ادرجناه داخل الاستعلام الرئيس وحتى تتخيل النتيجة هذه صورة الاستعلام الفرعي منفردا يمكنك ان تعلن عن المعيار ضمن الوحدات العامة فتظهر لك هذه النتيجة وسيتبادر الى ذهنك سؤال : اين الموظف الآخر ؟ والجواب : السنا حددنا العرض بـ 3 سجلات ولكنها ستظهر في الاستعلام الرئيس لانه يعرض الجميع مع اخذه بالاعتبار لشرط الاستعلام الفرعي( الثلاث قيم الكبرى )

آمين .. ولك اخي بمثل ما دعوت ..

السبب انك تستخدم برنامج ضغط رار قديم ، استخدم نسخة حديثة تم تعديل المثال حسب طلبك za-Send Sms-UP4.rar

السلام عليكم ونيابة عن اخونا AlwaZeeR استعلامين الاول الذي يتم عرضه وهو تجميعي والفرز فيه من اجل تسلسل الموظفين SELECT tt1.MidNum, tt1.empid, tt1.emprep FROM tt1 GROUP BY tt1.MidNum, tt1.empid, tt1.emprep ORDER BY tt1.empid; والثاني (استخدم كمعيار) هو عبارة عن حقل واحد ( MidNum ) رقم التقرير Select TOP 3 MidNum FROM [tt1] as TagRs WHERE TagRs.[empid] = [tt1].[EmpID] ORDER BY MidNum Desc لاحظ ان اسم المصدر TagRs المستعار يمثل الجدول tt1 ، و المعيار empid من اجل تكرار TOP 3 لكل موظف و In نستخدمها اذا كان المعيار يشتمل على قيم متعددة