MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

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

    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1284
    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 : 318
    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 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1284
    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.

      Data/hora atual: 6/8/2020, 01:27