الاخوة الاعزاء وجدت في منتدانا المبارك كود يخبر مدخل البيانات أن الاسم قد ادخل سابقا بالرقم رقم ؟؟ .
لكن تم اخذ هذا الكود وتركيبه على نموذج بطريقة عكسية وهي عندما يدخل الرقم يخبره بأن الرقم هذا ادخل باسم ؟؟؟؟
لكن لم ينجح هذا الكود ولا ادري ما السبب؟
مع أنني غيرت خاصية الرقم الى نص خوفا أن يكون السبب الا انه لم ينجح ايضا
هل يعقل ان الكود صمم مع الرقم شرط ان يكون رقم تلقائي لانني وجدته في المثال كذلك ...
ارجو من الاخوة ارشادي للحل الامثل ولكم جزيل الشكر
واليكم هذ الكود
Dim db As Database
Dim rst As Recordset
Set db = Application.CurrentDb
NewName = [Forms]![جدول1]![نص1]
Set rst = db.OpenRecordset("SELECT [المستبعدين].[رقم الطلب] " _
& " FROM [المستبعدين] WHERE [رقم الطلب]= " & "'" & NewName & "'")
If rst.RecordCount = 1 Then
MsgBox "سبق إدخال هذا الاسم برقم " & rst![الإسم]
Cancel = -1
End If
db.Close