خطای 3622

[reza_2011]

سلام
من یک فایل دارم که جداول را از SQL لینک کردم ولی در بعض از فرمها وقتی با استفاده از رکوردست جستجو میکنم خطای شماره 3622 ظاهر می گردد لطفا بفرمائید علت چیست ؟

[amirzazadeh]

سلام
من یک فایل دارم که جداول را از SQL لینک کردم ولی در بعض از فرمها وقتی با استفاده از رکوردست جستجو میکنم خطای شماره 3622 ظاهر می گردد لطفا بفرمائید علت چیست ؟
سلام
احتمالا شما براي جستجو از كدهايDAO استفاده ميكنيد اگر اينطوره اونها رو با ADOجايگزين كنيد.
.............................
موفق باشيد

[reza_2011]

سلام
ضمن تشکر از پاسخگوئیتان ، من با استفاده از قطعه زیر (نام متغیر و فیلدها و جداول را تغییر می دهم ) در جدولهای دیگر همین فایل عملیات جستجو و . . . را انجام می دهم ولی در تعداد دیگر با این مشکل روبرو هستم

Option Compare Database
Dim db As Database
Dim rst As Recordset
Private Sub Text0_Exit(Cancel As Integer)
Set db = CurrentDb
Set rst = db.OpenRecordset(" select * from main where(id ='" & Text0 & "')")
If rst.EOF Then
MsgBox 11
Else
MsgBox 11111
End If
rst.Close
End Sub

[reza_2011]

سلام
از دوستان اگر کسی می تواند کمک کند

[reza_2011]

لطفا یکی کمک کنه

[amirzazadeh]

لطفا یکی کمک کنه
سلام
كدهاتون رو به اين شكل اصلاح كنيد:

Option Compare Database
Dim db As Database
Dim rst As Recordset
Private Sub Text0_Exit(Cancel As Integer)
Set db = CurrentDb
Set rst = db.OpenRecordset(" select * from main where(id =Cint('" & Me!Text0 & "')),dbOpenSnapshot")
If rst.EOF Then
MsgBox 11
Else
MsgBox 11111
End If
rst.Close
End Sub
....................
موفق باشيد

[reza_2011]

سلام
من کدها را مطابق دستور جنابعالی تغییر دادم ولی خطای زیر ظاهر می شود

[amirzazadeh]

سلام
من کدها را مطابق دستور جنابعالی تغییر دادم ولی خطای زیر ظاهر می شود
سلام
اين يك خطاي گرامريه ظاهرا يكي از علامت هاي كاما كم و زياد شده اگر بررسي كنيد حتما پيدا ميكنيد.
............................
موفق باشيد

[reza_2011]

سلام
ضمن تشکر از پاسخگوئیتان ، فیلد مورد نظر که در قسمت Where آمده است از نوع عددی و AutoNumber بوده است هنگامی که در خط Select نام فیلد از نوع AutoNumber بیاید پیغام خطا ظاهر می شود درغیر اینصورت بدون هیچگونه خطائی کار انجام می شود