Boa tarde Amigos, tenho um projeto de orçamento porém não estou conseguindo uma forma para puxar os orçamentos salvo e poder editar e também excluir, preciso da ajuda de vocês. Segue arquivo em anexo.
Obrigado e fiquem com Deus...
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Editar Dados
Moderador: joseA
Re: Editar Dados
Bom dia !
Para excluir eu consegui este código abaixo, mas não consigo para editar os orçamentos salvos.
Private Sub cmd_excluir_Click()
On Error Resume Next
Dim Conexao As Database
Dim Selecionar As Recordset
Dim resposta, i, selecionado, x As Integer
If CBO_CLIENTE = Empty Then
MsgBox "Sem Dados para Exclusão!", vbInformation, "Atenção"
Exit Sub
End If
resposta = MsgBox("Deseja Exclir Registro", 4 + vbCritical, "Atenção !")
Select Case resposta
Case vbYes
Set Conexao = OpenDatabase(ActiveWorkbook.Path & "\DatabaseEstoque.mdb")
Set Selecionar = Conexao.OpenRecordset("tb_saidas")
selecionado = txt_seq.Text / 1
Selecionar.Index = "PrimaryKey"
Selecionar.Seek "=", selecionado
Selecionar.Delete
Call Limpar
MsgBox "Exclusão Efetuada Com Sucesso", 0 + vbInformation, "Registro Excluído !"
Case vbNo
End Select
End Sub
Para excluir eu consegui este código abaixo, mas não consigo para editar os orçamentos salvos.
Private Sub cmd_excluir_Click()
On Error Resume Next
Dim Conexao As Database
Dim Selecionar As Recordset
Dim resposta, i, selecionado, x As Integer
If CBO_CLIENTE = Empty Then
MsgBox "Sem Dados para Exclusão!", vbInformation, "Atenção"
Exit Sub
End If
resposta = MsgBox("Deseja Exclir Registro", 4 + vbCritical, "Atenção !")
Select Case resposta
Case vbYes
Set Conexao = OpenDatabase(ActiveWorkbook.Path & "\DatabaseEstoque.mdb")
Set Selecionar = Conexao.OpenRecordset("tb_saidas")
selecionado = txt_seq.Text / 1
Selecionar.Index = "PrimaryKey"
Selecionar.Seek "=", selecionado
Selecionar.Delete
Call Limpar
MsgBox "Exclusão Efetuada Com Sucesso", 0 + vbInformation, "Registro Excluído !"
Case vbNo
End Select
End Sub