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

    [Resolvido]Cancelar Evento em subformulários

    julianovv
    julianovv
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 685
    Registrado : 14/12/2010

    [Resolvido]Cancelar Evento em subformulários Empty [Resolvido]Cancelar Evento em subformulários

    Mensagem  julianovv 23/3/2024, 18:44

    Boa tarde. Tenho um formulário com 1 sub-formulário sendo que neste tem mais 2 subformulários. Preciso impedir a abertura do principal e estou usando o evento CancelEvent. Não quer funcionar.

    If Form.RecordsetClone.RecordCount = 0 Then
    MsgBox "Os dados de consumo do mês ainda não foram cadastrados.", vbExclamation, "Dados ausentes!"
    DoCmd.CancelEvent
    End If
    End Sub

    Alguém tem uma luz?
    Segue uma captura do modo estrutura.

    Rolling Eyes

    [Resolvido]Cancelar Evento em subformulários 9[Resolvido]Cancelar Evento em subformulários Formul11


    .................................................................................
    Juliano

    USO O ACCESS 2007 NO XP SP3
    Pentil 4 Duo Core 2 - 3.2 ghz - HD 250 GB ATA II - Placa Asus P5QPL-AM - 2 GB de memória DDR2 667 mhz Kingston - NVidia GForce GT 370 - Monitor AOC 24 pol G2HE524G2 - Impressora Epson T33 - Scanner Bright.
    Smile
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3900
    Registrado : 04/04/2010

    [Resolvido]Cancelar Evento em subformulários Empty Re: [Resolvido]Cancelar Evento em subformulários

    Mensagem  Avelino Sampaio 23/3/2024, 21:28

    Olá!

    Analise o quadro que se encontra no final deste meu artigo e veja se consegue a solução.

    copie e cole o endereço abaixo no seu navegador:
    usandoaccess.com.br/tutoriais/referenciar-formularios-e-relatorios-propriedades.asp?id=1#inicio

    Aguardamos


    Última edição por Avelino Sampaio em 8/9/2024, 07:52, editado 1 vez(es)


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    julianovv
    julianovv
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 685
    Registrado : 14/12/2010

    [Resolvido]Cancelar Evento em subformulários Empty Res: Cancelar Evento em subformulários

    Mensagem  julianovv 28/3/2024, 12:14

    Bom dia. Obrigado pela dica.
    Fiz uma reformulação no formulário reduzindo o número de subformulários e no principal coloquei em 'ao abrir" o seguinte código:

    Private Sub Form_Open(Cancel As Integer)
    If Form.RecordsetClone.RecordCount = 0 Then
    MsgBox "Os dados de consumo do mês ainda não foram cadastrados.", vbExclamation, " Dados ausentes"
    Cancel = True
    Exit Sub
    End If
    End Sub

    Agora deu certo. O subformulário de cálculos se estiver em branco, não abre o formulário.
    Obrigado.

    Wink


    .................................................................................
    Juliano

    USO O ACCESS 2007 NO XP SP3
    Pentil 4 Duo Core 2 - 3.2 ghz - HD 250 GB ATA II - Placa Asus P5QPL-AM - 2 GB de memória DDR2 667 mhz Kingston - NVidia GForce GT 370 - Monitor AOC 24 pol G2HE524G2 - Impressora Epson T33 - Scanner Bright.
    Smile

    Conteúdo patrocinado


    [Resolvido]Cancelar Evento em subformulários Empty Re: [Resolvido]Cancelar Evento em subformulários

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 8/11/2024, 10:42