[Resolvido]Validar Campo

Olá Pessoal

Estou com um dúvida de como validar um campo.

Em uma tabela chamada, funcionário, o  campo "E-mail", precisa ser valido com a seguinte condição.
Ter essa estrutura xxx@xxx.xx , antes do @ precisa ter no mínimo 3 caracteres, e a estrutura toda deve ter no minimo 10.

Aguardo ajuda.

Grata

Bom dia Hadenia, seja Bem vinda ao Fórum!

Eis:

'---------------------------------------------------------------------------------------
' Procedure     : Function ValidaEmail
' Author        : Harysohn P. Pina (PILOTO) - Harysohn@hotmail.com
' Fórum         : Fórum Máximo Access -  http://maximoaccess.forumeiros.com/
' Date          : 28/08/2013
' Comentários   : Valida e-mai de acordo com o comprimento da expressões particionadas
'---------------------------------------------------------------------------------------
Function ValidaEMail(Email As String)
Dim StrPrefixo As String
Dim StrSufixo As String
'Extrai os caracteres anteriores ao síbolo @
StrSufixo = Mid(Email, InStrRev(Me.Email, "@") + 1)
'Extrai os caracteres posteriores ao síbolo @
StrPrefixo = Mid(Email, 1, InStrRev(Me.Email, "@") - 1)
'Verifica o comprimento dos caracteres anteriores
If Len(StrSufixo) < 3 Then
    MsgBox "Menos de 3 caracteres antes do @"
'Verifica o comprimento dos caracteres posteriores
ElseIf Len(StrPrefixo) < 3 Then
    MsgBox "Menos de 3 caracteres após o @"
'Verifica o comprimento total da caixa texto
ElseIf Len(Me.txtEmail) < 10 Then
    MsgBox "Menos de 10 caracteres Totais"
End If
End Function

Para Utilizar

Call ValidaEmail(Me.SuaCaixaTexto)


Cumprimentos

Obrigada pela ajuda, só que eu preciso é para validar na tabela, ou seja pelas regras de validação, construtor de expressões.

Oras... se vais inserir na tabela via uma caixa texto... valide a mesma...
O Resultado será igual.


Cumprimentos.

Porém não posso, pois a questão pede pela tabela, entende?

Se conseguir me convencer do contrario... entenderei rsrs

Sou todo ouvidos...

Cumprimentos.

Veja tambem:

		
			
Código:
			
Dim strTblName As String, strFldName As String
Dim strValidRule As String
Dim strValidText As String, intX As Integer

strTblName = "Customers"
strFldName = "Age"
strValidRule = ">= 65"
strValidText = "Enter a number greater than or equal to 65."
intX = SetFieldValidation(strTblName, strFldName, _
    strValidRule, strValidText)

Function SetFieldValidation(strTblName As String, _
    strFldName As String, strValidRule As String, _
    strValidText As String) As Integer

    Dim dbs As Database, tdf As TableDef, fld As Field

    Set dbs = CurrentDb
    Set tdf = dbs.TableDefs(strTblName)
    Set fld = tdf.Fields(strFldName)
    fld.ValidationRule = strValidRule
    fld.ValidationText = strValidText
End Function
</pre>

Cumprimentos.