Verificar o que selecionou no Common dialog


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: Verificar o que selecionou no Common dialog

Grupo Louco

SS
SP - BRASIL

ENUNCIADA !

Postada em 07/07/2004 04:12 hs

na janela de common dialog, ele pergunta onde quer salvar se a pessoa cancelar, ele esta dando erro, como eu verifico o que a pessoa clicou?

Tekki

UBERLÂNDIA
MG - BRASIL

Postada em 07/07/2004 08:57 hs

Este é parte de um código que uso, veja se te ajuda.

Private Sub imgProcuraOrigem_Click()
On Error GoTo FIM
...
    With Dialog1
        .CancelError = True
        .FileName = ""
        .InitDir = txtOrigem.Text
        .Filter = "Componentes Activex (*.MDB)|*.MDB"
        .Flags = cdlOFNHideReadOnly
        .ShowOpen
        txtOrigem.Text = .FileName
        txtDestino.SetFocus
    End With
    imgProcuraOrigem.Enabled = True
FIM:
    If Err Then
        If Err = 32755 Then
            Err = Clear
        ElseIf MsgBox("E R R O !" & Chr(13) & Chr(13) & "Número.......: " & Format(Err.Number) & Chr(13) & Chr(10) & "Mensagem...: " & Error & Chr(13) & Chr(13) & Chr(13) & " Isto pode gerar erro, deseja continuar ?", vbYesNo + vbCritical) = vbYes Then
           Err = Clear
           Resume Next
        End If
        Err = 0
        imgProcuraOrigem.Enabled = True
    End If
End Sub

defende
não registrado

ENUNCIADA !

Postada em 07/07/2004 13:21 hs

Tekki, ja que vc mencionou, olha esse pedaco de codigo. Como eu posso fazer para ele nao gerar erro caso seja dado o Cancel.

Dim strNew As String
Dim Ws As Workspace
Dim Banco As Database
Dim Caminho As String
Dim Mostra As Boolean
Dim BDexiste As String

Mostra = False

On Error GoTo Erros

cmdNovo.CancelError = False
cmdNovo.DialogTitle = "Gravar novo projeto..."
cmdNovo.InitDir = App.Path
cmdNovo.Flags = cdlOFNHideReadOnly + cdlOFNOverwritePrompt
cmdNovo.Filter = "Banco de dados(*.mdb)|*.mdb"
cmdNovo.FilterIndex = 2
cmdNovo.ShowSave
strNew = cmdNovo.FileTitle

Set Ws = DBEngine.Workspaces(0)
Caminho = cmdNovo.Filename

BDexiste = Caminho

If Dir(BDexiste) = "" Then
    Set Banco = Ws.CreateDatabase(Caminho, dbLangGeneral, dbEncrypt)
Else
    Kill (BDexiste)
    Set Banco = Ws.CreateDatabase(Caminho, dbLangGeneral, dbEncrypt)
End If

CaminhoDB = strNew

End If
Erros:

Exit Sub

Tekki

UBERLÂNDIA
MG - BRASIL

ENUNCIADA !

Postada em 07/07/2004 13:37 hs

No primeiro exemplo eu estava usando o showopen agora, no seu código você usa showsave. Neste caso eu faria assim:

cmdNovo.Filter = "Banco de dados(*.mdb)|*.mdb"
cmdNovo.FilterIndex = 2
cmdNovo.FileName = ""
cmdNovo.ShowSave
If cmdNovo.FileName <> "" Then
    strNew = cmdNovo.FileTitle
    Set Ws = DBEngine.Workspaces(0)
    Caminho = cmdNovo.FileName

    BDexiste = Caminho
    If Dir(BDexiste) = "" Then
        Set Banco = Ws.CreateDatabase(Caminho, dbLangGeneral, dbEncrypt)
    Else
        Kill (BDexiste)
        Set Banco = Ws.CreateDatabase(Caminho, dbLangGeneral, dbEncrypt)
    End If

    CaminhoDB = strNew
Else
    MsgBox "Cancel"
End If

Página(s): 1/1

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR