Advertisement
Advertisement
| 05.01.2008 at 08:45AM PDT, ID: 23368979 |
|
[x]
Attachment Details
|
||
1: 2: 3: 4: 5: 6: 7: 8: |
' See if we can find in the current record source
Dim rs As Recordset
Set rs = Me.Recordset.Clone
rs.FindFirst "TRANSACTION_ID=" & Me.cboFindOpenTransaction
If Not rs.NoMatch Then
MsgBox UBound(rs.Bookmark) '<---- This display '3'
DoCmd.GoToRecord acDataForm, Me.NAME, acGoTo, rs.Bookmark(0) '<--------- This gives error
End If
|