IMPUTBOX

FORMIGINHA 14/09/2006 15:00:29
#171480
COMO FAÇO PARA ABRIR UM IMPUTBOX PEDINDO PARA QUE O USUARIO SELECIONE ONDE ESTA LOCALIZADO A BASE QUANDO O SISTEMA NÃO ACHAR?

T+
USUARIO.EXCLUIDOS 14/09/2006 15:06:53
#171485 Resposta escolhida
creio que com input box não tem como... tente utilizar o Common Dialog.

Components > Microsofts Common Dialog Control


CommonDialog1.Filter = *.mdb | MDB
CommonDialog1.ShowOpen

CaminhoBD = CommonDialog1.FileName
msgbox CaminhoBD

FORMIGINHA 14/09/2006 15:12:37
#171488
E COMO VERIFICAR SE O SISTEMA NÃO ACHOU A BASE ?

ASSI:

Dim Var As String
Open App.Path & "\DB.TXT" For Input As #1
Input #1, Var
Close #1
Data1.DatabaseName = Var

IF NÃO ENCONTROU THEN
CommonDialog1.Filter = *.mdb | MDB
CommonDialog1.ShowOpen

CaminhoBD = CommonDialog1.FileName
msgbox CaminhoBD
ELSE
CARREGA
END IF

?

T+
USUARIO.EXCLUIDOS 14/09/2006 15:17:37
#171491
'em um modulo
Public Function FileExists(strFileName As String) As Boolean
  Dim intLen As Integer
  If strFileName$ <> "" Then
    intLen% = Len(Dir$(strFileName$))
    FileExists = (Not Err And intLen% > 0)
  Else
    FileExists = False
  End If
End Function


Seu código adaptado!

Dim Var As String 
Open App.Path & "\DB.TXT" For Input As #1 
Input #1, Var 
Close #1 

IF Not FileExists(Var) THEN 
CommonDialog1.Filter = *.mdb | MDB 
CommonDialog1.ShowOpen 

CaminhoBD = CommonDialog1.FileName 
msgbox CaminhoBD 
ELSE 
Data1.DatabaseName = Var 
CARREGA 
END IF

FORMIGINHA 14/09/2006 15:57:45
#171504
COMO FAÇO PARA GRAVAR O CAMINHO QUE FOI APONTADO ?

T+
USUARIO.EXCLUIDOS 14/09/2006 16:02:58
#171507
Gravar onde?? no txt?? faça assim:

Open App.Path & "\DB.TXT" For OutPut As #1
Print #1, CaminhoBD
Close #1


FORMIGINHA 14/09/2006 16:21:56
#171509
VLW, FUNCIONOU.
USUARIO.EXCLUIDOS 14/09/2006 16:48:15
#171521
FORMIGINHA, se o MARCELOHF te ajudou então nada mais justo que pontuá-lo, não?

To passando o ponto pra ele...flw
Tópico encerrado , respostas não são mais permitidas
Voltar