Originally Posted by
Minty
I fixed that on one of your forms by removing a mountain of unnecessary / unused code.
Thanks for replying minty.
I have removed all the unnecessary codes written in the form.
I have done some coding in main form and sub form to set row limit 30 in sub form which is as follows
Code:
In the main form
Private Sub Form_Current()
With Me.GREY_SHADE.Form
If .Recordset.RecordCount < 30 Then
.AllowAdditions = True
Else
.AllowAdditions = False
End If
End With
End Sub
In the sub form
Private Sub Form_AfterInsert()
If Me.Recordset.RecordCount = 30 Then
MsgBox "You Don't enter more than 30 Shades & Meters"
Me.AllowAdditions = False
End If
End Sub
Private Sub Form_AfterDelConfirm(Status As Integer)
If Me.Recordset.RecordCount < 30 Then Me.AllowAdditions = True
End Sub
Now when the offer entry form is opened and the offer number 128 is navigated to from the record navigation button at the bottom right, after then click on the "save and shade" button, after that the save button is clicked and after that on the right side top close button is click. then I get message box of "no current record" is being shown. My eyes have become red since yesterday while trying to find the reason and solution for this error but till now no solution has been found.
Thank you.