error 3020, no permite editar

Dudas sobre código
tivi
Nivel 2
Mensajes: 33
Registrado: Vie Ago 25, 2017 10:40 am

error 3020, no permite editar

Mensajepor tivi » Vie Sep 01, 2017 6:46 pm

en un formulario pensado para modificar registros existentes de una tabla, tengo dos comandos uno para guardar los cambios y otro para deshacerlos. Bien, pues ninguno de los dos permite ejecutar el código. El mensaje que me muestra es error 3020. Os adjunto captura de pantalla y el código de los dos botones.

botón guardar:

Código: Seleccionar todo

Private Sub Guardar2_Click()
If Not IsNull(ImporteBruto) And Not IsNull(TipoIVA) And Not IsNull(FechaPuestaMarcha) _
    And Not IsNull(Garantia) And Not IsNull(nPedido) Then
            MsgBox ("Registro Guardado")
            DoCmd.RunCommand acCmdSaveRecord
            Me.TabCtl508.Pages(0).Enabled = True
            Me.TabCtl508.Pages(0).SetFocus
            Me.buscaN.SetFocus
        ElseIf IsNull(ImporteBruto) Then
                avisoBruto.Visible = True
                Me.ImporteBruto.SetFocus
            ElseIf IsNull(TipoIVA) Then
                avisoIVA.Visible = True
                Me.TipoIVA.SetFocus
                ElseIf IsNull(FechaPuestaMarcha) Then
                        Me.avisoPuestaMarcha.Visible = True
                        Me.FechaPuestaMarcha.SetFocus
                    ElseIf IsNull(Garantia) Then
                            Me.avisoGarantia.Visible = True
                            Me.Garantia.SetFocus
                        ElseIf IsNull(nPedido) Then
                                Me.nPedido.SetFocus
                                Me.avisoNPedido.Visible = True
End If
End Sub



botón cancelar:

Código: Seleccionar todo

Private Sub Cancelar1_Click()
On Error GoTo errorcancelar1

DoCmd.RunCommand acCmdUndo
    Me.TabCtl508.Pages(0).Enabled = True
    Me.TabCtl508.Pages(0).SetFocus
    Me.buscaN.SetFocus

errorcancelar1:
    If Err.Number = 2046 Then
            MsgBox ("No hay cambios que deshacer")
            Me.TabCtl508.Pages(0).Enabled = True
            Me.TabCtl508.Pages(0).SetFocus
            Me.buscaN.SetFocus
        Exit Sub
    End If
End Sub
Adjuntos
error3020.png

Volver a “Código VBA”

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 1 invitado