ابوخليل

الف مبروك .. تستاهلون اكثر شكرا لمشرفينا الأعزاء وشكرا لإدارة الموقع

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

الطابعة نفسها ليست عندي ولكني جربت على طاعات اخريات انظر التعديل ان كان يحل شيئا من المسألة Test Barcode2.rar

اخواني الاعزاء : يجب ان يكون كل سؤال جديد في موضوع جديد يخصة وانتقاء عنوان مناسب يصف الموضوع تم فصل الموضوع

تم فصل الموضوع

وعليكم السلام لايمكنني الاطلاع على المرفق ولكن كما ذكرت يبدو المشكلة في اعدادات التقرير وقد يكون للطابعة دور انا اطبع باركود واحد لسجل واحد على طابعة عادية A4 ابعاد التقرير = 2.8x1.2 سم

طريقتك في التطبيق صحيحة 100% ولكني اعتقد ان المشكلة فقط في المعيار داخل الكود والذي اسمه strWhere وهل الاشكالية بسبب التنسيق ام بسب آخر ؟ وفكرة الاستاذ سعيد ممتازة ويمكنك الاستفادة منها اذا كان العمل من خلال النموذج ، للتعامل مع اجازة واحدة وإعدادها ولكن لا يمكن تطبيقها داخل الاستعلام لعرض اكثر من سجل

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

الاكسس مابعد 2003 اقوى في الحماية فلا يمكنك تخفيض الامان برمجيا من داخل اكسس ولا بدلك من استخدام وسيطة خارجية مثلا تشغيل ملف خارجي يشتمل على الكود الذي تفضلت به كملفات reg او bat او exe

طيب انظر طلب الاستاذ سعيد اذا كان المثال صغير وحسب الحاجة تجعل من يتصدى للاجابة ينشط ويتفاعل مع المسألة

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

الاخ رضا : اعمل استعلام حذف ويكون المعيار في الحقل الجديد الذي ذكرت هو صفر ثم شغل الاستعلام تلاحظ انه حذف كل السجلات التي لم يعلم عليها

نفرض ان حقل تاريخ التركيب اسمه txt1 وحقل تاريخ الصيانة اسمه txt2 اكتب الكود التالي في حدث بعد التحديث للحقل txt1 txt2=txt1+80

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

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

جميل استاذ جعفر وقد اطلعت على هذه البرامج وهي غاية في الاتقان والشمول ، ويكفي انها معروفةتعمل من سنين ولكن يبقى الاشكال قائما ان هناك وسيط بين الجهاز وأكسس نريد من اكسس التحكم في الجهاز تحكما تاما بدون وسيط مثل : 1- جلب بيانات الحضور والانصراف من الجهاز مباشرة 2- حذف بيانات الحضور والانصراف داخل الجهاز 3- عمل فورمات للجهاز 4- التحكم والسيطرة على جميع خصائص الجهاز كل ما سبق يجب ان يتم من داخل اكسس ادوات التطوير التي تأتي مرفقة مع الجهاز تساعد المبرمج على تحقيق ذلك

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

معالجة التكرار هذه فكرة ظريفة ومادام المسألة هكذا فيمكنك اختصار الارقام الى نصف العدد او اقل اما ثبات الارقام فيمكن تطبيقها بالاستعانة باستعلام بحيث يكون هو من تجرى عليه العملية بعد وضع المعيار المناسب للتعامل مع الحقول الفارغة فقط : وهو ماتم عمله من خلال الكود ادناه انسخه والصقه بدلا من الاول : Dim db1 As DAO.Database Dim rs As DAO.Recordset Set db1 = CurrentDb Set rs = db1.OpenRecordset("SELECT table1.nox, table1.nameX, table1.id, * " & vbCrLf & _ "FROM table1 " & vbCrLf & _ "WHERE (((table1.id) Is Null))") If rs.RecordCount > 0 Then rs.MoveFirst Else Exit Sub End If Do While Not rs.EOF rs.Edit rs!id = Format(Int(Rnd * 123456789), "0000000") rs.Update rs.MoveNext Loop rs.Close: Set rs = Nothing

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

وعليكم السلام text2 = DateAdd("yyyy", 60, text1)

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

لا اعرف طريقة وضع كلمة مرور على جدول ولكن يمكنك وضع كلمة مرور على قاعدة جداول

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

وحبذا المثال الذي اشار اليه اخونا سعيد يكون على صيغة mdb

عودا حميدا ويكفي تبصر وش غلاك انا منهم ؟ .. تقصد في ركن التعارف ؟ اسمي وعنواني والهاتف موجود ولكنه ظاهر لفريق الموقع اي واحد تسأله من فريق الموقع يفيدك والا ليش تسأل ؟ ما تنضم الينا ؟ ترانا شارينك هاه .. قل تم