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]Erro ao inserir códigos VBA

    Compartilhe

    lidianeSilva
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 4
    Registrado : 08/08/2017

    [Resolvido]Erro ao inserir códigos VBA

    Mensagem  lidianeSilva em 26/3/2018, 13:33

    Olá pessoal! estou com uma dificuldade pois estou tentando colocar alguns códigos vba e está dando o mesmo erro sempre. Os códigos são simples, mas como sou novata no mundo access não estou sabendo encontrar o erro.

    Já pesquisei aqui e em diversos fóruns e não consigo entender o erro.

    Este erro ocorre quando um evento não pôde ser executado porque não foi possível avaliar a localização da lógica do evento. Por exemplo, se a propriedade OnOpen de um formulário estiver definida como =[Field], o erro ocorrerá porque espera-se que um nome de evento ou macro seja executado quando o evento acontecer.


    Código:
    Private Sub Comando53_Click()
    'Verifica se os campos estão preenchidos
    If IsNull(NumeroProcesso.Value) Then
       MsgBox "O Numero deve ser digitado"
       NumeroProcesso.SetFocus
         
       ElseIf IsNull(DataProcesso.Value) Then
           MsgBox "O Campo  data do processo não pode ficar em branco"
           DataProcesso.SetFocus
           
           ElseIf IsNull(Combinação78.Value) Then
              MsgBox "O Campo  Nome do funcionário não pode ficar em branco"
                         
           ElseIf IsNull(DataChegada.Value) Then
              MsgBox "O Campo  data de chegada não pode ficar em branco"
              DataChegada.SetFocus
           
           ElseIf IsNull(solicitacao.Value) Then
              MsgBox "O Campo  solicitação não pode ficar em branco"
              solicitacao.SetFocus
           ElseIf IsNull(Combinação95.Value) Then
              MsgBox "O Campo  solicitação não pode ficar em branco"
           ElseIf IsNull(periodo.Value) Then
              MsgBox "O Campo  periodo não pode ficar em branco"
              periodo.SetFocus
             
           ElseIf IsNull(Combinação97.Value) Then
              MsgBox "O Campo  observação não pode ficar em branco"
             
             
    Else
    DoCmd.GoToRecord , , acNewRec
    End If
    código para salvar registro

    DoCmd.RunCommand acCmdDeleteRecord
       MsgBox "Registro apagado", vbInformation, "Excluído"

    código para excluir

    Em ambos dá esse mesmo erro


    Última edição por lidianeSilva em 3/4/2018, 00:42, editado 2 vez(es)
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5590
    Registrado : 15/03/2013

    Re: [Resolvido]Erro ao inserir códigos VBA

    Mensagem  ahteixeira em 26/3/2018, 15:48

    Olá Lidiane Silva,

    Tive alguma dificuldade em compreender a anomalia (botão não funcionar).
    Resolvi, criando uma base de dados nova e importanto.

    Relativamente ao código o nome da caixa de texto é igual ao da base de dados, ajustei adicionando txt antes do nome do campo, veja se é isso:
    cld.pt/dl/download/6f36ec78-6354-4065-907a-224a910cf429/SisProcesso%20v1_.zip

    Abraço
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3904
    Registrado : 14/08/2013

    Re: [Resolvido]Erro ao inserir códigos VBA

    Mensagem  FabioPaes em 26/3/2018, 18:29

    Ahteixeira, Tem algo errado mesmo com essa Base de dados do colega ou com o Formulário...

    Removi todos os Códigos desse formulário e mandei apenas exibir uma Msgbox no botão, e o erro continua...

    A Melhor solução é a indicada mesmo... Nova Base de Dados.


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5590
    Registrado : 15/03/2013

    Re: [Resolvido]Erro ao inserir códigos VBA

    Mensagem  ahteixeira em 27/3/2018, 08:17

    Olá Fabio, algo não estava bem.

    No entanto na mensagem nr. 2 já está a funfar e creio que também a verificação que a colega pretende.
    Ficamos aguardar o retorno da Lidiane Silva.

    Abraço a todos

    lidianeSilva
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 4
    Registrado : 08/08/2017

    Re: [Resolvido]Erro ao inserir códigos VBA

    Mensagem  lidianeSilva em 29/3/2018, 02:06

    Resolvido
    Consegui resolver mudando os nomes valeu
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5590
    Registrado : 15/03/2013

    Re: [Resolvido]Erro ao inserir códigos VBA

    Mensagem  ahteixeira em 31/3/2018, 11:27

    Olá Lidiane Silva, obrigado pelo retorno.

    Não se esqueça de dar o tópico como Resolvido, veja como fazer:
    [Você precisa estar registrado e conectado para ver este link.]

    Abraço

      Data/hora atual: 18/11/2018, 19:14