MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


3 participantes

    [Resolvido]Procedimento do evento

    avatar
    Mcahet
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 28
    Registrado : 25/07/2023

    [Resolvido]Procedimento do evento Empty [Resolvido]Procedimento do evento

    Mensagem  Mcahet 21/8/2024, 17:24

    boa tarde

    Tenho um botão em que a legenda chama-se Depósito e nele uso uma Macro para abrir o Formulário Depósito.
    Ao abrir esse Formulário na folha de propriedades deste Formulário na aba EVENTO coloco :


    Código:
    Option Compare Database
    Private Sub Form_Load()

           If Depósito.Value = True Then
           
              MsgBox " Apresentar as Informações deste Depósito", vbInformation, "MCahet"
             
           Else
           
              MsgBox " Depósito INEXISTENTE", vbInformation, "MCahet"
             
                   
           End If
       
         
    End Sub

    Está funcionando perfeitamente.



    Esta mesma rotina coloco em outro botão na qual a legenda chama-se  Nº de Entrada e nele uso uma Macro para abrir o Formulário chamado de Nº Entrada.

    Ao usar essa mesma rotina para este Formulário na folha de propriedade aba EVENTO está dando erro  

    Private Sub Form_Load()

             If Nº de Entrada.Value = True Then
                  (Esta linha de comando fica vermelha)
      -------->Erro de compilação
                   Erro de sintaxe

           
              MsgBox " Apresentando as Informações ", vbInformation, "MCahet"
             
           Else
           
              MsgBox " Entrada INEXISTENTE", vbInformation, "MCahet"
             
                 
           End If


    End Sub

    Alguém pode me ajudar ????

    Tenho na tabela o campo Nº de Entrada ......onde Nº.....,  o º está com traço embaixo) será esse o erro de compilação, sintaxe?

    OBS :
    na linha de comando não consigo o º sublinhado.


    Última edição por Alvaro Teixeira em 3/9/2024, 10:47, editado 4 vez(es) (Motivo da edição : tentando explicar o erro que aparece)
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2745
    Registrado : 23/01/2018

    [Resolvido]Procedimento do evento Empty Re: [Resolvido]Procedimento do evento

    Mensagem  crysostomo 21/8/2024, 20:29

    Boa tarde.
    Deixe aqui somente o anexo dando erro


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3492
    Registrado : 13/12/2016

    [Resolvido]Procedimento do evento Empty Re: [Resolvido]Procedimento do evento

    Mensagem  Alexandre Fim 22/8/2024, 16:42

    Olá Marcelo,

    Este erro ocorre devido à nomenclatura incorreta de colunas, tabelas, campos e etc.

    Não se deve utilizar acentuação, nomes separados por espaço, simbolos e palavras reservadas do Access.

    Neste caso, é necessário colocar o nome dos controles entre colchetes

    Tente Isso:

    If [Nº de Entrada].Value = True Then
    MsgBox " Apresentando as Informações ", vbInformation, "MCahet"
    Else
    MsgBox " Entrada INEXISTENTE", vbInformation, "MCahet"
    End If


    Att,

    Alexandre Fim


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Procedimento do evento Setinf11
    Sistemas e Tecnologia Ltda
    avatar
    Mcahet
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 28
    Registrado : 25/07/2023

    [Resolvido]Procedimento do evento Empty procedimento do evento

    Mensagem  Mcahet 22/8/2024, 20:23

    Alexandre,

    Troquei o meu campo na tabela de Nº de entrada para Nentrada.(conforme suas instruções)

    Coloquei a mesma rotina que coloco no botão chamado Depósito (que está dando certo), em outro botão  Nº de Entrada  na qual uso uma Macro para abrir o Formulário chamado de NUENTRADA

    Ao usar essa mesma rotina (procedimento do evento) para este Formulário(NUENTRADA) na folha de propriedade aba EVENTO aparece erro.



    Aqui está o rotina (procedimento do evento) para este outro Formulário (NUENTRADA) que é a mesma rotina trocando apenas o nome Depósito para Nentrada


    Option Compare Database

    Private Sub Form_Load()

            If Nentrada.Value = True Then  
     
       (testei com colchetes e sem) e essa linha aparece grifada de amarelo (com certeza algum erro)
     
             MsgBox " Apresentando as Informações ", vbInformation, "MCahet"
           
          Else
         
             MsgBox " Entrada INEXISTENTE", vbInformation, "MCahet"
           
               
          End If

    End Sub

    OBS :
    Em uma tabela está Nentrada como nome do campo e o tipo de dados  coloquei Texto Curto,
    quando insiro uma cadeia tipo 24.500-01(que existe)  ele não acha e vem a mensagem erro de tempo de execução 2427 , Você inseriu uma expressão que não tem valor.
    já se colocar 2450001 acha.


    Não sei mais o que fazer, solicito uma ajuda.


    Última edição por Mcahet em 30/8/2024, 13:50, editado 6 vez(es) (Motivo da edição : procedimento do evento)
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3492
    Registrado : 13/12/2016

    [Resolvido]Procedimento do evento Empty Re: [Resolvido]Procedimento do evento

    Mensagem  Alexandre Fim 2/9/2024, 17:17

    Olá Marcelo,

    Compartilhe uma cópia do seu banco de dados para análise e solução do problema.

    Valeu

    Att,

    Alexandre Fim


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Procedimento do evento Setinf11
    Sistemas e Tecnologia Ltda
    avatar
    Mcahet
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 28
    Registrado : 25/07/2023

    [Resolvido]Procedimento do evento Empty procedimento do evento

    Mensagem  Mcahet 5/9/2024, 19:17

    consegui resolver


    Option Compare Database




    Public Sub Form_Load()

    On Error GoTo meuerro

    If Depósito.Value = True Then

    MsgBox " Nº DE ENTRADA LOCALIZADO !!!!", vbInformation, "MCahet"

    Else

    MsgBox " Nº DE ENTRADA INEXISTENTE !!!!", vbInformation, "MCahet"

    meuerro:

    MsgBox " Nº DE ENTRADA INEXISTENTE !!!!!!!!!", vbInformation, "MCahet"


    DoCmd.Close acForm, "Formulário NUENTRADA"







    End If

    End Sub

    Conteúdo patrocinado


    [Resolvido]Procedimento do evento Empty Re: [Resolvido]Procedimento do evento

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 21/11/2024, 08:40