La Web del Programador: Comunidad de Programadores
 
    Pregunta:  7922 - DATABASE EN ACCESS 2000
Autor:  JUAN CARLOS ATENCIO
DESEO SABER COMO ACCESAR A UNA BASE DE DATOS POR MEDIO DE PROGRAMACION(MODULO). EN ACCESS 97 LO HACIA DE ESTA FORMA PERO EN ACCESS 2000 NO PUEDO.

DIM DBF AS DATABASE, RST AS RECORSET
SET DBF = CODEDB
SET RST = DBF.OPENRECORSET(" nombre de la tabla",DBOPENDYNASET)

CON LA VARIABLE RST PUEDO RECORRER TODA LA DATA PERO EN ACCESS 2000 ESTA INSTRUCCIÓN ME DA ERROR.

GRACIAS POR SU AYUDA.

  Respuesta:  Lilibeth Quintero
SE ESCRIBE ASI , creo que tienes error de sintaxis TE MANDO MIS EJEMPLOS

Dim bd As Database
Dim RST As Recordset
Dim strBusqueda As String
Set bd = CurrentDb
Set RST = bd.OpenRecordset("cod_algo", dbOpenDynaset)

With RST
.MoveLast
.MoveFirst

strBusqueda = "CODIGO = '" & CódigodeCargo.Value & "'"

.FindFirst strBusqueda

If .NoMatch = False Then
Texto_cargo.Value = !cargo
Forms![nombre del fomulario]!Texto_cargo = tbCargo.Fields("CARGO")
End If

End With
bd.Close

  Respuesta:  luis Melo
Hola
La solución es muy simple.
Primero te explico porque te suce ese error.
Lo que pasa es acces 2000 trabaja con ADO por defecto, mientras que access 97 trabaja con DAO, la manera como se trabaja con estas dos arquitecturas es un poco diferente.

Para corregir el problema:
Abre un modulo
Ve al menu herramiestas/Referencias
Quita la referencia a ADO
Añade la referencia DAO 3.X

Cualquier inquietud puedes escribirme