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.
No se si me habré explicado espero que si, de antemano MUCHAS GRACIAS.
1 Respuesta
Respuesta de numerobix PlanetaInformatico.es
1
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
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.
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
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
