[Resolvido]erro 2302 tratar esse erro

Olá Pessoal

Tenho erro código para exportar um Excel via consulta
Dim DataDia
DataDia = Format(Now, "ddmm-hhmm")

If IsNull(Me.CboSigla) Then
MsgBox "Escolha o Turno!!", vbCritical, "Atenção"
Me.CboSigla.SetFocus

Else

If MsgBox("Voce esta Prestes a Gerar relatorio de embarque", vbYesNo + vbInformation, "Atenção") = vbYes Then
DoCmd.OutputTo acOutputQuery, "Cs_FalsoRel", acFormatXLSX, "K:\Enviados\" & Me.CboSigla.Column(0) & "-" & DataDia & ".xlsx"
DoCmd.OpenQuery "Atualizar", acViewNormal
Me.ListaFalse.Requery
Me.CboSigla = ""

MsgBox ("Relatorio Gerado com Sucesso"), vbInformation, "Atenção"
Else
MsgBox ("Relatorio Cancelado"), vbInformation, "Cancelado"
Me.CboSigla = ""
End If
End If

K:\enviados seria uma pasta na rede certo mas quando o PC fica fora da rede da erro 2302 , gostaria de tratar esse erro da uma mensagem para usuário

exemplo a pasta k:\Enviados esta fora

essa seria minha duvida

Olá,

Quando a máquina fica fora da rede, vc não vai conseguir acessar nada mesmo!

[]'s

FIM

Código:

on error goto trataErro

'Seu código
...

sair:
  Exit Sub

trataErro:
  select case err.number
      case 2302
        'código tratando o erro
      case else
        'código tratando qualquer outro erro
  end select



Olá DamascenoJr.

deu certinho o trataerro

muito obrigado

O fórum agradece o retorno. Sucesso.