MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Limitar registro no subformulario

    tauron
    tauron
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1242
    Registrado : 07/12/2011

    [Resolvido]Limitar registro no subformulario Empty [Resolvido]Limitar registro no subformulario

    Mensagem  tauron em 19/5/2020, 17:26

    Então, possuo um formulario para edição de registros (frmEditaDiarias) que possui um sub (subeddiarias) que possui um sub (subfrmhist). O que pretendo é que ao preencher os campos dtsaida e dtretorno do formulario mestre, ele limite a quantidade de lancamentos no subformulario "subfrmhist".

    A parte onde se faz o calculo de dias, no subeddiarias, está funcionando perfeito (campo "dbldiff"). O valor obtido neste campo é o número máximo de lançamentos no subfrmHist.

    Em outra situação, formulário mestre e subformulário eu consegui fazer, mas agora é formulário mestre com subformulário com subformulário
    Anexos
    [Resolvido]Limitar registro no subformulario AttachmentDatabase1.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (47 Kb) Baixado 8 vez(es)
    scandinavo
    scandinavo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 821
    Registrado : 11/11/2009

    [Resolvido]Limitar registro no subformulario Empty Re: [Resolvido]Limitar registro no subformulario

    Mensagem  scandinavo em 20/5/2020, 15:11

    Troquei seu código por este no mesmo evento antes de inserir mas eu acho que teria que ser em outo local. Testa ai

    If Me.RecordsetClone.RecordCount = Me.txtDias Then
    MsgBox "Ja deu a quantia de dias"
    Else
    MsgBox "Ainda vai passear"
    End If

    E também possuo este código não sei se vai te ajudar não testei no seu exemplo

    'Conta registro no sub formulario com o comando no form principal
    'scandinavo 08/09/14 forum maximus access
    'conta registro no subformulario
    'se a contagem for zero executa a consulta
    If Forms!Diarios_obra![subfrmDiarios_Equipe].Form.RecordsetClone.RecordCount = 0 Then
    'Bloqueia aviso do access
    DoCmd.SetWarnings False
    'executa a consulta
    DoCmd.OpenQuery "addFuncionario"
    'Libera aviso do access
    DoCmd.SetWarnings True
    ' vai atualizar somente o sub formulario
    Me.Form.subfrmDiarios_Equipe.Requery
    Else
    MsgBox "Lista de funcionario já esta preenchida......", vbCritical, "Atenção"

    End If


    tauron
    tauron
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1242
    Registrado : 07/12/2011

    [Resolvido]Limitar registro no subformulario Empty Re: [Resolvido]Limitar registro no subformulario

    Mensagem  tauron em 25/5/2020, 22:24

    vou testar aqui.
    tauron
    tauron
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1242
    Registrado : 07/12/2011

    [Resolvido]Limitar registro no subformulario Empty Re: [Resolvido]Limitar registro no subformulario

    Mensagem  tauron em 30/5/2020, 12:30

    Decidi fazer com nos outro projetos mesmo.
    Muito obrigado
    scandinavo
    scandinavo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 821
    Registrado : 11/11/2009

    [Resolvido]Limitar registro no subformulario Empty Re: [Resolvido]Limitar registro no subformulario

    Mensagem  scandinavo em 30/5/2020, 14:33

    Valeu pelo retorno

      Data/hora atual: 30/11/2020, 08:26