پس چرا کسی جوابمو نمی ده ؟

[lovezahra]

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

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

[Iron_Fist]

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

[tanhatarin]

اي بابا چند دفعه مي پرسي
اينم يه سرس با ديتا اينواير منت
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 شش رقمي شد شماره رو چك مي كنه اگه تكراري بود پيغام مي ده در غير اينصورت فكوس به تكست بعدي مي ره.
موفق باشي.