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


2 participantes

    [Resolvido]Não entra na segunda condigção

    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Não entra na segunda condigção Empty [Resolvido]Não entra na segunda condigção

    Mensagem  crysostomo 4/9/2019, 12:06

    boa tarde colegas , coloquei i campo para aceitar somente números, até aí ok, mas ele não entra na segunda condição.
    Código:
    If Not IsNumeric(cnes) <> "" Then
        MsgBox "Somente número", vbInformation, "ConsulMed"
     
    ElseIf Len(Me.cnes) < 7 Then
            MsgBox "Digito Incorreto" & vbCrLf & "O Cnes contem 7 dígitos", vbInformation, "ConsulMed"
            Me.cnes = Null
            Me.cnes.SetFocus
              End If

    Código:
     If Not IsNumeric(Chr$(KeyAscii)) Then
    MsgBox "somente números", vbInformation, "ConsulMed"

    KeyAscii = 0

     
    ElseIf Len(Me.cnes) < 7 Then
            MsgBox "Digito Incorreto" & vbCrLf & "O Cnes contem 7 dígitos", vbInformation, "ConsulMed"
            Me.cnes = Null
            Me.cnes.SetFocus
              End If
           
    End Sub


    .................................................................................
    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.
    avatar
    renpv
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 323
    Registrado : 12/01/2015

    [Resolvido]Não entra na segunda condigção Empty Re: [Resolvido]Não entra na segunda condigção

    Mensagem  renpv 4/9/2019, 12:33

    Cara, eu posso dar algumas sugestões:
    1 - Cria uma máscara pra esse campo. É possível criar uma máscara que exija a informação de 7 dígitos. No campo máscara de entrada digite o seguinte: 0000000;;_
    2 - O comando
    Código:
    If Not IsNumeric(cnes) <> "" Then
    pode ser substituído por esse
    Código:
    If Not IsNumeric(cnes) Then
    3 - Você criou a variável cnes que está informando no IF? Eu pergunto isso porque no primeiro IF você faz referência a uma variável e no Elseif você faz referência ao campo do formulário.

    Espero ter ajudado
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Não entra na segunda condigção Empty Re: [Resolvido]Não entra na segunda condigção

    Mensagem  crysostomo 4/9/2019, 12:36

    consegui aqui resolver .
    a cnes é um campo.
    Código:
    Private Sub cnes_AfterUpdate()
    If Not IsNumeric(cnes.Text) Then
    MsgBox "so numeros"
      
    ElseIf Len(Me.cnes) < 7 Then
            MsgBox "Digito Incorreto" & vbCrLf & "O Cnes contem 7 dígitos", vbInformation, "ConsulMed"
            Me.cnes = Null
            Me.cnes.SetFocus
               End If
            

    Obrigado amigo
    fiquei de madrugada resolvendo isso, coloquei o topico agora, e agora consegui , não estava resolvendo porque dependia de txt e também substitui pelo seu codigo


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

    Conteúdo patrocinado


    [Resolvido]Não entra na segunda condigção Empty Re: [Resolvido]Não entra na segunda condigção

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 06:06