Record Locking Help

[anon47]

The code below is supposed to work like this. I have a payment button that is located on a form and when the record is locked I don't want an employee to be able to access the make payment button. It don't work right and help?

Private Sub MakePayments_Click()
If Not Forms!sProjects.Recordset.EOF Then
stDocName = "Payments"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Else
MsgBox "Record Being Edited (Try Later)"
End If
End Sub

 

[TheAceMan1]

How are ya anon47 . . .

Not sure how your locking but what you want to do is disable the button if the current record is locked. assuming your using the [blue]Locked property[/blue] of textoxes, in the [blue]On Current[/blue] event of the form:

[blue]   If Me!TextboxName.Locked Then
      Me!MakePayments.Enabled = False
   Else
      Me!MakePayments.Enabled = True
   End If[/blue]

See Ya! . . . . . .

Be sure to see FAQ219-2884:

 

[anon47]

I tried that and it don't work. I want to have it on the onclick so the employee will get a message to wait but I can get it to work right.

 

[TheAceMan1]

anon47 . . .

Before we can continue you have to establish [blue]how your locking records![/blue] . . . and that is?

See Ya! . . . . . .

Be sure to see FAQ219-2884:

 

[anon47]

I am locking "edited records" with access.

 

[TheAceMan1]

anon47 . . .

The problem is determining if a record is locked. Try the following in your button.

Note: [blue]PKname[/blue] is the name of the forms unique primarykey and if its numeric remove the two single quotes [COLOR=red yellow]'[/color] where you see them:

[blue]   Dim rst As DAO.Recordset
   
On Error GoTo GotErr
   Set rst = Me.RecordsetClone
   rst.FindFirst "[[purple][b][i]PKname[/i][/b][/purple]] = [COLOR=red yellow]'[/color]" & Me![purple][b][i]PKname[/i][/b][/purple] & "[COLOR=red yellow]'[/color]"
   rst.Edit [green]'Test if record is locked![/green]
   
   [green]'If record is locked the error handler takes over
   'else continue with your code[/green]
    DoCmd.OpenForm "Payments", , , stLinkCriteria
    
SeeYa:
   Set rst = Nothing
   Exit Sub
       
GotErr:
   MsgBox "Record Being Edited (Try Later)"
   Resume SeeYa[/blue]

See Ya! . . . . . .

Be sure to see FAQ219-2884:

 

[TheAceMan1]

. . . Woops . . . forgot an important line (in [purple]purple[/purple]):

[blue]   [purple][b]rst.CancelUpdate[/b][/purple]
    DoCmd.OpenForm "Payments", , , stLinkCriteria[/blue]

See Ya! . . . . . .

Be sure to see FAQ219-2884: