-
مشكل در برنامه
با سلام
کسی میدونه این خطای اتفاق افتاده یعنی چی و چطوری بر طرف میشه؟
Run_time erorr 3001
argument are of the worng type,are out of acceptable range or are in conflcit with one another
خطای ذکر شده بر اثر اجرای دستور زیر که برای جستجو در یک بانک اطلاعات استفاده میشه اتفاق میافته و DNS در نظر گرفته شده برای datacontrol SQL هست و اینکه با JET 4.0 هم همین خطا اتفاق میافته
کد:
' Dim vntBookmark As Variant
' strLast = InputBox("لطفا نامی را برای جستجو وارد کنید")
' If strLast <> "" Then
' vntBookmark = AdoMoshakhasat.Recordset.Bookmark
' AdoMoshakhasat.Recordset.Find "Film Name LIKE '" & strLast & "*'"
' If AdoMoshakhasat.Recordset.EOF Then
' AdoMoshakhasat.Recordset.Bookmark = vntBookmark
' MsgBox "نام مورد نظر پیدا نشد"
' End If
' End If
لطفا کمک
با تشکر
-
سلام
خيلی خوش اومديد
خط اول به جای variant از string استفاده کنيد ببينيد چی ميشه... يعنی:
کد:
' Dim vntBookmark As String
' strLast = InputBox("لطفا نامی را برای جستجو وارد کنید")
' If strLast <> "" Then
' vntBookmark = AdoMoshakhasat.Recordset.Bookmark
' AdoMoshakhasat.Recordset.Find "Film Name LIKE '" & strLast & "*'"
' If AdoMoshakhasat.Recordset.EOF Then
' AdoMoshakhasat.Recordset.Bookmark = vntBookmark
' MsgBox "نام مورد نظر پیدا نشد"
' End If
' End If
-
wahid2003vj عزیز
بر خلاف دوستمون جناب ساسر، من فکر می کنم مشکل از نوع داده متغیر vntBookmark نیست. از اتفاق Bookmark را باید از نوع Variant تعریف کرد.
اینطور که از شرح خطا پیداست، مشکل باید از شبه جمله SQL ی باشه که نوشتین:
کد:
AdoMoshakhasat.Recordset.Find "Film Name LIKE '" & strLast & "*'"
منظورتون از Film باید فیلدی به همین اسم باشه، درسته؟ خوب پس Name چیه؟ این جمله در واقع برای موتور Jet یه مقدار نامفهمومه. پیش خودش می گه آخرش اونهایی رو باید پیدا کنم که Film شون ... طوریه یا Name شون؟ :happy:
البته شاید شما اسم فیلدتون رو مثلا گذاشتین Film_Name ولی اینجا یادتون رفته آندرلاین رو بذارین.
خلاصه این جمله رو یه چک بکنین. به احتمال قریب به یقین خطا بهمین علت رخ می ده.
-
با سلام
ممنون از راهنمایی تون من تازه راهنمائی های شما رو دیدم باید برم چک کنم ببینم جواب میده یا نه فعلا با اجازه
-
با سلام
کاری رو خواسته بودید انجام دادم و بالاخره جواب گرفتم نمیدونید چه کمک بزرگی به من کردید
با تشکر
-
سلام دوست عزیز
ممنون بخاطر تشکرتون. باور کنید بدون اغراق می گم، در چنین مواقعی من هم به اندازه شخصی که راهنمایی ناچیز من براش موثر بوده خوشحال می شم.
امیدوارم موفق باشید
-
-
