[Resolvido]Tratamento de erro

Olá,
Estou tentando automatizar o reparo frequente de um erro na Mesclagem do Campo do Access com o Word.

Como o erro é sempre o "94" gerado pela instrução que busca o campo no formulário para colocá-lo no local com o indicador no Doc Word e
ele esta vazio.

Coloquei o tratamento assim:

Código:


Trata_Erro:

   If Err.Number = 94 Then
        MsgBox "Falta de campo OBRIGATÓRIO no Formulário de Cadastro!" & vbCrLf & "Ao clicar em OK, será aberta a FICHA de mesclagem pelo(WORD), verifique onde parou(para saber qual o CAMPO faltante)." & vbCrLf & "Não altere nada e Feche o doc sem salvar." & vbCrLf & "Entre na tela do Cadastro e preencha o Campo faltante!"
        Shell "C:\Arquivos de programas\Microsoft Office\Office11\WINWORD.EXE C:\Cadastro\Ficha.doc", vbMaximizedFocus
        Set oApp = Nothing
   Exit Sub
    Else
    
      MsgBox "Erro número #" & Str$(Err.Number) & " na Linha " & Str$(Erl) & " - " & Err.Description & " - gerado por " & Err.Source
      Exit Sub  'Sai da função.
   End If


Quando dá esse erro eu tenho que abrir o Documento "Matriz" que travou e ver o campo que deu o problema, depois fechar sem salvar o Doc Matriz, senão ele fica com dados dentro e tem que criar outro Modelo.


Tá funcionando mas acho que não esta bom.

1- Tem como quebrar a linha de mensagem para ficar fácil a visualização no editor do VBA?
2- Tem como eu corrigir o erro sem abrir o .doc que o gerou, pois ele para o preenchimento e fica em aberto.?
3- Tem como no comando de abertura do documento, abri-lo só como leitura não aceitando salvar.?

Opa amigo,

Segue alguns exemplos de como quebrar a linha nas caixas de mensagens:

Código:

MsgBox "Esse é um exemplo." & vbCrLf & _
"Obrigado pela atenção!", vbOKOnly

MsgBox "Esse é outro exemplo com um " & _
"texto um pouco maior.", vbOKOnly

não entendi o lance do Access com o Word, você está pegando as informações do Word e passando pro Access ou o contrario?

se for do Access pro Word, você pode criar uma Function para Validar os campos antes de tentar exportar os dados, mais ou menos assim

Código:

Function ValidaCampos() As Boolean
    ValidaCampos = False
    If campo1 = "" Or campo2 = "" Or campo3 = "" Then
        Exit Function
    End If
    ValidaCampos = True
End Function

E então você chama essa função antes de tudo

Código:

If ValidaCampos = False Then
    MsgBox "há campos em branco...."
    Exit Sub
End If

Espero ter ajudado

abs

Valeu,
Quanto a mensagem longa já acertei pela sua dica. Eu estava usando um sinal de concatenação a mais.

Quanto a outra saída de teste eu estou usando uma do que checa o Form na hora do cadastro, ai eu coloquei a
mesma chamada de verificação no botão de mesclar antes de executar a mesclagem. Funcionou.

Mas guardei a sua dica para teste.

Obrigado.

Valeu,
Quanto a mensagem longa já acertei pela sua dica. Eu estava usando um sinal de concatenação a mais.

Quanto a outra saída de teste eu estou usando uma do que checa o Form na hora do cadastro, ai eu coloquei a
mesma chamada de verificação no botão de mesclar antes de executar a mesclagem. Funcionou.

Mas guardei a sua dica para teste.

Obrigado.