Fóruns
Microsoft Excel - 2...
2024 - Integração E...
Erro de Método de D...
 
Notifications
Clear all

Erro de Método de Dados em edição de registro no Access

 
2024 - Integração Excel & Access 2024
Post Recente por HelioFaria 8 anos atrás
3 Posts
2 Usuários
0 Reactions
1,217 Visualizações
RSS
 HelioFaria
(@heliofaria)
Posts: 0
New Member
Topic starter
 

Pessoal, tudo bem?

Sou eu novamente e com um problema meio besta, mas que não to conseguindo resolver. Ja procurei em todo canto, e aparentemente não há erro de sintaxe no meu código.

É o seguinte: Tenho um formulário em Excel que alimenta uma base de dados no Access, entretanto, meu código para editar os registros salvos não está funcionando. Sempre que mando salvar a edição de um registro, aparece o erro: "ERRO DE COMPILAÇÃO: MÉTODO OU MEMBRO DE DADOS NÃO ENCONTRADO" .

Private Sub Btn_Salvar_Edit_Click()

Call Conecta

Set Rst = New ADODB.Recordset
Rst.Open "select * from Bd_Compras", Conexao, adOpenKeyset, adLockOptimistic, adCmdText
With Rst
.Edit
.Fields("Solicitante") = Me.Txt_E_Solicitante
.Fields("Departamento") = Me.Txt_E_Departamento
.Fields("Centro_de_Custo") = Me.Txt_E_Centro_de_Custo
.Fields("Data_Solicitacao") = Hoja1.Range("a1")
.Fields("Aprovador") = Me.Txt_E_Aprovador
.Fields("Quantidade1") = Me.Txt_E_Qtd1
.Fields("Produto1") = Me.Txt_E_Produto1
.Fields("Quantidade2") = Me.Txt_E_Qtd2
.Fields("Produto2") = Me.Txt_E_Produto2
.Fields("Quantidade3") = Me.Txt_E_Qtd3
.Fields("Produto3") = Me.Txt_E_Produto3
.Fields("Quantidade4") = Me.Txt_E_Qtd4
.Fields("Produto4") = Me.Txt_E_Produto4
.Fields("Quantidade5") = Me.Txt_E_Qtd5
.Fields("Produto5") = Me.Txt_E_Produto5
.Fields("Status_RC") = Me.Txt_E_Status
.Fields("Observacoes") = Me.Txt_E_Obs

.Update

End With
Rst.Close
Conexao.Close
Call Desconectar
MsgBox " Registro Editado com Sucesso!"
End Sub

Se alguem puder ajudar, ficaria muito agradecido.

 
Postado : 21/04/2016 4:46 am
 tarcelles
(@tarcelles)
Posts: 0
New Member
 

Cara, nunca se Atualiza um registro sem WHERE, se voce apenas selecionar, caso o codigo funciona-se iria atualizar todos os dados sem exceção.

tenta assim :

Set Rst = New ADODB.Recordset
Rst.Open "select * from Bd_Compras where 'CAMPO DA SUA TABELA DA CONDIÇÃO'='CONDIÇÃO'", Conexao, adOpenKeyset, adLockOptimistic, adCmdText
With Rst
'.Edit RETIREI O EDIT
("Solicitante") = Me.Txt_E_Solicitante.TEXT
("Departamento") = Me.Txt_E_Departamento.TEXT
("Centro_de_Custo") = Me.Txt_E_Centro_de_Custo.TEXT
("Data_Solicitacao") = DATE
("Aprovador") = Me.Txt_E_Aprovador.TEXT
("Quantidade1") = Me.Txt_E_Qtd1.TEXT
("Produto1") = Me.Txt_E_Produto1.TEXT
("Quantidade2") = Me.Txt_E_Qtd2.TEXT
("Produto2") = Me.Txt_E_Produto2.TEXT
("Quantidade3") = Me.Txt_E_Qtd3.TEXT
("Produto3") = Me.Txt_E_Produto3.TEXT
("Quantidade4") = Me.Txt_E_Qtd4.TEXT
("Produto4") = Me.Txt_E_Produto4.TEXT
("Quantidade5") = Me.Txt_E_Qtd5.TEXT
("Produto5") = Me.Txt_E_Produto5.TEXT
("Status_RC") = Me.Txt_E_Status.TEXT
("Observacoes") = Me.Txt_E_Obs.TEXT
.Update
End With

 
Postado : 22/04/2016 10:00 am
 HelioFaria
(@heliofaria)
Posts: 0
New Member
Topic starter
 

Tarcelles, muito obrigado novamente! Deu certo!

Ao término irei te colocar como co-autor! kkkk

Esse é um projeto pra criar um sistema multi-usuário de compras para um empresa que presto consultoria. Sou especialista em gestão empresarial, mas como a estrutura do cliente ainda é deficitária, precisei melhorar o processo de cotação e compras de produtos e isso envolve a parte tecnica de programação que ainda estou aprendendo.

Muito obrigado.

Quando finalizar o projeto, te mando pra vc criticar!

Abraço;

 
Postado : 22/04/2016 10:25 am
Forum Jump:
  Tópico Anterior
Próximo Tópico