MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Tratamento de erro

    Compartilhe

    flecha
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 199
    Registrado : 11/01/2012

    [Resolvido]Tratamento de erro

    Mensagem  flecha em Qua 17 Jun 2015, 18:13

    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.?


    Última edição por flecha em Qua 17 Jun 2015, 18:15, editado 1 vez(es) (Razão : Complemento.)

    LiveBrain
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 182
    Registrado : 15/05/2011

    Re: [Resolvido]Tratamento de erro

    Mensagem  LiveBrain em Sab 20 Jun 2015, 12:43

    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


    .................................................................................
    Abraços

    Live Brain Tutoriais

    "Fraca é a pessoa que não conhece a força que possui nos amigos"

    flecha
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 199
    Registrado : 11/01/2012

    Re: [Resolvido]Tratamento de erro

    Mensagem  flecha em Sab 20 Jun 2015, 18:43

    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.

    flecha
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 199
    Registrado : 11/01/2012

    Re: [Resolvido]Tratamento de erro

    Mensagem  flecha em Sab 20 Jun 2015, 18:43

    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.

      Data/hora atual: Dom 04 Dez 2016, 06:06