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 qtde de registros em formulários contínuos

    jojunior
    jojunior
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 48
    Registrado : 08/09/2010

    [Resolvido]Limitar qtde de registros em formulários contínuos Empty [Resolvido]Limitar qtde de registros em formulários contínuos

    Mensagem  jojunior em 13/9/2010, 13:41

    Galera tem como limitar a quantidade de registros em formulários contínuos?
    Se possível gostaria de que quando atingisse a qtde de 10 itens (ou linhas)não fosse possível adicionar mais registros obrigando o usuário a abrir outra solicitação.
    access 2k.
    criquio
    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11228
    Registrado : 30/12/2009

    [Resolvido]Limitar qtde de registros em formulários contínuos Empty Re: [Resolvido]Limitar qtde de registros em formulários contínuos

    Mensagem  criquio em 13/9/2010, 13:49

    Tem algum código específico para cada solicitação? Por exemplo um número único que identifique cada solicitação.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10605
    Registrado : 04/11/2009

    [Resolvido]Limitar qtde de registros em formulários contínuos Empty Re: [Resolvido]Limitar qtde de registros em formulários contínuos

    Mensagem  JPaulo em 13/9/2010, 14:36

    Olá Junior;

    Cole isto no VBA do seu Sub formulário;


    Private Sub Form_Current()
    'By JPaulo ® Maximo Access
    Dim R As Object
    Set R = Me.Recordset
    Cancel = (R.RecordCount >= 10)
    If Cancel Then
    MsgBox "Não é possível gravar: quantidade de registros atingiu o limite.", vbCritical, "Aviso"
    Me.AllowAdditions = False
    Else
    Me.AllowAdditions = True
    Exit Sub
    End If
    End Sub



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Limitar qtde de registros em formulários contínuos Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Limitar qtde de registros em formulários contínuos Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Limitar qtde de registros em formulários contínuos Folder_announce_new Instruções SQL como utilizar...
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10605
    Registrado : 04/11/2009

    [Resolvido]Limitar qtde de registros em formulários contínuos Empty Re: [Resolvido]Limitar qtde de registros em formulários contínuos

    Mensagem  JPaulo em 13/9/2010, 14:47

    Se preferir uma função global, cole esta num módulo novo e salve;

    Public Function LimitarRegistros(frm As Access.Form, Optional strLimite As Integer = 1)
    'By JPaulo ® Maximo Access
    With frm.RecordsetClone
    If .RecordCount <> 0 Then .MoveLast
    frm.AllowAdditions = (.RecordCount < strLimite)
    End With
    End Function



    No evento do atual do seu Sub Formulario cole isto:


    Private Sub Form_Current()
    'By JPaulo ® Maximo Access
    LimitarRegistros Me, 10
    End Sub



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Limitar qtde de registros em formulários contínuos Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Limitar qtde de registros em formulários contínuos Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Limitar qtde de registros em formulários contínuos Folder_announce_new Instruções SQL como utilizar...
    jojunior
    jojunior
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 48
    Registrado : 08/09/2010

    [Resolvido]Limitar qtde de registros em formulários contínuos Empty Limitar qtde de registros em formulários contínuos

    Mensagem  jojunior em 13/9/2010, 17:06

    JPaulo, fiz de acordo com o 1º exemplo e ele realmente limita quando chega no 10º registro (até ai blz), porém, quando vou fazer outra solicitação o formulário contínuo simplesmente some (pelo que entendi por conta da limitação) pois se voltar p/ o registro anterior ele mostra novamente.
    Criquio eu utilizo o codigo do produto p/ relacionar o form de solicitação com o formcontínuo (que nada mais é doque a consulta aos produtos na tabela).
    criquio
    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11228
    Registrado : 30/12/2009

    [Resolvido]Limitar qtde de registros em formulários contínuos Empty Re: [Resolvido]Limitar qtde de registros em formulários contínuos

    Mensagem  criquio em 13/9/2010, 17:36

    Tente acrescentar isso no código:

    Private Sub Form_Current()
    'By JPaulo ® Maximo Access
    Dim R As Object
    Set R = Me.Recordset
    Cancel = (R.RecordCount >= 10)
    If Cancel Then
    MsgBox "Não é possível gravar: quantidade de registros atingiu o limite.", vbCritical, "Aviso"
    Me.AllowAdditions = False
    Me.Requery
    Else
    Me.AllowAdditions = True
    Exit Sub
    End If
    End Sub


    ou isso

    Private Sub Form_Current()
    'By JPaulo ® Maximo Access
    Dim R As Object
    Set R = Me.Recordset
    Cancel = (R.RecordCount >= 10)
    If Cancel Then
    MsgBox "Não é possível gravar: quantidade de registros atingiu o limite.", vbCritical, "Aviso"
    Me.AllowAdditions = False
    DoCmd.Close
    DoCdm.OpenForm "NomeDoFormulário"

    Else
    Me.AllowAdditions = True
    Exit Sub
    End If
    End Sub


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    jojunior
    jojunior
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 48
    Registrado : 08/09/2010

    [Resolvido]Limitar qtde de registros em formulários contínuos Empty Limitar qtde de registros em formulários contínuos

    Mensagem  jojunior em 13/9/2010, 19:04

    Como faço p/ enviar uma cópia do bd p/ vocês analisarem?
    Quem sabe vcs entenderão o quê da questão.
    criquio
    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11228
    Registrado : 30/12/2009

    [Resolvido]Limitar qtde de registros em formulários contínuos Empty Re: [Resolvido]Limitar qtde de registros em formulários contínuos

    Mensagem  criquio em 13/9/2010, 19:12

    Podes postar no www.esnips.com ou www.speedyshare.com


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    jojunior
    jojunior
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 48
    Registrado : 08/09/2010

    [Resolvido]Limitar qtde de registros em formulários contínuos Empty Re: [Resolvido]Limitar qtde de registros em formulários contínuos

    Mensagem  jojunior em 13/9/2010, 19:17

    Segue o link http://www.speedyshare.com/files/24236872/Almoxarifado_Forms_Fe_-_C_pia.rar
    jojunior
    jojunior
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 48
    Registrado : 08/09/2010

    [Resolvido]Limitar qtde de registros em formulários contínuos Empty Re: [Resolvido]Limitar qtde de registros em formulários contínuos

    Mensagem  jojunior em 14/9/2010, 18:22

    Então galera, o nome do form é frmSolNotaFiscal.
    Se alguém tiver como dar uma luz de como resolver....

    Desde já agradeço.
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10605
    Registrado : 04/11/2009

    [Resolvido]Limitar qtde de registros em formulários contínuos Empty Re: [Resolvido]Limitar qtde de registros em formulários contínuos

    Mensagem  JPaulo em 14/9/2010, 20:23

    teste;

    http://www.speedyshare.com/files/24253521/Almoxarifado_Forms_Fe_-_C_pia_II.rar


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Limitar qtde de registros em formulários contínuos Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Limitar qtde de registros em formulários contínuos Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Limitar qtde de registros em formulários contínuos Folder_announce_new Instruções SQL como utilizar...
    jojunior
    jojunior
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 48
    Registrado : 08/09/2010

    [Resolvido]Limitar qtde de registros em formulários contínuos Empty Re: [Resolvido]Limitar qtde de registros em formulários contínuos

    Mensagem  jojunior em 16/9/2010, 00:41

    Então JPaulo, boa noite, a questão é que o subformulário limita quando chega aos 10 registros (funciona blz), porém, quando tento criar uma outra solicitação simplesmente o subformulário some???
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10605
    Registrado : 04/11/2009

    [Resolvido]Limitar qtde de registros em formulários contínuos Empty Re: [Resolvido]Limitar qtde de registros em formulários contínuos

    Mensagem  JPaulo em 16/9/2010, 07:42

    Some ? como assim ?

    Numa nova ele fica apenas com uma linha nova para se dar inicio a uma nova solicitaçao.

    Não faz algum sentido você fazer uma nova solicitação e ficar com os dados de uma outra solicitação, ae para que serviria o subformulario ?



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Limitar qtde de registros em formulários contínuos Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Limitar qtde de registros em formulários contínuos Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Limitar qtde de registros em formulários contínuos Folder_announce_new Instruções SQL como utilizar...
    avatar
    geovanildo
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11
    Registrado : 05/03/2020

    [Resolvido]Limitar qtde de registros em formulários contínuos Empty Re: [Resolvido]Limitar qtde de registros em formulários contínuos

    Mensagem  geovanildo em 4/11/2020, 02:07

    Private Sub Form_Current() 'By JPaulo ® Maximo Access Dim R As Object Set R = Me.Recordset Cancel = (R.RecordCount >= 10) If Cancel Then MsgBox "Não é possível gravar: quantidade de registros atingiu o limite.", vbCritical, "Aviso" Me.AllowAdditions = False Else Me.AllowAdditions = True Exit Sub End If End Sub escreveu:

    pra nao abrir outro tópico e desenterrar esse...

    eu queria saber se com este código, ali onde coloco o >=10, posso colocar o campo que está no formulário principal para que ele limita a quantidade q eu digitar no campo... e qual código eu poderia usar para referenciar este campo no subformulario

    por exemplo...

    tem um formulario para abrir uma turma nova com um subformulario para adicionar os alunos nesta turma, quero limitar o número de alunos nesta turma, pra isso tenho um campo chamado "número de vagas", quero q limite o número de vagas que eu digitar neste campo, não colocar a limitação no código


      Data/hora atual: 25/11/2020, 14:13