error 3021 visual basic
Publicado por Johan (2 intervenciones) el 19/05/2019 23:09:09
Me aparece el error 3021
"el valor del BOF o EOF es true, o el actual registro se elimino; la operacion solicitada requiere un registro actual"
nose porque¿?
es para la matricula de un alumno, saber si ya existe y no le registrarlo de nuevo y si me sale bien
pero cuando pongo una nueva que no existe me marca el error.
este es mi codigo
"el valor del BOF o EOF es true, o el actual registro se elimino; la operacion solicitada requiere un registro actual"
nose porque¿?
es para la matricula de un alumno, saber si ya existe y no le registrarlo de nuevo y si me sale bien
pero cuando pongo una nueva que no existe me marca el error.
este es mi codigo
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Private Sub TXTMATRICULA_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 ThenWith Alum
.Requery.Find “matricula=’” & Trim(TXTMATRICULA.Text) & “’”
If !matricula = Trim(TXTMATRICULA.Text) Then
MsgBox "El alumno ya esta registrado " & TXTMATRICULA.Text, vbInformation, "Información"
TXTMATRICULA = ""
Else
MsgBox "Ingresara un nuevo alumno " & TXTMATRICULA.Text, vbInformation, "Información"
TXTMATRICULA = ""
TXTNOMBRE.Enabled = True
TXTAPP.Enabled = True
TXTAPM.Enabled = True
TXTCARRERA.Enabled = True
TXTSEMESTRE.Enabled = True
TXTGRUPO.Enabled = True
TXTTURNO.Enabled = True
TXTTELEFONO.Enabled = True
TXTEMAIL.Enabled = True
TXTESTADO.Enabled = True
TXTMUNICIPIO.Enabled = True
TXTCOLONIA.Enabled = True
TXTCALLE.Enabled = True
TXTNUMERO.Enabled = True
TXTCP.Enabled = True
End If
End With
End If
End Sub
Valora esta pregunta
0
