how to remove the error couldn,t find file

[veer]

the error on line
set dbmaster = workspaces(0).Opendatabase(sDirFolder)

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
 

[debasisdas]

Please check for existance of the file in the path.

[veer]

File is exsit
when it comes in sdirfolder database, it is not opening
will you please tell me wheather the DAO access the remotely access database because the folders data which i am accessing is not on my hard drive

Please check for existance of the file in the path.

[QVeen72]

Hi,

Remote Access...? Are the mdb's in the LAN Network or Remote URL..?
If in LAN, You should have Read/Write Access to the Shared Folder. and
It should look like this :

\\OtherCompName\SharedFoldName

Post the contents of txtchildMDBFile..?

Regards
Veena

[veer]

the contents of txtchildmdbfile " Server:\YpData\NewData\ multiple folder that i am accessing


Dim dbchild 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, "\"))
sTable = Replace(sTable, ".mdb", "")
sTable = "V" & sTable
squery = " insert into " & txtparenttable & " IN '" & txtparentMDBFile & " ' select * from " & sTable
dbparent.Execute (squery)
End If
sDirFolder = Dir()
Loop
Next

thanks in advance

Hi,

Remote Access...? Are the mdb's in the LAN Network or Remote URL..?
If in LAN, You should have Read/Write Access to the Shared Folder. and
It should look like this :

\\OtherCompName\SharedFoldName

Post the contents of txtchildMDBFile..?

Regards
Veena

[QVeen72]

Hi,

No need to post whole of your Code Every time..

Can you run directly this from your system and see the Contents in this folder..?

Server:\YpData\NewData\

How is the Sharing..? Read/Writ Enabled..?

Regards
Veena

[veer]

yes i am running directly from my system
but the code which i am accesing is on the 2nd system but i have both read and write permissions

Hi,

No need to post whole of your Code Every time..

Can you run directly this from your system and see the Contents in this folder..?

Server:\YpData\NewData\

How is the Sharing..? Read/Writ Enabled..?

Regards
Veena