S
SIN
hi all,
i have error message - Too few parameters - but the record existent so i
think that the problem on the syntax:
Private Sub CmdExecute_Click()
Dim dbs As Database
Dim rsSupplier As Recordset
Dim strSQL As String
Set dbs = CurrentDb()
strSQL = "SELECT * from Supplier "
strSQL = strSQL & " where supplier_name = " & Me!Supplier_Name
Set rsSupplier = dbs.OpenRecordset(strSQL)
rsSupplier.Close
Set cn = Nothing
End Sub
i have error message - Too few parameters - but the record existent so i
think that the problem on the syntax:
Private Sub CmdExecute_Click()
Dim dbs As Database
Dim rsSupplier As Recordset
Dim strSQL As String
Set dbs = CurrentDb()
strSQL = "SELECT * from Supplier "
strSQL = strSQL & " where supplier_name = " & Me!Supplier_Name
Set rsSupplier = dbs.OpenRecordset(strSQL)
rsSupplier.Close
Set cn = Nothing
End Sub