Hola buenas,
Estoy usando BBDD y las tengo bloqueadas, solo se desbloquean al pulsar un boton de nuevo o de editar, y despues tengo el boton de guardar. Si lo hago en ese orden todo va de puta madre, pero como el programa no es para mi, cuando se le da al boton de guardar sin haber editado o creado ningun expediente antes, me da el error 3020, en el código pongo:
If Error = 3020 Then
r = MsgBox("Antes de guardar, debe editar o agregar un registro", vbInformation, "Guardar")
Exit Sub
End If
El error 3021 me lo da al intentar borrar un registro que no existe (cuando me voy al final de la base de datos, el último registro me aparece en blanco, lo intento borrar y me da ese error). lo he intentado solucionar poniendo este codigo:
If Data1.Recordset.BOF = True And Data1.Recordset.EOF = True Then
r = MsgBox("No existe registro a borrar", vbInformation, "Borrar")
Exit Sub
End If
me podeis ayudar???
Saludos y gracias