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

2 participantes

    Subformulario com edição e exclusão

    avatar
    gildosantoss
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 3
    Registrado : 17/10/2019

    Subformulario com edição e exclusão  Empty Subformulario com edição e exclusão

    Mensagem  gildosantoss 13/7/2021, 18:41

    Boa tarde

    Como eu faço para criar um sub-formulário e quando eu clico em um linha de registo, o mesmo abre um outro formulário para eu editar os dados ou excluir ?
    Helder Milhome
    Helder Milhome
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 125
    Registrado : 03/07/2011

    Subformulario com edição e exclusão  Empty Re: Subformulario com edição e exclusão

    Mensagem  Helder Milhome 14/7/2021, 19:59

    ola boa tarde

    fiz assim e funciona


    Private Sub CódProduto_Compras_Click()

    DoCmd.Save acForm, "Frm Produtos" ´nome do formulario

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "Frm Vendas Unico" ´o formulario que vai abrir com as informações

    stLinkCriteria = "[CódProduto_Compras]=" & Me![CódProduto_Compras]
    DoCmd.OpenForm stDocName, , , stLinkCriteria


    Exit_CódProduto_Compras_Click:
    Exit Sub

    Err_Comando67_Click:
    MsgBox Err.Description
    Resume Exit_CódProduto_Compras_Click


    End Sub

      Data/hora atual: 18/9/2021, 18:14