Passing parameters into vb using access query

[markyboy171]

I Have a basic select query using the access query builder
In my VB of a form button i have the following

Private Sub Add_User_Click()
On Error GoTo Err_Add_User_Click


    Dim Db As DAO.Database
    Dim tdf As DAO.TableDef
    Dim fld As DAO.Field
    Set Db = CurrentDb()
    Set tdf = Db.CreateTableDef("User_Table")
    Dim stDocName As String
    Dim strSQL As String
    Dim rs As DAO.Recordset
    Dim Counter As Integer
    Dim OP As String
    Dim Read As String
    Read = (Read)
    Dim OPP As QueryDef
    Set OPP = (Forms!Add_User_Manual![OPERATION])
    DoCmd.SelectObject (acQuery)
    stDocName = "Count"
    strSQL = "SELECT * FROM [stDocName] WHERE [Operation]=Read"
    Set rs = CurrentDb.OpenRecordset(strSQL)
    Counter = rs.RecordCount
    If (Counter > 0) Then
    MsgBox ("Success")
    Else
    MsgBox ("Fail")
    End If
    


Exit_Add_User_Click:
    Exit Sub


Err_Add_User_Click:
    MsgBox Err.DESCRIPTION
    Resume Exit_Add_User_Click
    
End Sub

Apologies please ignore all the rubbish ive been trying a lot of things.

BTW The Count inside stDocName is the name of the query i have in the access



The end goal of this is to get the parameter to be the string passed in from the text box.

The Error i am getting when i click the button on the form is "Object required"

[June7]

Must concatenate variables, otherwise the variable name is just a literal string, also need apostrophe delimiters for text criteria:

strSQL = "SELECT * FROM [" & stDocName & "] WHERE [Operation]='Read'"

If you want parameter from textbox:
stDocName = Me.textboxname
or
strSQL = "SELECT * FROM [" & Me.textboxname & "] WHERE [Operation]='Read'"

[markyboy171]

Thanks Very Much. Looks like that might work. I'll give it a go and see how I get on.

Thanks Again

[markyboy171]

Hi Im now recieving a different error

Too few parameters. Expected 1

    Dim Db As DAO.Database


    Set Db = CurrentDb()


    Dim stDocName As String
    Dim strSQL As String
    Dim rs As DAO.Recordset
    stDocName = "Count"
    strSQL = "SELECT * FROM [" & stDocName & "] WHERE [Operation]=[" & Me.OPERATION & "] "
    Set rs = CurrentDb.OpenRecordset(strSQL)
    Counter = rs.RecordCount
    If (Counter > 0) Then
    MsgBox ("Success")
    Else
    MsgBox ("Fail")
    End If

This is my query "Count"

SELECT User_Table.OPERATION
FROM User_Table;

Just to Explain stDocName is my query in access Operation is the field the query is pulling and also the name of the textbox.

Thanks

[markyboy171]

For reference this is the fix

strSQL = "Select * FROM [" & stDocName & "] WHERE [Operation]='" & OperationP & "' AND [Object]= '" & ObjectP & "'"

Where ObjectP and OperationP are strings based on the text boxes#

Thanks for all the help

Peace