PDA

Vollständige Version anzeigen : Datensatz gesperrt?


PD
03.08.2001, 20:22
Hallo,

wie kann ich in einem Formular prüfen ob
ein anderer Benutzer gerade diesen Datensatz gesperrt hat?
Im Datensatzmarkierer sieht man einen Kreis mit Querstrich.
Wenn hier ein Stift angezeigt wird, mach ich das mit "Me.Dirty" aber bei diesem "Duchschnitt"-Zeichen???

Vielen Dank
Peter DIETRICH

erwin
04.08.2001, 11:06
hier mal ein ausbaufähiger Ansatz:

Public Function DSlocked(pobjFrm As Form) As Boolean
Dim objCtl As Control, objTxtBox As TextBox

On Error Resume Next

DSlocked = False
If pobjFrm.Dirty Then
Exit Function
End If

If pobjFrm.AllowEdits Then
For Each objCtl In Me.Controls
If objCtl.ControlType = acTextBox Then
Set objTxtBox = objCtl
If objTxtBox.Enabled And Not objTxtBox.Locked _
And Len(objTxtBox.ControlSource) > 0 _
And Mid(objTxtBox.ControlSource, 1, 1) <> "=" Then
Exit For
Else
Set objTxtBox = Nothing
End If
End If
Next objCtl
End If

If Not objTxtBox Is Nothing Then
objTxtBox.Value = 1
If Err.Number = 2448 Then
DSlocked = True
Else
objTxtBox.Undo
pobjFrm.Undo
End If
End If

Err.Clear
Set objCtl = Nothing
Set objTxtBox = Nothing

End Function

Aufruf im Formcode mittels DSlocked(Me)

HTH erwin...