VBA Not Building Query

[jo15765]

This is my syntax and I am attempting to


1) Delete query if already exists
2) Create new query

My syntax presents no errors, but the query is not created.

Private Sub Ctl_Click()
Dim strsql As String, qdf As QueryDef


    'Deleting query if exists
    On Error Resume Next
    CurrentDb.QueryDefs.Delete ("EB")
    
    strsql = "Select firstbase, secondbase, thirdbase, so, h, w from baseballstats"
    Set qdf = CurrentDb.CreateQueryDef("EB", strsql)


    'Open the Report
    DoCmd.OpenForm "EB", acNormal
End Sub

What do I need to change so that tthe query is created?

[Thompyt]

Here's a start:

Function fcnCustomizeSQL(qName As String, strPassedSQL As String) As Boolean
    Dim qthisQuery As DAO.QueryDef
    If TempVars!tvEnableErrorHandling = True Then On Error GoTo fcnCustomizeSQL_Error   'if the query has been deleted, create it
    If DCount("Name", "MSysObjects", "[Name] = " & Chr$(39) & qName & Chr$(39)) = 0 Then
        Set qthisQuery = CurrentDb.CreateQueryDef(qName, strPassedSQL)
        Set qthisQuery = Nothing
        Exit Function
    End If

    Set qthisQuery = CurrentDb.QueryDefs(qName)
    qthisQuery.sql = strPassedSQL
fcnCustomizeSQL_Exit:
    On Error Resume Next
    Set qthisQuery = Nothing
    Exit Function
fcnCustomizeSQL_Error:
    MsgBox Err.Number & ", " & Err.Description & ", fcnCustomizeSQL"
    Resume fcnCustomizeSQL_Exit
End Function

[rpeare]

you may need to force a save to get the query to appear in the navigation pane, or manually refresh it through the right click menus.

Though I would question why you are replacing this query, this seems a useless step when your query should produce the same result every time.