Prezados,
A intenção é verificar se 2 arquivos accdb existem no diretório definido do aplicativo(caminhoInstall ) e listar em uma caixa de mensagem (os que não existem). Para tal tenho a tabela tb_check com 2 campos : [Arquivo] e [Flag].Em [Arquivo] tem o nome do arquivo e em [Flag] defino '1' se ele não existe, para depois listar os que não existem.Estou com a função 'FileExists' no banco. Tentei com o código abaixo mas não obtive sucesso.
Dim bd As Database
Dim tb As Recordset
Dim caminhoInstall, NãoEncontrados As String
Set db = DBEngine(0)(0)
Set tb = db.OpenRecordset("tb_check")
caminhoInstall = DLookup("[Dir_install]", "tb_Config", "[Dir_install]") & "\"
'verifico se existe arquivo1
If Not FileExists(caminhoInstall & "tbTemp.accdb") Then
tb1 = 1
'verifico se existe arquivo2
ElseIf Not FileExists(caminhoInstall & "tbato.accdb") Then
tb2 = 1
End If
Do Until tb.EOF
If (tb![Arquivo] = "tbTemp") Then
tb.Edit
tb![Flag] = tb1
tb.Update
ElseIf (tb![Arquivo] = "tbato") Then
tb.Edit
tb![Flag] = tb2
tb.Update
ElseIf tb.BOF Then
End If
tb.MoveNext
Loop
tb.Close
Set db = Nothing
NãoEncontrados = DLookup("[Arquivo]", "tb_check", "[Flag]=1")
MsgBox " Arquivos não encontrados: " & NãoEncontr
obrigado.
A intenção é verificar se 2 arquivos accdb existem no diretório definido do aplicativo(caminhoInstall ) e listar em uma caixa de mensagem (os que não existem). Para tal tenho a tabela tb_check com 2 campos : [Arquivo] e [Flag].Em [Arquivo] tem o nome do arquivo e em [Flag] defino '1' se ele não existe, para depois listar os que não existem.Estou com a função 'FileExists' no banco. Tentei com o código abaixo mas não obtive sucesso.
Dim bd As Database
Dim tb As Recordset
Dim caminhoInstall, NãoEncontrados As String
Set db = DBEngine(0)(0)
Set tb = db.OpenRecordset("tb_check")
caminhoInstall = DLookup("[Dir_install]", "tb_Config", "[Dir_install]") & "\"
'verifico se existe arquivo1
If Not FileExists(caminhoInstall & "tbTemp.accdb") Then
tb1 = 1
'verifico se existe arquivo2
ElseIf Not FileExists(caminhoInstall & "tbato.accdb") Then
tb2 = 1
End If
Do Until tb.EOF
If (tb![Arquivo] = "tbTemp") Then
tb.Edit
tb![Flag] = tb1
tb.Update
ElseIf (tb![Arquivo] = "tbato") Then
tb.Edit
tb![Flag] = tb2
tb.Update
ElseIf tb.BOF Then
End If
tb.MoveNext
Loop
tb.Close
Set db = Nothing
NãoEncontrados = DLookup("[Arquivo]", "tb_check", "[Flag]=1")
MsgBox " Arquivos não encontrados: " & NãoEncontr
obrigado.