Evitar introducir puntos y acentos en registros

Buenas tardes numerobix, tengo una duda, ¿Sería posible en un formulario para introducir datos, evitar que se grabaran datos con acentos o puntos?, por ejemplo si se introduce una dato "José.Alberto"; que salga un msgbox diciendo que no se puede grabar esos datos y al aceptar vuelva el enfoque al registro.
No se si me habré explicado espero que si, de antemano MUCHAS GRACIAS.
1

1 Respuesta

38.025 pts. I.T.I. en electricidad con conocimientos de Flash, HTML...
Te paso el código de la función, invoca la función con el texto que quieres detectar.
Si en vez de como función lo colocas en el campo AL ACTUALIZAR, ya puedes operar en función del resultado.
Un saludo
Function detector(strText As String)
Dim i, ii As Long
Const Con = "áééíóúü."
For i = 1 To Len(Con)
    For ii = 1 To Len(strText)
        If Mid(strText, ii, 1) = Mid(Con, i, 1) Then
            MsgBox "TENEMOS UN PROBLEMA"
            Exit Function
        End If
    Next ii
Next i
End Function
Gracias por la solución, pero tengo un problemilla debido a mi ignorancia, esa función donde la coloco en el mismo formulario donde quiero que detecte los acentos y los puntos, ¿o en un módulo? ¿Y tengo que poner algo en el campo donde quiero que tenga en cuenta esta función?
Muchas gracias.
Si lo colocas en la acción DESPUÉS DE ACTUALIZAR quedaría así:
sub strText_Afterupdate()
Dim i, ii As Long
Const Con = "áééíóúü."
For i = 1 To Len(Con)
    For ii = 1 To Len(strText)
        If Mid(strText, ii, 1) = Mid(Con, i, 1) Then
            MsgBox "TENEMOS UN PROBLEMA"
            Exit sub
        End If
    Next ii
Next i



end sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas