Inserir e editar registro no form e subform usando VBA

Boa tarde prezados mestres
venho mais uma vez solicitar o vosso auxilio para inserir dados ao premir o botao salvar e editar dados do formulario principal e do subformulario usando o vba ao premir o botao editar, em que o codigo do registro a ser editado é igual ao registro selecionado na ListBox, e o usuario não pode criar mais do que 3 registros abertos, o numero maximo de registros abertos é 3.
Deixo abaixo a imagem do formulario e a estrutura da Tabela Movimento e Detalhe

por favor me ajudem
agradeço

Olá, se for uma ListBox posso tentar ajudar, so você modificar as escritas, como textbox etc...


Private Sub BTSalvar_Click()

"Verifica se todos os campos estão preenchido, caso contrario retorna o texto da MsgBox logo abaixo...

If Me.TextBoxDataEmissão = "" Or Me.TextBoxDataCarregamento = "" Then

MsgBox "Preencha todos os Campos !"
Exit Sub
End If


"Coluna logo abaixo da tabela, aonde vai ser inserido os dados, como pode ver e coluna C linha 6

Range("C6").EntireRow.Insert


"Lugar aonde os dados serão salvos, seguindo a textbox onde foi inserido o valor...

Range("C6").Value = Me.TextBoxDataEmissão.Value
Range("D6").Value = Me.TextBoxDataCarregamento.Value


"Limpa os valores da textbox após terminar o cadastro.
Me.TextBoxDataEmissão.Value = ""

"Foca novamente na caixa de texto que desejar...
Me.TextBoxDataEmissão.SetFocus

"Local da tabela, acredito não ser necessário, faça o teste casso queira retirar...
Me.Lista.RowSource = "DadosL"

"Mensagem que ira aparecer logo após salvar...
MsgBox "Cadastro Realizado !"


End Sub





Seguindo agora para o comando do botão alterar.



____________________________________
Private Sub BTAlterarCadastro_Click()



Dim resposta As VbMsgBoxResult
Dim valor As Long
Dim fila As Object
Dim linha As Long


"Ira procura o id que queira alterar, caso contrario aparecera a msgbox
If Me.TextBoxNFe.Value = "" Then
MsgBox "Selecione um Cadastro para Alterar"
Exit Sub
End If

"Valor aonde ira procurar o ID para achar a linha que esta condiciona, e logo em seguida alterar...
valor = Me.TextBoxNFe.Value
resposta = MsgBox("Deseja alterar o cadastro numero " & valor & "?", vbYesNo)


If resposta = vbNo Then
Exit Sub

Else

"Esse comando ira deselecionar sua listbox logo após clicar, para mim foi necessário para dar certo.
For i = 0 To Lista.ListCount - 1
If Lista.Selected(i) Then
Lista.Selected(i) = False
End If
Next i

"Vai fazer o loop e procurar o valor procurado do ID, no caso a coluna fica no .Range("A:A"), ou na coluna que estiver seu ID
Set fila = Sheets("TabelaDados").Range("F:F").Find(valor, lookat:=xlWhole)
linha = fila.Row

"Comando que ira alterar os dados..
Range("C" & linha).Value = CDate(Format(Me.TextBoxDataEmissão, "dd/mm/yyyy"))
"Continue suas textboxs seguindo essa ordem..

"Limpa os campos após alterar...
Me.TextBoxDataEmissão.Value = ""

"Esse comando não me lembro muito bem, a parte da Lista.ListIndex = 1, acho que e para evitar erro caso tenha a textbox com id escrita ainda ou sem nada...
Lista.ListIndex = -1
MsgBox "Cadastro Alterado"
End If


End Sub





Espero que de certo e entenda o codigo, qualquer duvida chama.

Boa noite Calixto
muito obrigado pela sua ajuda, na verdade o que eu quero é o seguinte, vou separar as questões por parte:
1º - Tenho um formulario Principal e um SubFormulario e quero inserir dados usando um codigo VBA ou usando Insert
2º - Quero saber como actualizar os dados do formulario principal e do subformulario usando VBA ou Update
3º - Quero que o registro a ser actualizado seja igual ao exibido e selecionado na ListBox.

Como faço isso?

Peço desculpas, não olhei direito a imagem, pensei que fosse excel, não estou muito familiarizado com o access, falar a verdade nunca entrei nele.

Muito obrigado pela tenativa em ajudar e pela desponibilidade.

Olá!

1º - Tenho um formulario Principal e um SubFormulario e quero inserir dados usando um codigo VBA ou usando Insert

danirosa escreveu:2º - Quero saber como actualizar os dados do formulario principal e do subformulario usando VBA ou Update

Basta você usar algo como currentdb.execute "UPDATE NomeTabela SET Campo1=Valor, Campo2=Valor, Campo3=Valor WHERE id=id"

danirosa escreveu:3º - Quero que o registro a ser actualizado seja igual ao exibido e selecionado na ListBox.

Qual registro, do form principal ou sub?

Olá Marcelo
muito obrigado pela sua ajuda


1º - Tenho um formulario Principal e um SubFormulario e quero inserir dados usando um codigo VBA ou usando Insert
Sim são duas tabelas relecionadas de um para muitos e tenho o formulario principal e Subuformulario.
pode dar um exemplo para fazer um INSERT?

danirosa escreveu:
2º - Quero saber como actualizar os dados do formulario principal e do subformulario usando VBA ou Update

Basta você usar algo como currentdb.execute "UPDATE NomeTabela SET Campo1=Valor, Campo2=Valor, Campo3=Valor WHERE id=id"
danirosa escreveu:

Para a tabela Pae e filho é a mesma coisa?

3º - Quero que o registro a ser actualizado seja igual ao exibido e selecionado na ListBox.
No formulario coloquei um Listbox que faz a lista de movimentos abertos e quero que a edição seja feita somente em movimentos com o estado aberto.


pode dar uma olhada na estrutura do formulario que postei e na estrutura das duas tabelas

Basicamente funciona assim:
Primeiramente você realiza o insert into na tabela do formulário principal. E como é inserção e não update, deverá usar realmente o insrt into.
Após isso, inserir os outros dados na tabela do subformulário, usando o campo de relacionamento correto, que deverá ser o ultimo da tabela principal.

Mas aí vem a dúvida:
Porque usar insert into para ttrabalhar com formulário e subformulário?
Pergunto isso porque formulário pai e filhos foram projetados para trabalhar vinculados. Ou seja, os inserts e updates serem feitos via formulário mesmo, padrão do Access.

Há alguma que inviabilize o uso dos recursos padrões?

Muito obrigado Marcelo
eu não quero usar formulario vinculado, eu quero um formulario desvinculado com botões para fazer o CRUD.

mc

Bom dia.
o formulário pai é usado apenas para atualização de dados ou também para inserção?
E quais são os campo que devem ser atualizados nos formulários pai e filho? Todos?

Um detalhe é que você está usando um formulário folha de dados (subformulário) e
esse tipo de formulário não pode ser desvinculado de tabela ou consulta, ele depende
delas para funcionar.

Porque para realizar atualização de dados desvinculados, os formulários usados para
inserir as informações não podem ser vinculados.

Ola Marcelo
muito obrigado e desculpa a demora em responder.
Os dados a actualizar estão nos dois formularios.