Excel macro y access

25/10/2004 - 23:02 por Daniel Barelli | Informe spam
Hola, estoy desarrollando una macro para manejar un archivo de access. La
idea es que la macro cargue desde la base en access los datos a una hoja del
excel y luego con otra macro guardar los datos de la hoja en la base
nuevamente.
El unico inconveniente que encontre es que no puedo hacer un FIND a la base
de datos utilizando el control DAO, cuando lo intento simplemente me da un
error.
Estoy intentando utilizarlo como habitualmente se usa un controldata en
visual (ejemplo: controldata.recordset.finfirst varconsql).
Si alguno me puede dar una ayuda se lo voy a agradecer mucho.
Slds.
 

Leer las respuestas

#1 Miguel Salinas
26/10/2004 - 00:05 | Informe spam
extraído de la ayuda de access 97
Sub FindRecord()
Dim dbs As Database, rst As Recordset
Dim strCriteria As String

' Devuelve una referencia a la base de datos activa.
Set dbs = CurrentDb
' Define un critero de búsqueda.
strCriteria = "[PaísDestinatario] = 'Reino Unido' And [FechaPedido] >#1-1-95#"
' Crea un objeto Recordset tipo dynaset basado en la tabla Pedidos.
Set rst = dbs.OpenRecordset("Pedidos", dbOpenDynaset)
' Busca el primer registro que cumpla el criterio.
rst.FindFirst strCriteria

' Comprueba si se ha encontrado un registro.
If rst.NoMatch Then
MsgBox "No se ha encontrado ningún registro."
Else
' Busca otros registros que cumplan el criterio.
Do Until rst.NoMatch
Debug.Print rst!PaísDestinatario; " "; rst!FechaPedido
rst.FindNext strCriteria
Loop
End If
rst.Close
Set dbs = Nothing
End Sub
"Daniel Barelli" wrote in message
news:
Hola, estoy desarrollando una macro para manejar un archivo de access. La
idea es que la macro cargue desde la base en access los datos a una hoja


del
excel y luego con otra macro guardar los datos de la hoja en la base
nuevamente.
El unico inconveniente que encontre es que no puedo hacer un FIND a la


base
de datos utilizando el control DAO, cuando lo intento simplemente me da un
error.
Estoy intentando utilizarlo como habitualmente se usa un controldata en
visual (ejemplo: controldata.recordset.finfirst varconsql).
Si alguno me puede dar una ayuda se lo voy a agradecer mucho.
Slds.


Preguntas similares