Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Editar Dados

Discussões sobre a integração do Excel com o Banco de Dados Access

Moderador: joseA

CROVADOR
Manda bem
Manda bem
Mensagens: 106
Registrado em: Ter Mar 13, 2018 11:15 am

Editar Dados

Mensagem por CROVADOR »

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...
Anexos
Orçamentos.rar
(487.32 KiB) Baixado 209 vezes


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


CROVADOR
Manda bem
Manda bem
Mensagens: 106
Registrado em: Ter Mar 13, 2018 11:15 am

Re: Editar Dados

Mensagem por CROVADOR »

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


Responder