Olhem o codigo abaixo:

 

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

Mostra = False

On Error GoTo ErrHandler
cmdNovo.CancelError = True
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 = App.Path + "dados" & strNew

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

If Err.Number = 32755 Then

   Exit sub

End If
Exit Sub

Acontece que ele continua dando Run-Time error 32755

 

O que eu to fazendo de errado????

E ai pessoal - ninguem tem ideia do que pode ser isso aqui?

 

Ja revirei o help, msdn e nada ainda.

Porque ele nao esta tratando o erro??

 

Valeu

Teste o código e funcionou corretamente.

Pode ser algum problema no Banco de Dados que vc está utilizando ou com o VB.

 

T+

Rinaldo

Blz Rinaldo.

 

Com o banco de dados esta tudo ok.

Com respeito ao VB, vc teria ideia do que pode ser? Sera que tem alguma referencia que eu tenho de setar?

Pois eu nao chego a clicar em nada, apenas abro a commondialog e fecho pelo Cancelar e ja dah esse erro ai.....

Olha testei novamente todas as possibilidades e não ocorreu nenhum erro.

Tente mudar a string Caminho = App.Path + "dados" & strNew para Caminho = App.Path + "dados" & strNew

 

T+

Rinaldo

Defende

O erro no seu código ocorre pq a propriedade CancelError do CommonDialog está setada como true!! Então o componente retorna um erro quando o usuário cancela a caixa de de diálogo!