[Resolvido]Procedimento do evento

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.

Boa tarde.
Deixe aqui somente o anexo dando erro

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.

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