close a form if record is open and being edited

[Ruegen]

I'd like a form to close if another user on the front end is editing the record

I thought about the recordlocks property and setting it to 2 when they open a record (using current event)

however I'd like to determine if the record is locked and if so close the form



how would I go about this?

[June7]

Bing: access vba check if record locked

See if this helps http://www.utteraccess.com/forum/che...-t1834320.html

It's basically error trapping.

[Ruegen]

Bing: access vba check if record locked

See if this helps http://www.utteraccess.com/forum/che...-t1834320.html

It's basically error trapping.

yeah I tried that (even found that exact page before and tried it)

I open the record, do rs.edit and I get no error even though I have a user happily typing away in the field on another pc

I even added rs.udate

rs!name = stringsomething

none of these brought up an error :-/

[June7]

Is RecordLock property set to 0? Seems that would be the only setting that would trigger error popup.

[Ruegen]

What should it be? 2?

[Ruegen]

Is RecordLock property set to 0? Seems that would be the only setting that would trigger error popup.

Private Sub Form_Current()


Debug.Print "record locks is " & Me.RecordLocks

end sub

pulls up 0 as result

[Ruegen]

I think I have found a problem.

To open the form I am using this

Public Sub OpenThisSchool(SchoolID As Long)
If intCountFrmSchool > 3 Then


MsgBox "You have opened too many school forms at one time, all other searched school forms now will close", vbExclamation


Call CloseAllClients




End If


If intCountFrmSchool < 0 Then
intCountFrmSchool = 0
End If
intCountFrmSchool = intCountFrmSchool + 1




  'Purpose:    Open an independent instance of form frmClient.
    Dim frm As Form


    'Open a new instance, show it, and set a caption.
    Set frm = New Form_frmSchoolsFound
    frm.Visible = True
    
    frm.Filter = "[NewSchoolsID] = " & SchoolID
    frm.FilterOn = True
    frm.Caption = "frmSchoolsFound"
    'Append it to our collection.
    clnClient.Add Item:=frm, Key:=CStr(frm.hwnd)
    
'    Set frm = Nothing
End Sub

however any updated information is not showing in the record (so it's not giving me an updated view of the record)...

[Ruegen]

son of a $#%$#%$@#$


I was using an old backup all this time

slams a few doors and curses a lot.

[Ruegen]

ok correct database now but still same issue.

[June7]

Sorry, that's all I've got. Never tried to code for this. Editing conflicts are so rare in our db. Think it's happened twice in 5 years and that was early in development.