olá pessoal, mas uma vez eu aqui abusando de vcs , rsrsrsrs, mas é que vcs são os melhores,
é o seguinte tenho um formulario lista clientes, que eu clico no botão ezxcluir e ele exclui do formulario, mas não exclui da tabela
alguem ai sabe me dizer o que está errado , desde já obrigado
Private Sub BotaoExcluir_Click()
If Not IsNull(CODCLI) Then
If PodeExcluir Then
GeraLog = Log("tbl_Clientes " & Me.ccNomCli, "E", ccVarCli)
strSQL = "UPDATE tbl_Clientes set ccAtivo = False WHERE CODCLI = " & ccVarCli
On Error GoTo erro
Workspaces(0).Databases(0).Execute strSQL
Me.Requery
End If
VoltaErro:
Else
Beep
MsgBox "Nenhum cliente foi selecionado !", vbExclamation, "Exclusão"
End If
Exit Sub
erro:
Beep
MsgBox Error$, vbCritical, "Edição"
Resume VoltaErro
end sub
é o seguinte tenho um formulario lista clientes, que eu clico no botão ezxcluir e ele exclui do formulario, mas não exclui da tabela
alguem ai sabe me dizer o que está errado , desde já obrigado
Private Sub BotaoExcluir_Click()
If Not IsNull(CODCLI) Then
If PodeExcluir Then
GeraLog = Log("tbl_Clientes " & Me.ccNomCli, "E", ccVarCli)
strSQL = "UPDATE tbl_Clientes set ccAtivo = False WHERE CODCLI = " & ccVarCli
On Error GoTo erro
Workspaces(0).Databases(0).Execute strSQL
Me.Requery
End If
VoltaErro:
Else
Beep
MsgBox "Nenhum cliente foi selecionado !", vbExclamation, "Exclusão"
End If
Exit Sub
erro:
Beep
MsgBox Error$, vbCritical, "Edição"
Resume VoltaErro
end sub