[Resolvido]Estou com um código para limitar a quantidade de registros, que não está funcionando.

Prezados Colegas, saudações

Após pesquisar encontrei o código abaixo, para limitar a quantidade de registros em um subformulário, porém está emitindo um erro 3464:

Option Compare Database
OptionExplicit
Dim auxContReg As BytePrivate

Sub Form_AfterInsert()
If auxContReg > "Forms!Notas_Fiscais![NF_N_Parcelas]" Then
MsgBox "Não pode mais inserir registros"
Cancel = True
End If
End Sub

Private Sub Form_BeforeInsert(Cancel As Integer)
auxContReg = auxContReg + 1
End Sub

Alguém sabe como posso fazer funcionar?

Grato,
Marcelo Alonso

Boa tarde Colega

Faça isso pela chave primária. Imaginemos que a chave primária se chama ID:

Dim Id As Integer
Dim Msg, Style, Title
Msg = "Não é possível adicionar mais registos" & Chr(13) & Chr(10) & "Contacte a o Administardor"
Style = vbInformation
Title = "Teste"
If DCount("Id", "NomeTabela") >= 45 Then
Msg = MsgBox(Msg, Style, Title)
DoCmd.Quit
End If

Veja tambem o simples;

No evento VBA do Currente no seu subform



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

Ou ainda mais simples;

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

Legal, mas é que no lugar de um valor específico eu tenho um campo onde defino essa quantidade. Então como ficaria?

Esse campo onde define a quantidade fica no seu formulario ?

Se fica é assim;

Altere para os nomes corretos o que está a azul;


Private Sub Form_Current()
'By JPaulo ® Maximo Access
'limita a 5 registros
Dim R As Object, X As Integer
Set R = Me.Recordset
X = Forms!SeuForm!SeuCampoQuantidade.Value
Cancel = (R.RecordCount >= X)
If Cancel Then MsgBox "Não é possível inserir: quantidade de registros atingiu o limite.", vbCritical, "Aviso"
End Sub

Sim. No formulário principal, pois no principal eu defino a quantidade e no subformulário é que eu desejo executar essa restrição/limitação.

Paulo, após usar o código ele critica mas não impede a inserção do indevido novo registro. O que pode estar faltando?

Utilize este que é bem mais funcional.

No evento VBA antes de inserir, no seu subform;


Private Sub Form_BeforeInsert(Cancel As Integer)
'By JPaulo ® Maximo Access
'limita a quantidade de registros
Dim rst As Recordset
Set rst = Me.RecordsetClone
If rst.RecordCount >= Forms!SeuForm!SeuCampoQuantidade.Value Then
MsgBox "Não é possível inserir mais registros: quantidade de registros atingiu o limite.", vbCritical, "Aviso"
Me.AllowAdditions = False
Else
Me.AllowAdditions = True
End If
End Sub

Brother JPaulo, foi demais!

Obrigado!
Obrigado a todos os demais companheiros pelo apoio.
Saudações.
Marcelo Alonso

Obrigado pelo retorno o fórum agradece.