MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Tratamento de erro

    Compartilhe

    flecha
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 222
    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.)
    avatar
    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
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 222
    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
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 222
    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: Qui 19 Out 2017, 13:47