CASO NAO HAJA ERRO EXECUTA SUB

USUARIO.EXCLUIDOS 03/09/2007 21:06:04
#233947 Resposta escolhida

Se é o que eu pensando é assim:

If Err.Number = O then
'executa
else
msgbox "Deu Erro"
exit sub
end if

ICEMAN 07/09/2007 01:24:03
#234620

cara so entrei hoje mais ja solucionei o problema

fiz assim

On Error GoTo erro
If Text2 = "" Then
MsgBox "Localize a base de dados para salvar o caminho.", vbCritical + vbOKOnly, "Erro ao salvar"
Exit Sub
End If
If Text3 = "" Then
MsgBox "Localize o endereço de IP da base de dados para salvar o caminho.", vbCritical + vbOKOnly, "Erro ao salvar"
Exit Sub
End If

If TESTA_CONEXAO.State = "1" Then TESTA_CONEXAO.Close

TESTA_CONEXAO.Open "Provider=SIBPROvider.2;Data Source=" & V_IP & ":" & Text2 & ":\Arquivos de Programas\MZM\MZMCOMPONENTES.GDB" & ";User ID=" & "SYSDBA" & ";Password=" & "masterkey"
erro:
Select Case Err.Number
Dim total As String
Dim quero As String
Case -2147217843
MsgBox "Diretório invalido ou o nome do banco de dados foi digitado incorreto.", vbCritical + vbOKOnly, "Erro ao abrir o db"
Err.Number = 0
Exit Sub
Case -2147467259
MsgBox "Endereço de IP incorreto ou o gerenciador de dados está desativado", vbCritical + vbOKOnly, "Servidor não encontrado"
Err.Number = 0
Exit Sub
Case 0

V_IP = Text3
total = "[Config1]" & vbCrLf & Text2 & vbCrLf & "[Config2]" & vbCrLf & Tema & vbCrLf & "[Config3]" & vbCrLf & Text3
Open App.Path + "\MInform.sys" For Output As #1
Print #1, total
Close #1


quero = MsgBox("Será necessário reiniciar o programa." & vbCrLf & "Deseja que o sistema faça isso automaticamente?", vbYesNo + vbQuestion, "Reiniciar o sistema")
If quero = vbYes Then
Shell App.Path & "\mzm.exe"
End
Else:
End
End If
Case ""
V_IP = Text3
total = "[Config1]" & vbCrLf & Text2 & vbCrLf & "[Config2]" & vbCrLf & Tema & vbCrLf & "[Config3]" & vbCrLf & Text3
Open App.Path + "\MInform.sys" For Output As #1
Print #1, total
Close #1

quero = MsgBox("Será necessário reiniciar o programa." & vbCrLf & "Deseja que o sistema faça isso automaticamente?", vbYesNo + vbQuestion, "Reiniciar o sistema")
If quero = vbYes Then
Shell App.Path & "\mzm.exe"
End
Else:
End
End If
End Select


mais oque vale é a intensao vou te pontuar