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

    Botão no subform

    avatar
    AJM
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 100
    Registrado : 27/01/2012

    Botão no subform  Empty Botão no subform

    Mensagem  AJM 7/9/2016, 01:19


    Boa noite

    Tenho um subformulário onde é possivel excluir uma linha pelo Delete, como é padrão do Access.A situação é que preciso fazer uma verificação
    em outra tabela antes, pra ver se é possível excluir a linha ou não.
    Como pelo Delete acredito que não tenha como fazer essa verificação, pensei em colocar um botão com imagem de lixeira em cada linha, pra usar o vba pra excluir. Como faço pra adicionar essa lixeira e aparecer no subform ?



    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    Botão no subform  Empty Re: Botão no subform

    Mensagem  FabioPaes 7/9/2016, 12:06

    Tem como sim amigo, veja nesse post: https://www.maximoaccess.com/t27475-resolvidoexcluindo-registro-do-subformularios-folha-de-dados
    Aqui acontece a virificação atraves de MensagemBox, mas pode mudar pela sua verificação...

    Obs: No Evento do Formulario, VIsualizar Tecla deve estar como SIM


    Agora com o Botão, Siga essa dica (deve ser colocado no evento ao Clicar):

    If MsgBox("Deseja Excluir isso?", vbYesNo, "Atenção!!!") = vbYes Then
    'instrução aqui para opçao sim.
    Else
    'INstrução aqui para nao
    End if


    Mudando para sua verificação, pois nesse caso e através de MsagBox


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    avatar
    AJM
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 100
    Registrado : 27/01/2012

    Botão no subform  Empty Re: Botão no subform

    Mensagem  AJM 8/9/2016, 00:20

    Boa noite Fabio

    Quanto a msgbox tá ok, já tenho ela pronta, o que não estou conseguindo fazer é colocar um botão no subform (folha de dados)
    adicionei um botao no subform porém não aparece na grid.

    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    Botão no subform  Empty Re: Botão no subform

    Mensagem  FabioPaes 8/9/2016, 01:07

    É amigo, nao aparece mesmo... Ou utiliza como lhe indiquei, no link... ao pressionar tecla Delete Ou muda para Formulário Continuo que ira mostrar o botão.


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    avatar
    AJM
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 100
    Registrado : 27/01/2012

    Botão no subform  Empty Re: Botão no subform

    Mensagem  AJM 8/9/2016, 04:15

    Boa noite

    Será que realmente não aparece botao ou imagem na grid do subform qdo é folha de dados? já precisei disso mais de uma vez e não consegui, então uso um campo texto mesmo, mas não fica legal, estranho não ter essa opção, se alguém tiver a solução por favor posta ai

    Pra resolver coloquei no Delete, ou seja, no evento do subform, Ao excluir, cfe abaixo:

    Private Sub Form_Delete(Cancel As Integer)

    If DLookup("Cod_Pai", "Frequencia_Detalhe", "Cod_Pai=" & Me.Código & "") > 0 Then
    MsgBox "Antes de excluir é preciso apagar dados da lista de frequencia"
    Me.Undo
    Cancel = True



    End If

    End Sub

    Conteúdo patrocinado


    Botão no subform  Empty Re: Botão no subform

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 19/5/2024, 22:22