Bom dia amigos!
Estou tentando colocar em um formulário um botão para abrir um determinado arquivo. O access disponibiliza esta função, porém quando a executo dá erro, abaixo segue o código, ajude quem puder:
Private Sub tabelacoparticipacao_Click()
On Error GoTo Err_tabelacoparticipacao_Click
Dim stAppName As String
stAppName = "D:\GMN\Tabelas\TABELA - coparticipacao.xls"
Call Shell(stAppName, 1)
Exit_tabelacoparticipacao_Click:
Exit Sub
Err_tabelacoparticipacao_Click:
MsgBox Err.Description
Resume Exit_tabelacoparticipacao_Click
End Sub
Estou tentando colocar em um formulário um botão para abrir um determinado arquivo. O access disponibiliza esta função, porém quando a executo dá erro, abaixo segue o código, ajude quem puder:
Private Sub tabelacoparticipacao_Click()
On Error GoTo Err_tabelacoparticipacao_Click
Dim stAppName As String
stAppName = "D:\GMN\Tabelas\TABELA - coparticipacao.xls"
Call Shell(stAppName, 1)
Exit_tabelacoparticipacao_Click:
Exit Sub
Err_tabelacoparticipacao_Click:
MsgBox Err.Description
Resume Exit_tabelacoparticipacao_Click
End Sub