ورود

View Full Version : سوال: دریافت ارور DATA TYPE


laia56
یک شنبه 28 آبان 1391, 15:12 عصر
با سلام خدمت دوستان واساتيد محترم
مشکلی دارم که با توجه به کد جستجویی که از همین سایت گرفته ام (حاصل لطف یکی از اساتید ) در زمان استفاده در صورتیکه فیلد مورد جستجو از نوع عددی باشد مشکلی نیست ولی درصورتیکه از نوع تکست باشد ارور شکل زیر را دریافت میکنم با وجود اینکه نمونه های زیادی حاصل لطف اساتید در سایت وجود دارد اما بنده میخواهم همین مورد را درک کنم
با تشکر از صبر وحوصله دوستان


Private Sub Text50_AfterUpdate()
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[GH12] = " & Str(Nz(Me![Text50], 1))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
Abbas Amiri
یک شنبه 28 آبان 1391, 21:30 عصر
سلام
ازاینگونه موارد در تالار زیاد بچشم میخورد . برای نوع داده String عبارت مورد جستجو را در کوتیشن قراردهید 'expression'



rs.FindFirst "[GH12] = '" & Str(Nz(Me![Text50], 1)) & "'"
laia56
دوشنبه 29 آبان 1391, 10:00 صبح
با تشکر از پاسخ شما
اما با جایگزینی کد فوق نیز نتوانستم به جواب برسم
اگر مقدور هست فایل زیر را بررسی کنید
Abbas Amiri
دوشنبه 29 آبان 1391, 18:04 عصر
از تابع ()Str صرفنظر کنید


rs.FindFirst "[GH12] = '" & Nz(Me![Text50], 1) & "'"
laia56
سه شنبه 30 آبان 1391, 08:58 صبح
امکان یکبار استفاده از دکمه تشکر برای لطف شما و سایر اساتید سایت خیلی کمه