USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Arquivo existe?
Zoltran
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 01/04/2008 15:20 hs            
Boa tarde, senhores!
 
Uma ajudinha simples, veja o código abaixo o que eu estou esquecendo?
Ta parando sempre na 2ª msg abaixo, "Arquivo não encontrado".
 
Public Sub Main()
 
QPOT = "\Servidor1Pots" & Format(Date, "dd-mm-yyyy") & ".mdb"
 
If Dir$("QPOT") <> "" Then
  On Error GoTo Herro
   db.Open "DRIVER={Microsoft Access Driver (*.mdb)};dbq=" & QPOT
   Form1.Show
   Exit Sub
Herro:
   MsgBox ("     Falha de Conexão na REDE.     "), vbInformation, "Atenção"
   End
Else
   MsgBox ("     Arquivo não encontrado.     "), vbExclamation, "Aviso"
End If
End
End Sub
 
Grato,
 
   
Treze
Pontos: 2843 Pontos: 2843
SÃO VICENTE
SP - BRASIL
ENUNCIADA !
Postada em 01/04/2008 15:26 hs            
O pode estar acontecendo é isto, primeiro creio que você deva colocar o caminho completo
ex:
 
QPOT = "c:\Servidor1Pots" & Format(Date, "dd-mm-yyyy") & ".mdb"
 
ou
 
QPOT =app.path & "\Servidor1Pots" & Format(Date, "dd-mm-yyyy") & ".mdb"
 
veja se é isto
 
   
Zoltran
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 01/04/2008 15:31 hs            
Olá treze,
 
O caminho está completo e o arquivo existe.
No código não sai corretamente as "Barras invertidas".
 
 
   
Treze
Pontos: 2843 Pontos: 2843
SÃO VICENTE
SP - BRASIL
ENUNCIADA !
Postada em 01/04/2008 16:24 hs            
Zoltran o que está acontecendo é o seguinte seu código não está encontrando o caminho, faç o seguinte teste, jogue em um text o seu caminho
 
ex:
text1.text="\Servidor1Pots" & Format(Date, "dd-mm-yyyy") & ".mdb"
 
isso só pra conferir se o format está correto
   
Zoltran
SÃO PAULO
SP - BRASIL
Postada em 01/04/2008 16:41 hs            
Como fazer isso se o código está em um modulo que inicia primeiro.
Quando dou um STOP logo abaixo da variavel,
 já conferi caracter por caracter e está certo o caminho.
 
 
     
Treze
Pontos: 2843 Pontos: 2843
SÃO VICENTE
SP - BRASIL
ENUNCIADA !
Postada em 01/04/2008 16:44 hs            
Desculpe colega deixeipassar batido uma coisa aqui está o erro:
 
Dir$("QPOT")  ' não pode haver as aspas para este caso
 
Dir$(QPOT)  ' esta é a forma correta
 
veja agora
   
Página(s): 1/2      PRÓXIMA »

CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página