ايران ويج

ممنون می شم اگه یه نفر جوابمو بده آخه خیلی مهمه.

من یه برنامه دارم که بانک اطلاعاتیش با اکسس و یه تکس باکس داره که
کد فردی رو از کاربر دریافت می کنه حالا می خوام کاری کنم که اگه کد تکراری
واردش بشه یه error بده و بگه که این کد قبلاً وارد شده.
دستت درد نکنه که جوابمو دادی.

دوست عزیز چرا شما نمی خوای یاد بگیری که عنوان درست برای تاپیک هات
انتخاب کنی
عجب گیری کردیم ها !
دفعه دیگه با عرض شرمندگی پاک می کنم !

اي بابا چند دفعه مي پرسي
اينم يه سرس با ديتا اينواير منت
Private Sub polomp_Change()
If Len(text1.Text) >= 6 Then

DataEnvironment1.rsCommand1.Open
DataEnvironment1.rsCommand1.Find "Fields1 = '" & text1.Text & "' "

If DataEnvironment1.rsCommand1.EOF = False Then
MsgBox "err_namber", vbCritical, "err"
DataEnvironment1.rsCommand1.Close
Else
DataEnvironment1.rsCommand1.Close
text2.SetFocus
End If
End If
End Sub
در مثال بالا كد مورد نظر 6 رقمي فرض شده. بلافاصله بعد از اينكه تكست 1 شش رقمي شد شماره رو چك مي كنه اگه تكراري بود پيغام مي ده در غير اينصورت فكوس به تكست بعدي مي ره.
موفق باشي.