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

    Evento Dirty em SubForm Access não funciona.

    avatar
    Jose Bizaio
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2
    Registrado : 26/04/2018

    Evento Dirty em SubForm Access não funciona. Empty Evento Dirty em SubForm Access não funciona.

    Mensagem  Jose Bizaio Dom 12 Fev 2023, 1:06 pm

    Prezados meu nome é José Roberto, segue meu problema:

    Não estou conseguindo cancelar edição do registro no subForm ja tentei de inúmeras formas inclusive varias delas encontrei aqui no Maximo Access, e tbm não funcionou.

    obsv. no form principal está funcionando normalmente, meu problema é no subForm.

    segue linhas de código usadas:


    Private Sub Form_Unload(Cancel As Integer)  '"não deu certo"
           If Me.Dirty Then
           
               If MsgBox("Deseja sair sem salvar ? ", vbYesNo, "ALERTA") = vbYes Then
                   Me.Undo
                   DoCmd.Close
               Else
                   Form_frmOrcamento.dtEmissao.SetFocus
               End If
         
           Else
               DoCmd.Close
           End If
       
    End Sub
    ######################

    Public StrOld as String  '"assim tbm não deu certo"
    Public StrNew as String

    No evento do botão:

    Dim ctl As Control

    'Dicas para os controles
    For Each ctl In Me.frmOrcamentoSub.Controls
    ' Percorre todos os tipos de controles
    Select Case ctl.ControlType
       Case acTextBox ', acComboBox, acListBox, acOptionGroup, acCheckBox
           StrNew = StrNew & ctl.OldValue & ","
       End Select
    Next ctl

    If StrComp(StrOld, StrNew) = -1 Then


    StrOld = Null
    StrNew = Null



    No subform no evento Antes de atualizar:


    Private Sub Form_BeforeUpdate(Cancel As Integer)
    Dim ctl As Control

    'Dicas para os controles
    For Each ctl In Me.Controls
    ' Percorre todos os tipos de controles
    Select Case ctl.ControlType
       Case acTextBox ', acComboBox, acListBox, acOptionGroup, acCheckBox
           StrOld = StrOld & ctl.OldValue & ","
       End Select
    Next ctl

    End Sub

    abraços .... desde já agradeço
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3364
    Registrado : 13/12/2016

    Evento Dirty em SubForm Access não funciona. Empty Re: Evento Dirty em SubForm Access não funciona.

    Mensagem  Alexandre Fim Dom 12 Fev 2023, 7:57 pm

    Olá Jose Roberto,

    Seja bem-vindo ao fórum.
    Para ficar mais rápido e facil, compartilhe aqui uma cópia do seu banco de dados somente objetos (formulários/tabelas/modulos e etc) pertinentes ao problema, para analise e solução.

    Att,

    Alexandre Fim


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    Evento Dirty em SubForm Access não funciona. Setinf11
    Sistemas e Tecnologia Ltda
    avatar
    Jose Bizaio
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2
    Registrado : 26/04/2018

    Evento Dirty em SubForm Access não funciona. Empty BD Sistema

    Mensagem  Jose Bizaio Dom 19 Fev 2023, 8:42 pm

    Prezado Alexandre agradeço à atenção e desculpas pela demora.

    segue o meu db

    só reforçando meu problema é no subform no evento Dirty (apaguei todas as linhas de código referente ao evento Dirty, por isso fique a vontade para testes)

    no form principal o evento Dirty roda belezinha


    abrçs.
    José Roberto
    Anexos
    Evento Dirty em SubForm Access não funciona. AttachmentbdSystem.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (90 Kb) Baixado 6 vez(es)

    Conteúdo patrocinado


    Evento Dirty em SubForm Access não funciona. Empty Re: Evento Dirty em SubForm Access não funciona.

    Mensagem  Conteúdo patrocinado


      Data/hora atual: Qui 18 Jul 2024, 8:50 pm