Restringir y validar formato en Textbox
Tengo este formulario, del que ya he conseguido gracias a tu ayuda poner los listbox correspondientes, e incluso marca/modelo vinculados. Me gustaría que cuando valide el registro revise que el campo Matricula se ajusta a un formato, este "0000AAA", es decir, cuatro números seguidos de tres letras. Son como se matriculan a los vehículos por aquí. Así evitaría que por error introdujera una matricula equivocada o con menos caracteres de lo previsto. Te envío el formulario para que veas como está.
Y gracias de antemano!
PD: Ojalá consiga poner el control calendario en las fechas. Tengo que intentarlo.
Moisés.
1 respuesta
Pon lo siguiente el botón cuando vayas a registrar los datos:
Private Sub CommandButton1_Click() ' ' err_matricula = False For i = 1 To 4 If Not IsNumeric(Mid(TextBox1, i, 1)) Then err_matricula = True Exit For End If Next For i = 5 To 7 If IsNumeric(Mid(TextBox1, i, 1)) Then err_matricula = True Exit For End If Next If err_matricula Then MsgBox "Error en la matricula", vbExclamation TextBox1.SetFocus End If ' ' 'continua tu macro para registrar ' ' End Sub
.
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
.
Avísame cualquier duda
.
¡Gracias!
Es justo lo que quería. Ya veo el funcionamiento, recorres todos los caracteres del textbox y compruebas que sean letras o números depende del orden que deberían estar.
Perfecto. Muchas gracias como siempre!!!
Moisés.
