Salve Srs!

Gostaria de saber se é possível limitar a QTD de registro que serão adicionados através de um SubForm?

Cenário: Tenho um Form CadastroDePedido que possui um SubForm DetalheDoPedido. No SubForm gostaria de limitar a Adição de apenas 4 registro ( Itens ) por Pedido.

Desde já agradeço a atenção de todos.
Alison.

Oi Alison,

No evento <NO ATUAL> do SubForm ponha o código :

Private Sub Form_Current()
Dim rs As DAO.Recordset
If Me.NewRecord Then
    Set rs = Me.RecordsetClone
    If rs.RecordCount = 0 Then Exit Sub
    If rs.RecordCount > 3 Then
        Me.AllowAdditions = False
    Else
        Me.AllowAdditions = True
    End If
    set rs = nothing
End If 
End sub 

Vai criando os registros e veja o que acontece quando chegar ao quinto.

sucesso
...

This message has been edited. Last edited by: Avelino Sampaio,

Fiz um teste com calma e percebi que pode ficar mais reduzido.

Private Sub Form_Current()
Dim rs As DAO.Recordset
If Me.NewRecord Then
    Set rs = Me.RecordsetClone
    If rs.RecordCount = 0 Then Exit Sub
    If rs.RecordCount > 3 Then Me.AllowAdditions = False
    set rs = nothing
End If 
End sub  

Sucesso
...

Eu prefiro usar o evento BeforeInsert, que pode ser cancelado:

If Me.Recordset.RecordCount >= TeuLimite Then
    Cancel = True
End If

Obrigado Srs! Os códigos me deram um luz!
Alison.

aproveitando a duvida do colega camo fazer isso em um relatório quando ele for impresso