Error Adodc

[RezaS_1354]

[CODE]
با سلام خدمت سروران و اساتید عزیز
بنده بوسیله یک (MSHFlexGrid 1) که به یک (Adodc) متصل است یک آیتم از ستونی که در اکسس (Number) تعریف شده دکمه جستجویی گذاشتم که به محض کلیک روی آن ستون مثلا ستون شماره شناسنامه در یک جدول دیگر (MSHFlexGrid 2) نتیجه به نمایش در می آید و مشخصات فرعی یک فرد بوسیله جدول دومی نشان داده می شود ولی متاسفانه هر موقع کاربر به اشتباه یکی دیگر از ستون ها را کلیک میکند یک پیغام Error از Adodc داده میشود و من هر چه کد مقابله با Error می دانستم نوشتم ولی اول این پیغام را می دهد بعد پیغام کد من را که نمونه کد را در ذیل می آورم .
دوم اینکه آیا مانند برنامه های مولتی مدیا هم به آن تمیزی میشود مثلا یک دفترچه باز داریم و می خواهیم بوسیله یک دکمه یک ورق زده شود و این ورق زدن را خیلی طبیعی نشان دهد
ممنون میشوم اگر پاسخ بنده را بدهید با تشکر رضا صادقی .......


Private Sub CmdFind_Click()
On Error Resume Next
On Error GoTo ErrFindZ
'
Dim StrFind As String
StrFind = "select * from baygani where shShenasname = " & MSHFlexGrid1.Text
Adodc1.RecordSource = StrFind
Adodc1.Refresh
'
Exit Sub
ErrFindZ:
MsgBox "! جهت مشاهده مشخصات فرعی فقط در روی ستون شماره شناسنامه فرد مورد نظر باید کلیک کنید ", vbExclamation, "توجه "
'
End Sub

[RezaS_1354]

یادم رفت پیغام Adodc را بنویسم
این هم پیغام Adodc
Syntax error (missing operator) in query expression 'LastName = aaaa ' f

[ali_habibi1384]

خط strfind=... مشکل داره چون دابل کوتیشن رو زود بستی یک نمونه می زارم خودت برنامه رو اصلاح کن :


StrFind = "select * from baygani where (shShenasname = '" & MSHFlexGrid1.Text & "')"
Adodc1.RecordSource = StrFind
Adodc1.Refresh

موفق باشی

[RezaS_1354]

پس از سلام و عرض ادب خدمت شما
علی آقا من کد اصلاحی شما را در برنامه قرار دادم و خیلی تغییرات زیادی انجام شد و پیغام های Error از 3 عدد به یک پیغام کوچک کاهش یافت به این مضمون
Syntax error in From Clause
این پیغام کوچک اعصاب برایم نگذاشته آیا به نظرت این هم میشود حذف شود با
On Error Resume Next و on Error Goto ErrFind هم اثری نکرد یا اینکه در روالهای کدی Adodc در قسمت Error و MoveComplete آیا میشود مانوری داد بهر حال ممنون هستم
با تشکر .... رضا صادقی

[ali_habibi1384]

فکر می کنم که اشکال از اینه که شما adodc رو به هیچ کنترلی وصل نکردی مثلا به یه تکست باکس . در ثانی مشکلات ریز برنامه رو نمیشه همینجوری حل کرد حالا یه بار تکست باکست رو به یه فیلد وصل کن اگه جواب نداد سورست رو بذار اینجا تا به همراه بقیه دوستان اونو اصلاح کنیم!