کد مشتری تعریف نشده است

[ydmoghadam]

چطور می شود کدی که درجدول بانک اطلاعاتی نیست با ورود در برنامه پیغام دهد کد تعریف نشده است مثلا اگر کد شماره 1باشد درصورتی که کد دورقمی شود ورقم اول ان 1باشد فبول می کند

[mostafag]

از این کد استفاده کنید




S = "code like '" & Text1.Text & "'"
Adodc1.Recordset.filter= S
if adodc1.recordset.recordcount=0 then
msgbox "کد تعریف نشده است"
end if

[ydmoghadam]

باسلام mostafag

خطا می گیرد Adodc1.Recordset.Filter = s
ودر خطا s=0
می باشد با کمال تشکر

[mostafag]

سلام
من تست کردم مشکلی نداشت!!!
اگر میتونید سورستون و یا قسمتی که کد رو استفاده کردید رو بزارید شاید تونستم کمک کنم!

راستی خط s=0 یعنی چی!!؟
میشه بگید دقیقا توی کدوم خط خطا میده؟!!

[gohari244]

سلام دوست عزیز

یه فایل test قرار دادم دانلودش کن جوابت می گیری

البته این هم بگم واسه یک همچین مشکلهایی یک راه دیگه هم که وجود داره اینه که به جایTrim(text.text)
از val(text.text) استفاده کنی البته من تو این پروژه از trim استفاده کردم ولی val چون تابع رو عددی می کنه جواب دقیق تر است البته اگه موردئ جستجوی ما عدد باشه

65814