MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


3 participantes

    Inserir e editar registro no form e subform usando VBA

    avatar
    danirosa
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Angola
    Mensagens : 23
    Registrado : 29/10/2023

    Inserir e editar registro no form e subform usando VBA Empty Inserir e editar registro no form e subform usando VBA

    Mensagem  danirosa 22/11/2023, 14:23

    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

    Inserir e editar registro no form e subform usando VBA Formul10
    Inserir e editar registro no form e subform usando VBA Tabela12
    Inserir e editar registro no form e subform usando VBA Tabela11
    avatar
    CalixtoR_
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 20/09/2023

    Inserir e editar registro no form e subform usando VBA Empty Re: Inserir e editar registro no form e subform usando VBA

    Mensagem  CalixtoR_ 22/11/2023, 22:53

    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.
    avatar
    danirosa
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Angola
    Mensagens : 23
    Registrado : 29/10/2023

    Inserir e editar registro no form e subform usando VBA Empty Re: Inserir e editar registro no form e subform usando VBA

    Mensagem  danirosa 23/11/2023, 20:40

    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?
    avatar
    CalixtoR_
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 20/09/2023

    Inserir e editar registro no form e subform usando VBA Empty Re: Inserir e editar registro no form e subform usando VBA

    Mensagem  CalixtoR_ 24/11/2023, 12:16

    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.

    danirosa gosta desta mensagem

    avatar
    danirosa
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Angola
    Mensagens : 23
    Registrado : 29/10/2023

    Inserir e editar registro no form e subform usando VBA Empty Re: Inserir e editar registro no form e subform usando VBA

    Mensagem  danirosa 24/11/2023, 12:31

    Muito obrigado pela tenativa em ajudar e pela desponibilidade.

    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3947
    Registrado : 21/04/2011

    Inserir e editar registro no form e subform usando VBA Empty Re: Inserir e editar registro no form e subform usando VBA

    Mensagem  Marcelo David 24/11/2023, 16:18

    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?


    .................................................................................
    Inserir e editar registro no form e subform usando VBA Favicon-16x16   Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]
    Inserir e editar registro no form e subform usando VBA Favicon-16x16   Access e VBA - Formulário Desacoplado - [Passo a passo]
    Inserir e editar registro no form e subform usando VBA Yt_16x10 Conheça meu canal no Youtube e se inscreva.
    Inserir e editar registro no form e subform usando VBA Marcel11

    danirosa gosta desta mensagem

    avatar
    danirosa
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Angola
    Mensagens : 23
    Registrado : 29/10/2023

    Inserir e editar registro no form e subform usando VBA Empty Re: Inserir e editar registro no form e subform usando VBA

    Mensagem  danirosa 24/11/2023, 21:08

    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
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3947
    Registrado : 21/04/2011

    Inserir e editar registro no form e subform usando VBA Empty Re: Inserir e editar registro no form e subform usando VBA

    Mensagem  Marcelo David 28/11/2023, 13:57

    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?


    .................................................................................
    Inserir e editar registro no form e subform usando VBA Favicon-16x16   Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]
    Inserir e editar registro no form e subform usando VBA Favicon-16x16   Access e VBA - Formulário Desacoplado - [Passo a passo]
    Inserir e editar registro no form e subform usando VBA Yt_16x10 Conheça meu canal no Youtube e se inscreva.
    Inserir e editar registro no form e subform usando VBA Marcel11
    avatar
    danirosa
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Angola
    Mensagens : 23
    Registrado : 29/10/2023

    Inserir e editar registro no form e subform usando VBA Empty Re: Inserir e editar registro no form e subform usando VBA

    Mensagem  danirosa 28/11/2023, 20:40

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

    mc
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3947
    Registrado : 21/04/2011

    Inserir e editar registro no form e subform usando VBA Empty Re: Inserir e editar registro no form e subform usando VBA

    Mensagem  Marcelo David 29/11/2023, 13:06

    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.


    .................................................................................
    Inserir e editar registro no form e subform usando VBA Favicon-16x16   Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]
    Inserir e editar registro no form e subform usando VBA Favicon-16x16   Access e VBA - Formulário Desacoplado - [Passo a passo]
    Inserir e editar registro no form e subform usando VBA Yt_16x10 Conheça meu canal no Youtube e se inscreva.
    Inserir e editar registro no form e subform usando VBA Marcel11
    avatar
    danirosa
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Angola
    Mensagens : 23
    Registrado : 29/10/2023

    Inserir e editar registro no form e subform usando VBA Empty Re: Inserir e editar registro no form e subform usando VBA

    Mensagem  danirosa 2/12/2023, 08:42

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


    Conteúdo patrocinado


    Inserir e editar registro no form e subform usando VBA Empty Re: Inserir e editar registro no form e subform usando VBA

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 21/11/2024, 13:28