I just set up my app on a P2P and am a bit concerned about retaining the following code (with thanks and a tip of the hat to HansV) in a shared environment. This code requeries the form to diplay whether a new order has been entered after the form was opened. It is in the ‘On Timer’ event of the continuous form; I have “suspended” it for the time being.
Private Sub Form_Timer()
Dim lngCount As Long
lngCount = DCount(“*”,”tblMaster”,”OrderStatus=’NEW'”)
If lngCount > 0 Then
Searching.Caption = “New order(s) found. Click ‘Refresh’ to display: ” & lngCount
Searching.Backstyle = 1 Normal
Else
Searching.Caption = ” ”
Searching.Backstyle = 0 ‘ Transparent
End If
Me.Requery
End Sub
Also, while I’m at it, what record locking strategy is best for a P2P environment?
Any input greatly appreciated!