هل يمكن عمل ترقيم تلقائي في الاستعلام
هل يمكن عمل ترقيم تلقائي في الاستعلام
مغلق
شكراً لك ياأبا سارة وبارك الله فيك .
بارك الله فيك أخي مصلح
ولكن ماذا لو كنا نريد ان نبني الترقيم على أساس حقل نصي
أنت بنيت ترقيمك التلقائي للإستعلام على أساس الحقل id
ماذا لو كان لا يوجد في الإستعلام حقل id وهناك حقول نصية مثل الإسم وهكذا
هل نستطيع فعلها
؟
!
التغير هو القانون الدائم للحياة.ودوام الحال من المحال
فلماذا لا نتغير بإرادتنا إلى ما نريد؟ قبل أن تغيرنا الحياة مجبرين إلى ما لا نريد؟
اخي الفاضل mas123
السلام عليكم ورحمة الله وبركاته
لعمل ترقيم تلقائي في الإستعلام مبني على حقل نصي مثل Name عليك اتباع الخطوات التالية
1. انشاء جدول وليكن اسمه مثلا Table وضع به الحقول المطلوبه ومنها طبعا حقل نصي وهو Name
2. انشئ استعلام مبني على الجدول وليكن اسم الاستعلام مثلا zaQry
3. انشئ وحده نمطية جديده وضع بها هذا الكود
Function RcNumQ1(mID As Variant, fldName As String) As Variant
Dim RstClone As Recordset
Dim Fld As Field
Dim I As Long
RcNumQ = Null
If IsNull(mID) Then Exit Function
Set RstClone = CurrentDb.QueryDefs("zaQry").OpenRecordset
If RstClone.RecordCount = 0 Then Exit Function
Set Fld = RstClone.Fields(fldName)
With RstClone
.MoveFirst
Do Until .EOF
I = I + 1
If Fld = mID Then Exit Do
.MoveNext
Loop
End With
RstClone.Close
RcNumQ1 = I
End Functionلاحظ اسم الاستعلام zaQry في الوظيفة RcNumQ1
4. انتقل الان الى الاستعلام وافتحه في عرض التصميم وقم بإضافة تعبير جديد مثلا ID وضع به التعبير التالي
ID: RcNumQ1([Name];"Name")
وهذا مثال على هذه الطريقه
بسم الله الرحمن الرحيم
بارك الله فيك اختنا زهرة
مثال رائع بحق واستفدت منه كثيرا
هذا الموضوع مغلق.