ابوخليل

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

نفرض ان حقل تاريخ التركيب اسمه 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

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

تفضل : جعلت معامل الضرب x خمسة ارقام فظهر تكرار مرتين فقط خلال 540 سجل ثم جعلت معامل الضرب x تسعة فاختفى التكرار تماما يمكنك التجربة والملاحظة تنبيه : لا يمكننا جعل الحقل مفتاحا او غير قابل للتكرار لأنه في الاصل عبارة عن حقول فارغة مكررة ترقيم عشوائي عبر الجدول.rar

نعم كما ذكرت والسبب ان العملية اصلا لتوليد رقم تلقائي عشوائي لسجل واحد جديد وانت تريد ادراج ارقام عشوائية فريدة لسجلات موجودة سأنظر في هذا هل تريدها عبر النموذج المستمر ام عبر الجدول مباشرة ؟ هذه عبر النموذج : حامل المسك.rar

بارك الله فيك احفظ الملف على 2003 ثم ارفعه

تفضل من : هنـــــــــــــا او من : هنــــــــــــا

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

اخي معذرة لا يمكنني فتح المرفق للتعديل بسبب الاصدار تفضل هذا مطلوبك الصقه في حدث النقر على زر داخل نموذجك مع الاخذ بالاعتبار تغيير اسم التقرير بالاسم الذي في برنامجك DoCmd.OpenReport "RepName", acViewPreview, "", "", acNormal DoCmd.PrintOut acPages, 1, 1, acHigh, 1, True If MsgBox("اقلب الورقة ان كنت تريد الطباعة في الخلف", vbOKOnly, "") = vbOK Then DoCmd.PrintOut acPages, 2, 2, acHigh, 1, True Else DoCmd.PrintOut acPages, 2, 2, acHigh, 1, True End If DoCmd.Close acReport, "RepName"

اخوتي الكرام شكرا لكم .. تم فصل الموضوع بعنوان مناسب

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

اصلحها الله وانبتها نباتا حسنا وكن مستعدا ابا يوسف سنيات قليلة وتسمع يا جدو

تفضل 11.rar

اخوتي الاكارم في القسم العام / المنتدى الاجتماعي يوجد موضوع مخصص / للتعارف بين اعضاء المنتدى وهو مفيد جدا لمثل هذه الظروف