سوال: اجرا نشدن شرط [بایگانی]

abas1388

یک شنبه 04 بهمن 1388, 19:54 عصر

با سلام
دوستان ! واقعاً گیج شدم نمیدانم ایراد کدی که در نمونه ضمیمه نوشته ام کجاست ؟
من میخواهم وقتی شماره ای وارد تکست باکس کردم و کمند باتن را زدم در صورت موجود بودن شماره فوق در جدول1 ، پیغام موجود بودن صادر شود در غیر اینصورت پیغام موجود نبودن .
با تشکر

ali190

یک شنبه 04 بهمن 1388, 20:54 عصر

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

abas1388

سه شنبه 06 بهمن 1388, 18:27 عصر

باسلام
بازهم قدرت کوئریها نادیده گرفته شد.
یاعلی
با سلام
باید عرض کنم که می خواهم انجام اینکار با کد نویسی صورت بگیرد نه از طریق کوئری
از اساتید بزرگوار استدعا دارم در این مورد حقیر را راهنمائی نمایند .
باور کنید این موضوع حسابی کلافه ام کرده .آخه به نظر خودم ظاهراً کد ها را درست نوشته ام اما نمیدانم چرا اجرا نمیشود.
با تشکر

nabeel

سه شنبه 06 بهمن 1388, 21:00 عصر

سلام
کد شما در واقع Loop رو کامل نمیکنه و تنها رکورد اول رو بررسی میکنه و در صورت مساوی نبودن خارج میشه
شرط عدم پیدا شدن رو باید در خارج Loop قرار بدید

Do While rst.EOF = False
If rst![a] = [Text0] Then
MsgBox "! Peyda Shodan ", vbInformation, "ÇÚáÇä"
Exit Sub
End If
rst.MoveNext
Loop
MsgBox "! Peyda Nashodn ", vbInformation, "ÇÚáÇä"