موضوع سبب لي الاكتئاب في الآكسس

اخى العزيز

جربت تعمل الحقل الخاص برقم الموظف ترقيم تلقائى وتريح دماغك من الموضوع ودع السيد اكسس يرقم الموظفين تلقائى

مينفعش أعمل ترقيم تلقائي لأن مش كل الموظفين موجودين يعني ممكن تلاقي رقم 26 والملف اللي بعده رقمه 207 يعني باختصار انا اول ملف عندي رقمه 26 وآخر ملف رقمه 16700 لكن عددهم تقريبا 600 أو 700 ملف اعتقد الرد كافي على استفسارك

وأشكرك جدا على المرور

طيب بعد تحديث رقم الموظف افتح ريكوردست RecordSet دور فيه علي الرقم اللي انت كاتبه لو وجده يعطيك رساله ان الرقم ده موجود مسبقا لو لم يجده اوكي

الموضوع ده محتاج كود فيه الافكار التالية

RecordSet - EOF - BOF - Loop - IF - Then- MsgBox

هاجرب إن شاء الله وارد عليك

وشكرا لاهتمامك

مشكلتك مشابهة لما تم مناقشته في الرابط التالي :

http://www.officena.com/ib/index.php?showtopic=534&hl=

مع تمنياتي بالتوفيق

اخواني الأفاضل جدا جدا اشكركم جزيل الشكر انا حليت المشكلة بتاعتي عن طريق الكود اللي دلني عليه الأخ pc teatcher والكود كالتالي

Private Sub رقم_الموظف_LostFocus()

Dim db As DAO.Database

Dim rst As DAO.Recordset

Set db = CurrentDb

Set rst = Me.RecordsetClone

rst.MoveFirst

Do Until rst.EOF

If rst!رقم_الموظف = Me.رقم_الموظف Then

MsgBox "الموظف الذي تقوم بادخال بياناته تم ادخالها من قبل الرجاء ادخال بيانات موظف آخر "

Cancel = True

Exit Do

End If

rst.MoveNext

Loop

rst.Close

db.Close

End Sub

بس في طلب لو ممكن شرح الكود وفكره عمله وايه اللي بيعمله أكون شاكر جدا

مع خالص تحياتي