Data type mismatch Error در Select اطلاعات

[kasmaii61]

با سلام خدمت دوستان
دوستان من یک پایگاه داده access دارم که هنگام اعمال دستور select بر روی اون دچار خطای زیر می شم
Data Type mismatch in criteria expression
کدی هم که تو برنامه به کار می برم اینه :

Dim VarFormNo As Integer

VarFormNo = CInt(Trim(FormNo.Text))

Rst.Open "SELECT * FROM Programs WHERE FormNo = '" & VarFormNo & "'"

فیلد FormNo در بانکم هم از نوع integer
از تابع val هم استفاده کردم در برنامه بازم مشکل حل نشد
زمانی که فیلد رو به text تو بانک تغییر میدم و تو برنامه ها دیگه تبدیل واحد انجام نمیدم درست کار میکنه
در مورد سایر فیلدهای غیر text مثل long integer هم همین مشکل رو دارم
ممنون میشم راهنماییم کنید

[majjjj]

 

Dim VarFormNo As Integer

VarFormNo = CInt(Trim(FormNo.Text))

Rst.Open "SELECT * FROM Programs WHERE FormNo = ' & VarFormNo & '"

این رو امتحان کن

[kasmaii61]

 

Dim VarFormNo As Integer

VarFormNo = CInt(Trim(FormNo.Text))

Rst.Open "SELECT * FROM Programs WHERE FormNo = ' & VarFormNo & '"

این رو امتحان کن

تغییری ایجاد نشد دوست عزیز دوباره با همین error تو خط select مواجه میشم
تو sql هم همین مشکل رو دارم
یه چیز دیگه هم هست، تو ثبت اطلاعات این مشکل رو ندارم یعنی زمانی که یه مقدار رو به همین فیلد نصبت میدم مشکلی پیش نمیاد
من احساس میکنم مشکل تو syntax یه که تو دستور select به کار می برم احتمالا این فیلد رو یه مقدار عددی در نظر نمیگیره
میشه از توابع تبدیل داده sql تو دستور select برای تبدیل به integer استفاده کنم؟

[majjjj]

نوع دیتا تایپ فیلدتون چیه؟

[kasmaii61]

همون طور که گفتم فیلد FormNo در بانکم هم از نوع integer
که البته تو access ابتدا باید data type رو number انتخاب کنی و بعد field size رو integer

[kasmaii61]

دوستان مشکل من همچنان باقیه کمکم کنید لطفا

[majjjj]

برنامه رو بزار برات اصلاحش میکنم
موفق باشین

[pershengkurd]

فقط باید تک کوتیشن ها رو بردارید، فقط

[mehrdad6464]

واقعا بابت این پاسخ ممنون از شما هستم . چقدر ساده اما کارآمد .