VBA ACCESS - ABRINDO OUTRO BANCO DE DADOS

SMANUT 30/07/2009 13:57:07
#318365

abre o banco assim(coloca isso em um módulo)
Public Function abretabela(val_tabela As String)
Dim db As Database
Dim rst As Recordset
Dim patii As String


Set db = OpenDatabase(Path & [Ô]informacoes.mdb[Ô])
Set rst = db.OpenRecordset([Ô]informacoes[Ô], dbOpenDynaset)
With rst
.MoveLast
strstring = !proprietario
pati = Path & !pati

base = !base
End With
rst.Close
Set dbi = OpenDatabase(pati & base)
Set rsti = dbi.OpenRecordset(val_tabela, dbOpenDynaset)
End Function

onde vc precisar usar as tabelas usa assim:

Private Sub Command1_Click()
abretabela ([Ô]SELECT cadastrodeproduto.* FROM cadastrodeproduto;[Ô])
With rsti
.MoveFirst
Do While Not .EOF
.Edit
!unidade = 9
.Update
.Bookmark = .LastModified
.MoveNext
Loop
End With
rsti.Close
End Sub