Check For Record Locking

[anon47]

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

 

[Trevil]

Making a dozen assumptions, try something like:

If Me.Dirty then
' The record is being edited
Else
' The record is NOT being edited
End If




Learn from the mistakes of others. You won't live long enough to make all of them yourself.

 

[rmikesmith]

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

In your code, if Forms!sProjects.Recordset.Locked = True then your IF..THEN evaluates to true and the statements within the THEN clause execute, the opposite of what you want. Use the following instead:

If Not Forms!sProjects.Recordset.Locked Then

Regards,
Mike