[Resolvido]Codigo de Verificação para @

Boa tarde ,mais uma vez peço a juda dos amigos do forum!!Tenho um frm de cadastro de clientes e preciso de uma verificação para o operador sempre ter que digitar o email corretamente
Qual seria o cód ,para verificação ,e exigir a digitação do @ ou do email completo?obrigado

kadhu boa tarde.

Seria isso?


COMO"[A-Z]*@[A-Z].com" OU "[A-Z]*@[A-Z].net" OU "[A-Z]*@[A-Z].org"

Boa noite Fernando ,vou tentar aqui !!obrigado

Fernando mas isso é numa consulta?onde eu insiro?obrigado
O VBA não aceita esta expressão!!!

Olá

Neste artigo abaixo tem uma função de verificação do meu amigo Plinio. Veja se atende.

http://www.usandoaccess.com.br/tutoriais/tuto20.asp?id=1#inicio

Sucesso!

Aproveite e veja também o meu código:

Valida Email
http://maximoaccess.forumeiros.com/t11-102-codigos-vba-para-access#14

Obrigado a todos ,no caso deste cód ,ele vai dentro de um modulo?
Valida emails

Public Function ValidaEnderecoEmail(CampoEmail As String) As Boolean
'Valida email
'se a @ nгo existir
If (InStr(1, CampoEmail, "@") = 0) Then
MsgBox "Email invбlido...", vbCritical
ValidaEnderecoEmail = False
Exit Function
End If
'se o ponto nгo existir
If (InStr(1, CampoEmail, ".") = 0) Then
MsgBox "Email invбlido...", vbCritical
ValidaEnderecoEmail = False
Exit Function
End If
'se a @ seguido de ponto nгo exitir
If (InStr(CampoEmail, "@.") > 0) Then
MsgBox "Email invбlido...", vbCritical
ValidaEnderecoEmail = False
Exit Function
End If
'se nгo existir algo depois do ponto
If ((InStr(CampoEmail, ".")) = ((Len(CampoEmail)))) Then
MsgBox "Email invбlido...", vbCritical
ValidaEnderecoEmail = False
Exit Function
End If
'tem de exitir duas letras apуs o ponto
If ((Len(CampoEmail)) < (InStr(CampoEmail, ".") + 2)) Then
MsgBox "Email invбlido...", vbCritical
ValidaEnderecoEmail = False
Exit Function
End If
'tem de existir algo escrito, antes da @
If (InStr(1, CampoEmail, "@") = 1) Then
MsgBox "Email invбlido...", vbCritical
ValidaEnderecoEmail = False
Exit Function
End If
ValidaEnderecoEmail = True
End Function


'Para chamar a funзгo:

Private Sub Text26_AfterUpdate()
Call ValidaEnderecoEmail(Me.SuaCaixaTexto)
End Sub

Você pode inserir num modulo, ou se for para utilizar apenas num form, pode ficar dentro do VBA do proprio form.

ok Jpaulo ,vou testar aqui ,Obrigado

Grande JPaulo! Digamos que eu esteja usando dentro do frm no evento, no atual!!este final do codigo para que serve?no negrito vai o nome do campo email?

'Para chamar a funзгo:

Private Sub Text26_AfterUpdate()
Call ValidaEnderecoEmail(Me.SuaCaixaTexto)
End Sub
Outra dúvida mudei o nome dos campos mas não funciona voce pode dar uma olhada?


Public Function ValidaEnderecoEmail(Email As String) As Boolean
'Valida email
'se a @ nao existir
If (InStr(1, CampoEmail, "@") = 0) Then
MsgBox "Email invalido...", vbCritical
ValidaEnderecoEmail = False
Exit Function
End If
'se o ponto nao existir
If (InStr(1, Email, ".") = 0) Then
MsgBox "Email invalido...", vbCritical
ValidaEnderecoEmail = False
Exit Function
End If
'se a @ seguido de ponto nao exitir
If (InStr(Email, "@.") > 0) Then
MsgBox "Email invalido...", vbCritical
ValidaEnderecoEmail = False
Exit Function
End If
'se nao existir algo depois do ponto
If ((InStr(Email, ".")) = ((Len(Email)))) Then
MsgBox "Email invalido...", vbCritical
ValidaEnderecoEmail = False
Exit Function
End If
'tem de exitir duas letras apos o ponto
If ((Len(Email)) < (InStr(Email, ".") + 2)) Then
MsgBox "Email invalido...", vbCritical
ValidaEnderecoEmail = False
Exit Function
End If
'tem de existir algo escrito, antes da @
If (InStr(1, CampoEmail, "@") = 1) Then
MsgBox "Email invalido...", vbCritical
ValidaEnderecoEmail = False
Exit Function
End If
ValidaEnderecoEmail = True
End Function

'Para chamar a funcao:

Private Sub Email_AfterUpdate()
Call ValidaEnderecoEmail(Me.Email)
End Sub
End Sub

Boa tarde !Ainda não consegui resolver ,JPaulo ,preciso de um help!

Boa noite, ainda não obtive solução!!

O problema foi você alterar o código, o que não deve...

Veja o simples;

http://dl.dropbox.com/u/771097/ValidaEmail.rar

Bom dia Obrigado JPaulo !vou estudar aqui e adaptar !!

Meus agredecimentos!!

Obrigado pelo retorno, o fórum agradece.