Home | Contact Us | FAQ | Search & Site Map | Link to Us
Sign In | Join | Other 45 Sites in Network
Home
Discussion GroupsFormsForms ProgrammingQueriesModules / DAO / VBAReports / PrintingMacrosDatabase DesignSecurityConversionImporting / LinkingSQL Server / ADPMultiuser / NetworkingReplicationSetup / ConfigurationDeveloper ToolkitsActiveX ControlsNew UsersGeneral 1General 2
Access DirectoryToolsTutorialsUser Groups
Related Topics
SQL ServerOther DB ProductsMS OfficeMore Topics ...

MS Access Forum / Forms Programming / March 2005

Tip: Looking for answers? Try searching our database.

Another issue

Thread view: 
Enable EMail Alerts  Start New Thread
Thread rating: 
Mark A. Sam - 04 Mar 2005 18:52 GMT
Here is another issue I am having with the same procedure:

<Snip>

frm.Requery
rst.FindFirst "[confID] = " & [SalesConf]
If Not rst.NoMatch Then
 frm.Bookmark = rst.Bookmark
End If

I get run-Time error '3159' : Not a valid bookmark

Is my syntax wrong?

The entire method is below:

Thanks again....

Private Sub Recover_Click()

Dim rst As Recordset
Dim frm As Form
Dim strForm As String
strForm = Parse(OpenArgs, 1, ";")
Set frm = Forms(strForm)

Set rst = CurrentDb.OpenRecordset(strForm, dbOpenDynaset)
rst.FindFirst "[confID] = " & [SalesConf]
If Not rst.NoMatch Then
 rst.Edit
 rst![Deleted] = False
 rst.Update
End If

frm.Requery

rst.FindFirst "[confID] = " & [SalesConf]
If Not rst.NoMatch Then
 frm.Bookmark = rst.Bookmark
End If

[SalesConf].Requery

DoCmd.Beep

exit_Section:
On Error Resume Next
rst.Close
Set rst = Nothing
Exit Sub

error_Section:
MsgBox "error " & Err & ": " & Err.Description
Resume Next

End Sub
Mark A. Sam - 04 Mar 2005 19:09 GMT
Nevermind, I see my error....

> Here is another issue I am having with the same procedure:
>
[quoted text clipped - 52 lines]
>
> End Sub
 
Sign In
Join
My Latest Posts
My Monitored Threads
My Blog
My Photo Gallery
My Profile
My Homepage

Start New Thread
Enable EMail Alerts
Rate this Thread



©2008 Advenet LLC   Privacy Policy - Terms of Use
This website includes both content owned or controlled by Advenet as well as content owned or controlled by third parties.