Pasted

        Private Enum RecordCap
            DefaultCap = -1
            MaxCap = 0
        End Enum
 
        Public Sub FormInitCompleted()
            SetRecordCap(RecordCap.MaxCap)
        End Sub
 
        Public Sub FormClose()
            SetRecordCap(RecordCap.DefaultCap)
        End Sub
 
        Private Sub SetRecordCap(cap As RecordCap)
            Application.DropDownCap = cap
        End Sub