Custom application icon reverts when running import

[PRMiller2]

Have a weird one here. I have an Access 2003 .MDE file in which my Application icon has been set to an .ico file. I've also selected the option to "Use as Form and Report icon." The icon works fine and displays for most events, etc.

However, when I'm executing code that begins with "DoCmd.TransferSpreadsheet acImport", the icon disappears, reverting to the standard Access 2003 form and application icon.

Any suggestions?

 

[PRMiller2]

Has no one else encountered this issue? It continues to plague me and I'm not sure what else to check.

 

[newguy86]

Can you submit the code that executes on import?

Travis

http://www.apexsystemsinc.com

 

[PRMiller2]

Here's a section of the module in question:

    'Import the selected files to the temporary table
    If Not IsNull(varFiles) Then
        If IsArray(varFiles) Then
            For intCounter = 0 To intFileCount
                intProgress = intProgress + 1
                Call ProgressMeter(intProgress, intProgressBarMax)
                DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "ztblQARawImport", varFiles(intCounter), True
                strSQL = "INSERT INTO tblQAImportFile" & _
                     " (lonQACOMPANYAuditRecordID_fk, txtFileName)" & _
                     " VALUES(" & glngRecordNumber & ", '" & varFiles(intCounter) & "');"
                dbCurrent.Execute strSQL
                lngImportFile = CurrentDb.OpenRecordset("SELECT @@IDENTITY")(0)
                strSQL = "UPDATE ztblQARawImport" & _
                         " SET lonQAImportFileID_fk = " & lngImportFile & _
                         " WHERE lonQAImportFileID_fk=0;"
                dbCurrent.Execute strSQL
            Next intCounter
        Else
            intProgress = intProgress + 1
            Call ProgressMeter(intProgress, intProgressBarMax)
            DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "ztblQARawImport", varFiles, True
            strSQL = "INSERT INTO tblQAImportFile" & _
                     " (lonQACOMPANYAuditRecordID_fk, txtFileName)" & _
                     " VALUES(" & glngRecordNumber & ", '" & varFiles & "');"
            dbCurrent.Execute strSQL
            lngImportFile = CurrentDb.OpenRecordset("SELECT @@IDENTITY")(0)
            strSQL = "UPDATE ztblQARawImport" & _
                     " SET lonQAImportFileID_fk = " & lngImportFile & _
                     " WHERE lonQAImportFileID_fk=0;"
            dbCurrent.Execute strSQL
        End If
    End If