• 0
رامي

هل يمكن عمل ترقيم تلقائي في الاستعلام

سؤال

هل يمكن عمل ترقيم تلقائي في الاستعلام

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

5 إجابة على هذا السؤال .

  • 0

نعم يا استاذ رامي ذلك ممكن

لقد عملت لك المثال المرفق أنظر إلى الاستعلام

QNum.rar

1

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

شكراً لك ياأبا سارة وبارك الله فيك .

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

بارك الله فيك أخي مصلح

ولكن ماذا لو كنا نريد ان نبني الترقيم على أساس حقل نصي

أنت بنيت ترقيمك التلقائي للإستعلام على أساس الحقل id

ماذا لو كان لا يوجد في الإستعلام حقل id وهناك حقول نصية مثل الإسم وهكذا

هل نستطيع فعلها

؟

!

1

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

اخي الفاضل 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")

وهذا مثال على هذه الطريقه

AutoNumberInQry.rar

1

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

بسم الله الرحمن الرحيم

بارك الله فيك اختنا زهرة

مثال رائع بحق واستفدت منه كثيرا

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
زوار
This topic is now closed to further replies.

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .