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

Yo dira que lo mas recomendable seria que habilitara o desabilitaras los botones segun tu necesidad


Por ejemplo cuando agregas un nuevo registro


cmdnuevo.enabled = false


cmdEditar.enabled = false


cmdGuardar.enable = true


y ps ya el usuario hace el cambio y todo no?


y ahora validas


if text1.text <> "" then


cmdnuevo.enabled = true


cmdEditar.enabled = true


cmdGuardar.enable = false


else


msgbox "No mams!! escribe algo!!!!"


end if


y asi con los diferentes tipos de casos


hastapodrias hacer un sub para que solo con un valor checara el caso


y se fuera directamente a un select case, pero depende de lo que necesites ok?


Dudas, Postea