[Resolvido]Limitar registroa sub-formulario folha de dados

Bom dia a todos,

Estou precisando limitar o número de registro de um sub-formulário folha de dados, de acordo com a quantidade informada em um campo no formulário principal.

Desde de já agradeço a todos.

Você tem o banco de dados? Se não, o código pode ser esse:

Código:

If DCount(Me.Texto2, "Tabela1") > 0 Then -----essa é a tabela do subform
MsgBox "Limite esgotado"
Else
End If

Verifica o número que você limitou no formulário
At.te

Boa noite crysostomo


Creio que não consegui explicar minha necessidade de forma correta, mas vamos lá!

A base do formulário é uma consulta, ou seja, a ideia não é limitar o lançamento de novos registros e sim a quantidade de registro que esse sub-formulário ira demonstrar com base nessa consulta, onde para tanto, deverá obedecer a quantidade de registros que o usuário deseja visualizar informada em um campo no formulário principal.

Bom dia e espero que tenha tipo uma excelente Páscoa!

Seria algo do tipo:

*No VBA do formulário pai.

Me.NomeObjetoSubFormulario.Form.RecordSource = "SELECT  TOP " & Me.CampoQuantidade & ", * FROM NomeTabela;"

Em que que:
NomeObjetoSubFormulario: Nome do subformulario, como aparece no formulário principal
CampoQuantidade: Nome do campo que irá informar a quantidade de registros a serem exibidas.

Daí é só aplicar isso em algum evento.

Alguma novidade por aqui?

Boa Noite Marcelo David

testei esse código, mas esta dando erro 3114,(a instrução SELECT inclui uma palavra reservada ou um nome de argumento que está incorreto ou faltando, ou a pontuação está incorreta)

Me.NomeObjetoSubFormulario.Form.RecordSource = "SELECT  TOP " & Me.CampoQuantidade & ", * FROM NomeTabela;"

Preciso exatamente dessa funcionalidade citada aqui na mensagem do cmedeiros

Limitar o numero de registros em um subformulário onde o usuário informara a quantidade de registro, tipo um combo, 10,20, ou 30 registro. no formulário principal.

Desde já agradeço pela ajuda de todos.

Boa tarde Xismael!

Tentei criar algo baseado no que você falou na mensagem nº 6. Também me deparei com o mesmo erro que vc mencionou! Como você não postou o banco, ficou um pouco mais difícil. Estou anexando aqui o exemplo que criei baseado nas tuas informações. Ao abrir o banco, abra o objeto 'Consulta1' Ela tá retornando o resultado esperado por você, porém a quantidade de registros a serem exibidos está designado dentro da instrução sql que coloquei na consulta. É preciso adptar para realidade do teu banco e fazer com que a consulta ao invés de receber o número de registros ao qual ela vai se limitar a retornar pela instrução, ela recebe pelo formulário em questão. Quem sabe com a ajuda dos demais colegas consigamos fazer isso.

boa tarde,

adapte esse código a sua necessidade, acredito que funcione.

Código:


Private Sub txtQuantidade_Limitada_AoAtualizar()
    Dim quantidade As Integer
    Dim filtro As String
   
    ' Obtenha o valor da quantidade informada no campo do formulário principal
    quantidade = Me.txtQuantidade_Limitada.Value
   
    ' Crie o filtro para limitar o número de registros no subformulário
    filtro = "ID <= " & quantidade
   
    ' Aplique o filtro ao subformulário
    Me.Subformulario.Form.Filter = filtro
    Me.Subformulario.Form.FilterOn = True
End Sub



Bom dia colegas. Coko anda o tópico? Dúvida resolvida?

Resolvido!

Estava sem acesso ao forum devido a um problema no not, e respectivamente ao e-mail de cadastro.

Sucesso.