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]Não entra na segunda condigção

    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 75%

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

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

    Mensagem  crysostomo em 4/9/2019, 16: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


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

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

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

    Mensagem  renpv em 4/9/2019, 16: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
    VIP
    VIP

    Respeito às Regras 75%

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

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

    Mensagem  crysostomo em 4/9/2019, 16: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


    .................................................................................
    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: 19/11/2019, 13:57