Gostaria de saber qual seria a melhor forma para chamar banco de dados externos na mesma pasta sem a necessidade do colocar a unidade
uso atualmente assim:
Dim bd As DAO.Connection
Dim rs As DAO.Recordset
Dim ws As Workspace
Dim sel As String
nome = Texto1
Set ws = DBEngine.Workspaces(0)
Set db = ws.OpenDatabase("C:\Users\SQL_2012\Downloads\banco2.mdb", False, False)
Set rs = db.OpenRecordset("TB_NOME")
rs.AddNew
rs!nome = nome
rs.Update
gostaria de usar assim
Set db = ws.OpenDatabase("banco2.mdb")
tem alguma forma..até porque várias pessoas abrirão os forms e para algumas máquinas o endereço da unidade é diferente.
uso atualmente assim:
Dim bd As DAO.Connection
Dim rs As DAO.Recordset
Dim ws As Workspace
Dim sel As String
nome = Texto1
Set ws = DBEngine.Workspaces(0)
Set db = ws.OpenDatabase("C:\Users\SQL_2012\Downloads\banco2.mdb", False, False)
Set rs = db.OpenRecordset("TB_NOME")
rs.AddNew
rs!nome = nome
rs.Update
gostaria de usar assim
Set db = ws.OpenDatabase("banco2.mdb")
tem alguma forma..até porque várias pessoas abrirão os forms e para algumas máquinas o endereço da unidade é diferente.