StartupShowDBWindow pops up with ACCDE file after hidden

[neelsfer]

I have a strange situation. When i run the following code to import a .csv file, the StartupShowDBWindow opens on completion. Any suggestions on how to revert back to hiding it please? I think my issues are between lines 17-22.

 Dim strPath As String
        With Me
         strPath = Left(.lblFile.Caption, InStrRev(.lblFile.Caption, "\"))
        strPath = FSBrowse(strStart:=strPath, _
                           lngType:=msoFileDialogFilePicker, _
                           strPattern:="MS Excel,*.csv")
If strPath > "" Then
             .lblFile.Caption = strPath
           MsgBox "Please be patient. All Data is now imported into the program", vbInformation, "Data imported"
             Call DoCmd.SetWarnings(False)
              DoCmd.OpenQuery "deleteRoagdata"
DoCmd.OpenQuery "DeleteRoagEntry"
            Call DoCmd.TransferText(acImportDelim, , "Roagdata", strPath, True, "")
            End If
     End With
 
Dim tblDef As TableDef
 
    For Each tblDef In CurrentDb.TableDefs
    If InStr(1, tblDef.Name, "ImportError") > 0 Then
        DoCmd.SelectObject acTable, tblDef.Name, True
               DoCmd.DeleteObject acTable, tblDef.Name
 
    End If
    Next tblDef
 
DoCmd.OpenQuery "AppendRoagEntry"
 Call DoCmd.SetWarnings(True)

[ADezii]

Try channging Line# 21 to:

DoCmd.SelectObject acTable, tblDef.Name, False

[neelsfer]

Thx Adezi, an oversight from me that almost drove me to .....

[ADezii]

@neelsfer
No problem, a little oversight we all make at some point in time.