ابوخليل

معالجة التكرار هذه فكرة ظريفة ومادام المسألة هكذا فيمكنك اختصار الارقام الى نصف العدد او اقل اما ثبات الارقام فيمكن تطبيقها بالاستعانة باستعلام بحيث يكون هو من تجرى عليه العملية بعد وضع المعيار المناسب للتعامل مع الحقول الفارغة فقط : وهو ماتم عمله من خلال الكود ادناه انسخه والصقه بدلا من الاول : 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

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

جزاك الله خير برنامج متكامل صغير الحجم متناسق الالوان

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

وعليكم السلام ورحمة الله وبركاته مرحبا استاذنا الكريم ابا انس وجدت لك مثالا بهذا الخصوص للاستاذة زهرة تفضل : zaRandNewNumber.rar

الاستاذ جعفر من اول الشهر لم يظهر وكذلك الاستاذ رمهان نسأل الله الكريم ان يحفظهما وأهلهما وأحبابهما وأن يردهما الينا سالمين غانمين

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

هي موجودة في اول مشاركة لك وقدفصلت لك عمل الدالة هناك