none
Validando o campo nome RRS feed

  • Pergunta

  • Olá amigos tudo bem?

    Gostária de saber se existe alguma forma de validar o campo nome.

    É o seguinte quero criar uma regra de validação e quando tiver algum nome igual no inserir no banco...

    Agradeço desde já!

    att

    sábado, 28 de maio de 2011 14:24

Respostas

  • Imagino que você esteja usando VBA.

    Supondo que a coluna seja a A (da Planilha Plan1) e o registro que se busca é sRegistro:

    Sub VerificaRepetidos()
      
      Const sRegistro As String = "felipe"
      
      If ÉRepetido(sRegistro, Sheets("Plan1").Columns("A")) Then
        MsgBox "O registro '" & sRegistro & "' não existe no banco." _
         , vbCritical _
         , "Atenção!"
      Else
        MsgBox "O registro '" & sRegistro & "' já existe no banco." _
         , vbInformation _
         , "Informação!"
      End If
      
    End Sub
    
    Function ÉRepetido(str As String, rng As Range) As Boolean
      ÉRepetido = rng.Find(str, , , xlWhole) Is Nothing
      
      'Se quiser que maiúsculas e minúsculas sejam diferenciadas, use a forma abaixo:
      'ÉRepetido = rng.Find(str, , , xlWhole, , , True) Is Nothing
    End Function


    Felipe Costa Gualberto - http://www.ambienteoffice.com.br
    sábado, 28 de maio de 2011 23:06
    Moderador

Todas as Respostas

  • Imagino que você esteja usando VBA.

    Supondo que a coluna seja a A (da Planilha Plan1) e o registro que se busca é sRegistro:

    Sub VerificaRepetidos()
      
      Const sRegistro As String = "felipe"
      
      If ÉRepetido(sRegistro, Sheets("Plan1").Columns("A")) Then
        MsgBox "O registro '" & sRegistro & "' não existe no banco." _
         , vbCritical _
         , "Atenção!"
      Else
        MsgBox "O registro '" & sRegistro & "' já existe no banco." _
         , vbInformation _
         , "Informação!"
      End If
      
    End Sub
    
    Function ÉRepetido(str As String, rng As Range) As Boolean
      ÉRepetido = rng.Find(str, , , xlWhole) Is Nothing
      
      'Se quiser que maiúsculas e minúsculas sejam diferenciadas, use a forma abaixo:
      'ÉRepetido = rng.Find(str, , , xlWhole, , , True) Is Nothing
    End Function


    Felipe Costa Gualberto - http://www.ambienteoffice.com.br
    sábado, 28 de maio de 2011 23:06
    Moderador
  • Olá Benzadeus, tudo bem?

    Primeiramente mto obriagado pela resposta, mas estou tentando fazer isso no access, como ficaria o código?

    Agradeço desde já

    Grande abraço

    att

    quinta-feira, 2 de junho de 2011 05:31