Postada em 22/09/2006 11:09 hs
Olá, ñ estou conseguindo fazer um exclusão de dados no VB, useium código q sei q funciona, mas ao usar ele fica dando um erro q ñ sei qual é...segue o código:
On Error GoTo vError
If MsgBox("Deseja Excluir o Cliente Selecionado", vbDefaultButton2 + vbQuestion + vbYesNo, "Excluir") = vbYes Then
rs.FindMin "cad_cliente_codigo=" & Val(txt_cad_cod.Text)
rs.Delete
Data1.Refresh
btn_cancelar_Click
End If
vError:
Select Case Err.Number
Case 0
Case Else
MsgBox Err.Description, , Err.Number
Resume Next
End Select
o erro é no: rs.FindMin "cad_cliente_codigo=" & Val(txt_cad_cod.Text)
o erro é: "Data type msimatch in criteria expression"
alguém tem alguma luz?
O mal é realitivo. Por acaso para as ovelhas os pastor é bom? Todo homem trai, todo homem morre, mas nem todo homem vive. Águas passadas não movem moinhos, apenas deixam resfriados.
|
