[Resolvido]limitar registro para um subformulario

Ola pessoal!

Estou com a seguinte situação

tenho um form, onde existe outros dois subform vinculados
onde quando clico em um registro do primeiro subform o segundo me mostra o pedido que esta dentro dele
porem preciso fazer com que o segundo subform registre apenas uma quantidade especifica de registros que é determinda
por uma tabela a parte, onde gravei os limites. exemplo

convenio x; limite 5
convenio y; limite 6

Será que alguem pode me ajudar com isso

Valeu!

Olá, seja vindo ao forum! Os formulários são alimentados diretamente da tabela ou por consultas? Você quer alimentar os formulários com os primeiros registros da tabela de acordo um critério?

Os subform sao alimentados direto da tabela,



Estes form são de cadastro, onde o cliente alimenta as tabelas

Uma forma de se fazer isso pode ser inserindo o número de registros na tabela no momento do cadastro do item da tabela anterior. Você poderia ter um campo em cada linha do subformulário para colocar o número de registros a inserir, por exemplo txtQtde e colocar, no evento "Após atualizar" desse campo txtQtde assim:

Dim L As Double
For L = 1 To Me.txtQtde
CurrentDb.Execute "INSERT INTO NomeDaTabela(CampoDaTabela) VALUES('" & Me.CampoDoForm & "')"
Next

Me.NomeDoControleSubForm2.Requery

E o subformulário precisa estar com propriedade "Permitir adições" = Não. Isso pode ser feito na linha "Dados" das propriedades do formulário.

ainda nao consegui acertar.

vo passar o bd pra vc analisar melhor, se puder me ajudar agradeço.

Ola pessoal, essa questao, do restringir a quantidade de registros que podem ser cadastrados por guia, consegui resolver em partes.

Fiz o seguinte:
no subformulario onde cadastro os produtos criei dois campos nao acoplados, e mudei o subform, de modo de dados para
formulario continuo, em um dos campos criados coloquei, na fonte de controle =Contar([códigodoproduto]) que me diz quantos registros estao cadastrados naquele momento. no outro campo, chamei o campo da tabela onde registro, qual é o limite que cada guia vai poder cadastradrar que chamei de [limite], ai coloquei no evento apos atualizar do campo [códigodoproduto] que é um listbox o seguinte código;

Private Sub CódigoDoProduto_AfterUpdate()
Dim lim As String
Dim limitador As String

lim = Me.Texto26'' os texto26 e texto28, são os campos não acoplados
limitador = Me.Texto28
If lim >= limitador Then
MsgBox "Limite de exames por guia Atingido", vbInformation, "Atenção"

Assim consegui que ele me avisa-se que atingi o limite, porém ainda consigo cadastrar mais produtos, a idéia é que ele limite isso.

Se alguem puder me ajudar agradeço.

Estou a puxar o tópico para cima. se já tiver resolvido, agradeço o seu retorno.

Entao se alguem puder me ajudar ainda nao consegui restrigir o cadastro de produtos, consegui apenas que ele me avise quando isso ocorrer.

Obrigado!

Como não houve retorno, o tópico passa a resolvido. Qualquer coisa reabra, por favor.