error در هنگام اجرای یک Query ساده

[hasty_f]

با سلام
من کد زیر را نوشته ام اما هنگام اجرا خطای 3265 میدهد که"Item not found in this collection"
Private Sub Command16_Click()
Dim dbs As Database
Dim rst As Recordset
Dim strsql As String


strsql = "select [Tb-vendor].[vendor-name] from [Tb-vendor] where [Tb-vendor].[vendor-id]=10"

Set dbs = CurrentDb
Set rst = dbs.OpenRecordset(strsql)
MsgBox rst!Vendor_Name
End Sub

لطفا کمکم کنید.

[reza_rad]

query رو یکبار توی wizard چک کنید.

[hasty_f]

جواب میده مشکلی نداره.....

[شاپرک]

اگه ممکنه فایلت رو بذار

[hasty_f]

ممنون حل شد. تغییرش دادم به select [Tb-vendor].[vendor-name] as name from [Tb-vendor] where [Tb-vendor].[vendor-id]=10

یک سوال دیگه دارم
میتونید لطفا به من کمک کنید چظوری میتونم پارامتر یک Query رو از یک TextBox از روی فرم بگیرم؟
این کد رو نوشتم :
Sub InsertNewVendor(Name As String, Address As String, TelNo As String, Mail As String, Hesab As String)

strs = "INSERT INTO [Tb-vendor] ( [Vendor-Id], [Vendor-name], [Vendor-Address], [Vendor-Tel-No]," & _
"[Vendor-EMail], [Vendor-Bank-Account] )" & _
"VALUES (GetNewVendorId()+1,Name,Address,TelNo,Email,Hesab )"
DoCmd.RunSQL (strs)

End Sub

GetNewVendorId() یک فانگشنه و کار میکنه.
anme, address,... رو از TextX.Text میخوام بگیرم اما هنگام اجرا مرتب برای گرفتن پارامترها از طریق MsgBox ازم اونارو میگیره. باید چکار کنم؟
میتونید یک نمونه کد شبیه این بهم بگید؟ مرسی.

[hasty_f]

ممنون حل شد. تغییرش دادم به select [Tb-vendor].[vendor-name] as name from [Tb-vendor] where [Tb-vendor].[vendor-id]=10

یک سوال دیگه دارم
میتونید لطفا به من کمک کنید چظوری میتونم پارامتر یک Query رو از یک TextBox از روی فرم بگیرم؟
این کد رو نوشتم :
Sub InsertNewVendor(Name As String, Address As String, TelNo As String, Mail As String, Hesab As String)

strs = "INSERT INTO [Tb-vendor] ( [Vendor-Id], [Vendor-name], [Vendor-Address], [Vendor-Tel-No]," & _
"[Vendor-EMail], [Vendor-Bank-Account] )" & _
"VALUES (GetNewVendorId()+1,Name,Address,TelNo,Email,Hesab )"
DoCmd.RunSQL (strs)

End Sub

GetNewVendorId() یک فانگشنه و کار میکنه.
anme, address,... رو از TextX.Text میخوام بگیرم اما هنگام اجرا مرتب برای گرفتن پارامترها از طریق MsgBox ازم اونارو میگیره. باید چکار کنم؟
میتونید یک نمونه کد شبیه این بهم بگید؟ مرسی.

[reza_rad]

اگه سوالتون عوض شده باید توی یک تاپیک دیگه مطرحش کنید وگرنه تاپیک تون بسته میشه.سوالتون رو هم بیشتر توضیح بدید اونجا.
موفق باشید