vba - programar - Error 3251 en la propiedad de control.oldValue

vba access pdf

Question

Actualmente estoy trabajando en agregar una pista de auditoría a una base de datos MS-Access 2010 y estoy luchando con

"error 3251: la operación no es compatible para este tipo de objeto"

Aquí está el código de mi módulo de pista de auditoría, la mayoría de los códigos arreglados provienen de la web:

Public Function auditChanges(RecordID As String, userAction As String, cForm As Form)
    Dim db As DAO.Database
    Dim rst As DAO.Recordset
    Dim ctl As Control
    Dim userLogin As String

    Set db = CurrentDb
    Set rst = db.OpenRecordset("SELECT * FROM T_AUDIT")
    userLogin = getCurrentUser

    Select Case userAction
        Case "New"
            With rst
                .AddNew
                ![Date] = Now()
                ![utilisateur] = userLogin
                ![nomFormulaire] = cForm.Name
                ![Action] = userAction
                ![RecordID] = cForm.Controls(RecordID).Value
                .Update
            End With
        Case "Delete"
            With rst
                .AddNew
                ![Date] = Now()
                ![utilisateur] = userLogin
                ![nomFormulaire] = cForm.Name
                ![Action] = userAction
                ![RecordID] = cForm.Controls(RecordID).Value
                .Update
            End With
        Case "Edit"
            For Each ctl In cForm.Controls
                If (ctl.ControlType = acTextBox) Or (ctl.ControlType = acComboBox) Or (ctl.ControlType = acCheckBox) Then
                    If (Nz(ctl.Value, "") <> Nz(ctl.OldValue, "")) Then
                        With rst
                            .AddNew
                            ![Date] = Now()
                            ![utilisateur] = userLogin
                            ![nomFormulaire] = cForm.Name
                            ![Action] = userAction
                            ![RecordID] = cForm.Controls(RecordID).Value
                            ![champs] = ctl.ControlSource
                            ![ancienneValeur] = ctl.OldValue
                            ![nouvelleValeur] = ctl.Value
                            .Update
                        End With
                    End If
                End If
            Next ctl
    End Select
    rst.Close
    db.Close
    Set rst = Nothing
    Set db = Nothing
End Function

Esta función se llama en el evento beforeUpdate de los formularios que quiero rastrear.

El error se dispara cuando intento editar un cuadro de texto encuadernado. Y la línea If (Nz(ctl.Value, "") <> Nz(ctl.OldValue, "")) Then es la línea que provoca el error

El formulario se basa en 2 tablas vinculadas con una relación One-To-Many. La función funciona cuando edito los campos de la tabla que están a un lado de la parte "Uno" de la relación pero arroja el error cuando quiero editar campos del lado "Muchos".

Espero ser lo suficientemente claro, gracias

Editar: más detalles

Mi formulario está basado en esa solicitud:

SELECT T_REVISION.ID_revision, T_REVISION.fk_ID_proposition, T_REVISION.numero, T_REVISION.fk_etat_revision, T_REVISION.EOTP, T_PROPOSITION.reference_simple, T_PROPOSITION.libelle, T_REVISION.description_localisation
FROM T_PROPOSITION INNER JOIN T_REVISION ON T_PROPOSITION.ID_proposition = T_REVISION.fk_ID_proposition
ORDER BY T_REVISION.numero DESC;

El error se dispara desde el control T_PROPOSITION.reference_simple . El error 3251 ocurre cuando: Intento editar los campos T_REVISION.EOTP , T_REVISION.description_localisation . El error 3251 no ocurre cuando edito T_PROPOSITION.reference_simple , T_PROPOSITION.libelle !

Entonces, puedo editar valores provenientes del lado "Uno" de la relación, pero cuando quiero editar el lado "Muchos", parece que no puedo acceder a la propiedad oldValue.

Como puedo resolver esto ?

Answer 1

Es difícil decir exactamente qué está causando el error cuando no especifica la línea que está apareciendo el error, pero hay una posibilidad obvia.

Estás atrapando a Null en tu lazo de control

If (Nz(ctl.Value, "") <> Nz(ctl.OldValue, "")) Then

Y lo más importante es que te falta un paréntesis frontal como "("

Pero luego no atrapa esa posibilidad cuando asigna el valor del control y el valor anterior a su conjunto de registros.

![ancienneValeur] = ctl.OldValue
![nouvelleValeur] = ctl.Value

¿ ancienneValeur campos ancienneValeur y nouvelleValeur permiten asignar campos nulos o de longitud cero?

En cualquier caso, debe ser coherente y asegurarse de atrapar los valores nulos antes de asignarlos a los campos de su tabla.

![ancienneValeur] = NZ(ctl.OldValue,"")
![nouvelleValeur] = NZ(ctl.Value,"")

Answer 2

No es exactamente una respuesta, pero el área de comentarios no es adecuada ...

Si se agregan 2 líneas ANTES de If (Nz(ctl.Value, "") <> Nz(ctl.OldValue, "")) Then :

debug.print ctl.Name, ctl.value
debug.print ctl.name, ctl.oldvalue

Esto le permitirá ver si el error está vinculado a un control específico y a una propiedad específica, y limitar su búsqueda.

Editar : Después de editar su OP que indica que el problema surge en el lado "muchos" de su unión, creo que debe cambiar su forma a una arquitectura de "formulario principal - subformulario" . Esto le permitirá realizar un seguimiento de las actualizaciones de cada TABLA correctamente.