Ajuda com o botão Editar

Boa dia a todos, gostaria de um auxilio dos amigos para fazer este botão Editar do meu DB teste, são formulários desacoplas e gostaria de usar assim mesmo se possível  vou colar o DB para os amigos analisar.


agradeço a todos do fórum que tem me ajudado muito obrigado

DBTeste

Boa noite pessoa, passei um bom tempo tentando fazer este botão editar já testei vários códigos  mas sem sucesso, só quero carregar os dados da minha tbl_principal e da SubSQL em uma formulário principal e o sub formulário, o form principal não esta acoplado mas o sub formulário esta acoplado, foi a forma que achei para cadastrar os dados do sub formulário continuo usando a tabela SubAcoplado para armazenar os dados temporariamente, assim que faço o cadastro deleto os dados desta tabela, mas agora para fazer o update esta difícil.

este foi o código que usei para o botão de salvar os dados

Código:



Private Sub btnSalvar_Click()

    Dim rs As Recordset                            'Cria um recordset
    Set rs = SubFrmPrincipal.Form.Recordset        'Captura a tabela do sub-formulário para  recordset
    
    'Cadastra os dados do cliente na tabela tbl_proncipal
    CurrentDb.Execute "INSERT INTO[tbl_proncipal]" _
    & "(Cod, Nome, fone) VALUES" _
    & "('" & Cod & "', '" & Nome & "', '" & fone & "');"
    
    
    
    rs.MoveFirst                                   'Move para a primeira linha do recordset
    Do While Not rs.EOF     ' inicio do laço
    
  
    'Cadastra os dados do itens na na tabela SubSQL
    CurrentDb.Execute "INSERT INTO[SubSQL]" _
    & "(Cod, codp, campo1, campo2) VALUES" _
    & "('" & rs.Fields("Cod") & "', '" & rs.Fields("codp") & "', '" & rs.Fields("campo1") & "', '" & rs.Fields("campo2") & "');"
    
    rs.MoveNext                                 'Move para a próxima linha da recordset
    
    Loop  'fim do for
    
    rs.Close                                        'Fecha a recordset
    Set rs = Nothing
    
    'Limpa a tabelaSubAcoplado
    CurrentDb.Execute "DELETE * FROM SubAcoplado"
    
    DoCmd.Close  ' fecha o fomulário
    
    Form_PsquisafrmPrincipal.Recalc
    
    
    
End Sub



Bom dia,
Não entendi o que pretende
Indica que precisa fazer actualização (UPDATE) mas o código acrescenta registos (INSERT)

boa tarde Alexandre Neves, então cadastrar eu já consegui mas como mencionei anteriormente. Mas não consigo carregar os dados cadastrado via insert no formulário principal que esta desacoplado e no sub formulário que esta acoplado para fazer o update, o código update eu ja sei fazer o q eu não estou conseguindo e carregar os dados nos formulários.

o código do cadastro eu coloquei só pra ver como eu tinha feito.

Boas..

Com a Licença do Alexandre Neves..

Se o subForm esta desacoplado do formulário principal, não seria necessario antes de atualizar vincular
Tipo:

Me!Subform.LinkChildFields = "CampoFilho"
Me!Subform.LinkMasterFields = "CampoPai "
ME.Subform.Requery

Abraços

Pelo que eu entendi vc tem que colocar um "Me.Refresh" após adicionar os dados na tabela

boa boite, desculpe a demora para responder, semana cheia, o meu db esta ai para baixar gostaria que os amigos desse uma analisada nele.

o que eu queria fazer e cadastrar e atualizar dados de um formulário principal e um sub formulário desacoplado, mas eu so consegui cadastrar da forma que mencionei nos posts anteriores, se os amigos tiver algum caminho para eu fazer se não adaptar este db meu mara fazer o update.

vou testar estes códigos e voltar aqui para falar do resultado

Bom dia,
Com tanto enredo não percebo o que pretende cadastrar? actualizar?
Porque não vincula o form?
Dê todos os detalhes

Bom dia Alexandre Neves, porque gostaria de dar a opção de cancelar o cadastro se assim o usuário desejar, só que acoplado quando o usuário começa a cadastra já salva o registro, e o mesmo se cancelar o o registro fica no banco de dados.

E mesmo sem saber muito de comandos SQL gostaria de aprender, a dificuldade e com os formulários continuo

muito obrigado

Boa tarde,
Dê todos os detalhes.
o que abre? o que preenche? o que quer que aconteça e não acontece?

Bom Dia André, td bem?

Gostaríamos de saber se as ajudas prestadas por nós te ajudou a resolver a sua dúvida!!
Caso tenha resolvido, por favor encerre este tópico.
Caso ainda não resolveu, se manifeste para darmos continuidade.

Isto é muito importante para todos os membros do Fórum e também para futura pesquisas de procura de dúvidas semelhantes.

Aguardamos sua manifestação

Abraços