CISA FotoGallery

Statistiche

Tot. visite contenuti : 927934
Home Articoli tecnici VBA Limitare il numero di inserimenti

Limitare il numero di inserimenti

Soluzione usabili per versioni DEMO.
Basta convertire in MDE il programma dopo aver inserito il seguente codice nelle maschere volute.

Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim i As Byte
' RunCommand acCmdSaveRecord
Me.Painting = False
i = Nz(DCount("[id]", "[T_Clienti]"), 0)
Select Case i
Case 0 To 3
Case 3 To 5
MsgBox "We ciccio, mancano " & 4 - i & " inserimenti possibili, " & vbNewLine & "dopo non voglio sapere niente."
Case Else
MsgBox "We ciccio, hai superato ogni limite!!!", vbCritical, "AccessGroup.it"
Cancel = True
End Select

End Sub


Ovvio che poi bisogna inventarsi qualcosa per evitare che qualcuno aggiunga da tabella, ma in questo senso si può aggiungere un algoritmo in cui io controllo se l'inserimento è autorizzato o no.