[Resolvido]Tratamento de error

Pessoal,

Eu tenho um botão excluir que está funcionando certinho, só que na inputbox ele tem dois botões 1 para cancelar e outro para confirmar exclusão. O único problema é o botão cancelar exclusão. que está aparecendo o mesmo tratamento de erro que foi dado ao botão confirmar. O que faço?
Grata,mais uma vez.

Olá

Usamos a função strPtr() para isso.


Dim x As String
x = InputBox("Entre com o valor", "Seu título")
If StrPtr(x) = 0 Then
MsgBox "Você cancelou !"
else
msgbox x
End If


Sucesso!

Avelino, vc poderia "desenhar" um pouquinho pra mim? pq eu tentei fazer, mas deu errado.
Olha o meu código para o botao excluir aí:

Private Sub bt_excluir_Click()
'Tratamento de erro
On Error GoTo Err_Delete

Dim rs As Recordset, numRecord As Integer
numRecord = InputBox("Informe o código do Cliente.", "Excluir Cliente")
Set rs = CurrentDb.OpenRecordset("SELECT * FROM TblCliente WHERE CodigoCliente=" & numRecord & "")

If MsgBox("Confira dos dados do cliente " & numRecord & " abaixo: Deseja exclui-lo mesmo assim?" & vbCrLf & vbCrLf & "Nome: " & rs!Nome & vbCrLf & "CPF: " & rs!CPF & vbCrLf & "Nome da Mãe: " & rs!NomeMae, vbQuestion + vbYesNo, "Confirmação dos dados do cliente") = vbYes Then

rs.Delete

MsgBox "Operação realizada com sucesso!", vbInformation, "Confirmação da exclusão"

Else
MsgBox " Ação cancelada pelo usuário", vbInformation, " Operação cancelada"

Exit Sub

End If


rs.Close
Set rs = Nothing

DoCmd.GoToRecord , , acNewRec

Exit_Delete:
Exit Sub

Err_Delete:
MsgBox "Digite um código de cliente existente para excluí-lo.", vbCritical, "Alerta"

Resume Exit_Delete

End Sub

Olá

Private Sub bt_excluir_Click()
'Tratamento de erro
On Error GoTo Err_Delete

Dim rs As Recordset, numRecord As Integer
numRecord = InputBox("Informe o código do Cliente.", "Excluir Cliente")

if strPtr(numRecord)=0 then exit sub

Set rs = CurrentDb.OpenRecordset("SELECT * FROM TblCliente WHERE CodigoCliente=" & numRecord & "")

If MsgBox("Confira dos dados do cliente " & numRecord & " abaixo: Deseja exclui-lo mesmo assim?" & vbCrLf & vbCrLf & "Nome: " & rs!Nome & vbCrLf & "CPF: " & rs!CPF & vbCrLf & "Nome da Mãe: " & rs!NomeMae, vbQuestion + vbYesNo, "Confirmação dos dados do cliente") = vbYes Then

rs.Delete

MsgBox "Operação realizada com sucesso!", vbInformation, "Confirmação da exclusão"

Else
MsgBox " Ação cancelada pelo usuário", vbInformation, " Operação cancelada"

Exit Sub

End If


rs.Close
Set rs = Nothing

DoCmd.GoToRecord , , acNewRec

Exit_Delete:
Exit Sub

Err_Delete:
MsgBox "Digite um código de cliente existente para excluí-lo.", vbCritical, "Alerta"

Resume Exit_Delete

End Sub

Olá Avelino, Eu tinha tentado isto, mas achei que meu pouco conhecimento fosse o problema, pois continua a mesma coisa.
a opção cancelar do botão excluir, continua aparecendo o mesmo tratamento de erro que foi dado a opção ok qdo não escolhe um cliente.

Fiz um teste aqui e realmente da erro. Troque o tipo da variável para variant.

Dim rs As Recordset, numRecord As variant
numRecord = InputBox("Informe o código do Cliente.", "Excluir Cliente")

if strPtr(numRecord)=0 then exit sub
if not isnumeric(numRecord) then exit sub

Set rs = CurrentDb.OpenRecordset("SELECT * FROM TblCliente WHERE CodigoCliente=" & numRecord & "")

If MsgBox("Confira dos dados do cliente " & numRecord & " abaixo: Deseja exclui-lo mesmo assim?" & vbCrLf & vbCrLf & "Nome: " & rs!Nome & vbCrLf & "CPF: " & rs!CPF & vbCrLf & "Nome da Mãe: " & rs!NomeMae, vbQuestion + vbYesNo, "Confirmação dos dados do cliente") = vbYes Then

rs.Delete
...
....


Sucesso!

Agora funcionou. Obrigada!!!