Validar datos
Hola amigos tengo una base de datos en access llamada estudiante cuyos campos son código y nombre ambos de tipo texto. Cree un formulario en visual basic6 que me sirve para llenar estos campos. Mi pregunta y mi gran duda es como hago para validar la información del campo código. Es decir que cuando el usuario digite o ingrese un código que ya exista salga un mensaje al usuario diciéndole que ese código existe y no lo deje seguir hasta que corrija el problema. Ante todo muchas gracias por su colaboración.
1 Respuesta
Respuesta de atip
1
Captura el evento Validate y busca mediante un recordset si el código existe. Algo así:
Private Sub txtCodigo_Validate(Cancel As Boolean)
If txtCodigo.Text <> "" Then
Dim rc As Recordset
Set rc = db.OpenRecordset("SELECT codigo from estudiantes where codigo = '" & txtCodigo.Text & "'", dbOpenSnapshot)
If Not rc.EOF Then
Cancel = True
MsgBox "Ese código ya existe"
txtCodigo.Text = ""
End If
rc.Close
End If
End Sub
Private Sub txtCodigo_Validate(Cancel As Boolean)
If txtCodigo.Text <> "" Then
Dim rc As Recordset
Set rc = db.OpenRecordset("SELECT codigo from estudiantes where codigo = '" & txtCodigo.Text & "'", dbOpenSnapshot)
If Not rc.EOF Then
Cancel = True
MsgBox "Ese código ya existe"
txtCodigo.Text = ""
End If
rc.Close
End If
End Sub
