نجوم المشاركات

الدالة ستكون هكذا : التغير في مكانين .. بداية الرقم اصبح 6 بدلا من 5 والسطر الأخير يمكنك وضع الفاصلة التي تريد بدلا من "-" Public Function GenerateID(TableName As String, fieldName As String) As String on error resume next Dim vLastY As Variant Dim iNext As Integer vLastY = DMax(fieldName, TableName, fieldName & " LIKE '" & Year(Date) & "*'") If IsNull(vLastY) Then iNext = 1 Else iNext = Val(Mid(vLastY, 6)) + 1 End If GenerateID = Year(Date) & "-" & Format(iNext, "000000") End Function

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

تريده هكذا أستاذ يوسف ؟ 🙂 JO_Lab.rar

دائما توضيح السؤال يقرب الإجابة لو قلت لنا منذ البداية بعد الضغط على f1 أريد أن يفتح تقرير أو نموذج أو غيره ما عندك مشكلة لكن أبو جودي وضحلك طريقة الكود نفس الكود غير ما بعد الجملة الشرطية لما تريد أن يفعل الزر

لا تزعل علينا يا أخ محمد تفضل بالكود جرب وننتظر منك الرد ضغطF1.mdb