Access - Actualizar campos de un registro usando DAO

 
Vista:
sin imagen de perfil
Val: 14
Ha disminuido su posición en 3 puestos en Access (en relación al último mes)
Gráfica de Access

Actualizar campos de un registro usando DAO

Publicado por Jorge (32 intervenciones) el 25/02/2015 05:13:43
No logro que funcione mi código para actualizar un campo de un registro usando DAO.
mi código es este:

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
32
33
34
35
Private Sub NuevaPartida_Click()
 
    Dim rs As DAO.Recordset
    Dim stringSQL As String
 
On Error GoTo Err_NuevaPartida_Click
 
    Set rs = CreateObject("DAO.Recordset")
 
    If Not IsNull(Me.IVACausado) Then
        If Not IsNull(Me.Cuadro_combinado68) Then
 
            stringSQL = "SELECT * FROM RecursosHumanos WHERE IdRecursosHumanos = " & IdRecHum
            rs.Open stringSQL, Application.CurrentProject.Connection, adOpenDynamic, adLockOptimistic
 
            If Not rs.EOF Then
                rs!Asignado = 2
                rs.Update
            End If
 
            rs.Close
            Set rs = Nothing
 
        End If
    End If
 
Exit_NuevaPartida_Click:
     Me.AsignacionOperadorSubformulario.Requery
     Exit Sub
 
Err_NuevaPartida_Click:
    MsgBox "El error es " & Err.Description & "en RecursosHumanos"
    Resume Exit_NuevaPartida_Click
 
End Sub

En el formulario hay un campo con nombre IdRecHum, donde se guarda el registro que deseo actualizar.

La actualización consiste en que el campo Asignado tome el valor 2

Al tratar de correrlo marca un error de compilación en rs.Open y el mensaje señala que "No se encontró el método o el dato miembro" (.open aparece resaltado en azul)

Si en lugar de DAO trato de usar ADO, desde el principio me señala que no está definido ADO (No se ha definido el tipo definido por el usuario)

Les agradeceré mucho su ayuda y me sacarán de un buen aprieto.
Jorge.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder