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:
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.
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.RecordsetDim 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 Thenrs!Asignado = 2
rs.UpdateEnd If
rs.Close Set rs = NothingEnd 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
0