Amigos.. tenho um código que funciona, mas ao trabalhar com recordset's em BD diferentes.. alguns campos não foram mostrados...
Eis o código, se puderem, analizem e me ajudem a ver o que há de errado com este código..
Dim db, dbLocal As DAO.Database
Dim ws As DAO.Workspace
Dim rs, rsAdm As DAO.Recordset
Set ws = DBEngine.Workspaces(0)
Set db = ws.OpenDatabase(CurrentProject.Path & "\Syspen_Be.accdb", False, False, "MS Access;PWD=senha")
Set dbLocal = ws.OpenDatabase(CurrentProject.Path & "\Syspen_Be_Local.accdb", False, False, "MS Access;PWD=senha")
strSQLDetentos = "SELECT * FROM Detentos LEFT JOIN Fotos_Detentos ON Detentos.ID=Fotos_Detentos.Detento WHERE ID = " & Forms!frmDetentoConsulta!ID & ";"
Set rs = db.OpenRecordset(strSQLDetentos)
strSQLAdm = "SELECT * FROM Administração"
Set rsAdm = dbLocal.OpenRecordset(strSQLAdm)
Grato
Eis o código, se puderem, analizem e me ajudem a ver o que há de errado com este código..
Dim db, dbLocal As DAO.Database
Dim ws As DAO.Workspace
Dim rs, rsAdm As DAO.Recordset
Set ws = DBEngine.Workspaces(0)
Set db = ws.OpenDatabase(CurrentProject.Path & "\Syspen_Be.accdb", False, False, "MS Access;PWD=senha")
Set dbLocal = ws.OpenDatabase(CurrentProject.Path & "\Syspen_Be_Local.accdb", False, False, "MS Access;PWD=senha")
strSQLDetentos = "SELECT * FROM Detentos LEFT JOIN Fotos_Detentos ON Detentos.ID=Fotos_Detentos.Detento WHERE ID = " & Forms!frmDetentoConsulta!ID & ";"
Set rs = db.OpenRecordset(strSQLDetentos)
strSQLAdm = "SELECT * FROM Administração"
Set rsAdm = dbLocal.OpenRecordset(strSQLAdm)
Grato