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
|
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
|
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 |
|
|
|
|
|
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
|
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 |
|
|
|
