Agregar Valor a una lista
Tengo el siguiente código que funcionaba en Access 97 pero ahora el Access 2000 no, ¿cuál es el problema?
Sub agregaralalista()
Dim dbs As Database 'Variable de la BD
Dim rst As Recordset 'Variable de la Tabla
Dim strvalor As String 'Valor que toma de la lista
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("Unidades")
With rst
.MoveLast
.MoveNext
.AddNew
'CCPagador es una cuadro combinado
strvalor = Me.CCPagador
!Pagador = strvalor
.Update
.MoveLast
End With
Me.CCPagador.Requery
dbs.Close
MsgBox ("Acción realizada satisfactoriamente")
End Sub
Espero encuentres solución
Gracias
Sub agregaralalista()
Dim dbs As Database 'Variable de la BD
Dim rst As Recordset 'Variable de la Tabla
Dim strvalor As String 'Valor que toma de la lista
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("Unidades")
With rst
.MoveLast
.MoveNext
.AddNew
'CCPagador es una cuadro combinado
strvalor = Me.CCPagador
!Pagador = strvalor
.Update
.MoveLast
End With
Me.CCPagador.Requery
dbs.Close
MsgBox ("Acción realizada satisfactoriamente")
End Sub
Espero encuentres solución
Gracias
1 respuesta
Respuesta de juanito01
1
No debería fallar excepto en casos de sintaxis tipo ! Heredadada del antiguo DAO. Dime exactamente donde falla e intentaré decirte algo.
El error que da es el número 13 "No coinciden los tipos" y al depurar marca la siguiente línea:
Set rst = dbs.OpenRecordset("Unidades")
¿Tal vez sea algo que necesite marcar en Referencias del menú Herramientas?
Confío en ti
Gracias.
Set rst = dbs.OpenRecordset("Unidades")
¿Tal vez sea algo que necesite marcar en Referencias del menú Herramientas?
Confío en ti
Gracias.
Cambia
Set rst = dbs.OpenRecordset("Unidades")
por
Set rst = dbs.OpenRecordset("select * from Unidades").
Set rst = dbs.OpenRecordset("Unidades")
por
Set rst = dbs.OpenRecordset("select * from Unidades").
