[Resolvido]Como não perder dados de inserção quando perde ligação ao back-end

Bom dia a todos
Uso um front com tabela desvinculada.
Por vezes pode ocorrer a perda de ligação à bd (queda da ligação VPN) e o front congela.
Existe algum código vba para que quando isso ocorra, o sistema não congele e permaneça estável a aguardar.

Ou seja,
Se existir uma quebra na ligação, não faz nada
Caso contrário, continua o processo de inserção de dados

Existe algo do género?

Olá Nelio,

O vinculo do o banco de dados também é em Access? Ou vc utiliza outro database?

Att,

Alexandre Fim

É também através de msaccess.

Eu descobri esta solução.
Coloquei em módulo.

Código:

Public Sub Link_Test()
   
    Dim db As DAO.Database
    Dim strCaminhoBD As String
    Dim strConexao As String
    Dim rst As DAO.Recordset
   
    ' Caminho para a base de dados que você quer testar
    strCaminhoBD = "Y:\NuvemEmpresa\Clientes\Controlos impostos e pendentes\01 tempos gastos\teste de crm com controlo de horas.accdb"
   
   
   
  On Error GoTo TratamentoErro1
    ' Tentar abrir a base de dados
    Set db = DBEngine.OpenDatabase(strCaminhoBD)
   
   
     
    ' Tentar abrir um recordset em qualquer tabela da base de dados
        Set rst = db.OpenRecordset("Tabela_DW", dbOpenSnapshot)
   
     
   
    ' Fechar o recordset e a base de dados
    rst.Close
    db.Close
   
TratamentoErro1:
    ' Tratamento de erro
    If Err.Number = 3024 Then
        MsgBox "Desconectado da base de dados. Verifique a VPN", vbCritical
    End If
   
    ' Limpar as variáveis
    Set rst = Nothing
    Set db = Nothing
    Exit Sub
   
End Sub


Depois no formulário em cada evento faço esse teste através do Call à sub

Código:

Private Sub Cbx_Cliente_GotFocus()

Call Link_Test

Dim strSQL As String, rs As DAO.Recordset
On Error Resume Next
strSQL = "SELECT tbl_cliente.Cli_nome FROM tbl_cliente WHERE tbl_cliente.Status=True ORDER BY tbl_cliente.Cli_nome;"

Set rs = CurrentDb.OpenRecordset(strSQL)

With Me.Cbx_Cliente
  .RowSource = ""
  .RowSourceType = "Value List"
  Do Until rs.EOF
      .AddItem rs!cli_nome
      rs.MoveNext
  Loop
End With

rs.Close
Set rs = Nothing
End Sub


Não sei se será o melhor método, mas funciona de acordo com o pretendido.
Se falhar a ligação não congela o msaccess. Ele simplesmemte termina o procedimento e envia a mensagem, mas mantém os dados para o insert.