set dbmaster = workspaces(0).O pendatabase(sDi rFolder)
Expand|Select|Wrap|Line Numbers
- Dim dbmaster As DAO.Database
- Dim dbparent As DAO.Database
- Dim sDirFolder As String
- Dim sArrayFolder() As String
- Dim squery As String
- Dim icount As Integer
- Dim sTable As String
- Set dbparent = Workspaces(0).OpenDatabase(txtparentMDBFile)
- sDirFolder = Dir(txtchildMDBFile.Text & "\", vbDirectory)
- Do While sDirFolder <> ""
- If sDirFolder <> "." And sDirFolder <> ".." Then
- ReDim Preserve sArrayFolder(icount) As String
- sArrayFolder(icount) = sDirFolder
- icount = icount + 1
- lblmerge.Caption = "Directories Found="
- lblcount = icount
- End If
- sDirFolder = Dir()
- Loop
- For icount = 0 To UBound(sArrayFolder())
- sDirFolder = Dir(txtchildMDBFile.Text & "\" & sArrayFolder(icount) & "\*.mdb", vbDirectory)
- Do While sDirFolder <> ""
- If sDirFolder <> "." And sDirFolder <> ".." Then
- Set dbmaster = Workspaces(0).OpenDatabase(sDirFolder)
- sTable = Right(sDirFolder, InStrRev(sDirFolder, "\*.mdb"))
- sTable = Replace(sTable, ".mdb", "")
- sTable = "E" & sTable
- squery = " insert into " & txtparenttable & " IN '" & txtparentMDBFile & " ' select * from " & sTable
- dbparent.Execute (squery)
- End If
- sDirFolder = Dir()
- Loop
- Next