Below is the code I posted in the access form and ACMan1 was really helpful but I still can't get it to work. I also posted it in VB Scripts and was told that was the wrong form. My final attempt is here.
I am tring to have the code upon on click of the payment button give an error message if the record is being edited. I am stumped!
Private Sub MakePayments_Click()
If Not Forms!sProjects.Recordset.Locked = False Then
stDocName = "Payments"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Else
MsgBox "Record Being Edited (Try Later)"
End If
End Sub
I am tring to have the code upon on click of the payment button give an error message if the record is being edited. I am stumped!
Private Sub MakePayments_Click()
If Not Forms!sProjects.Recordset.Locked = False Then
stDocName = "Payments"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Else
MsgBox "Record Being Edited (Try Later)"
End If
End Sub