asked on

access open another db & form on last record

I have a button on my switchboard that opens a second database. I would like the second database to open on a paticular form & the last record of the form. Here is the query for opening the second db:

Private Sub Command54_Click()
Dim strDB As String, appAccess As Access.Application
strPath = "\\Fileserver\is_data\Documentation\IT-Private\Scheduling DB\WIP\3-25-10 WIP\"
strDB = strPath & "Schedulingdb_ShipSplitBatch.accdb"
' Create new instance of Microsoft Access.
Set appAccess = CreateObject("Access.Application")
' Open database in Microsoft Access window.
appAccess.OpenCurrentDatabase strDB
appAccess.Visible = True
appAccess.UserControl = True '
End Sub

Any suggestions?

Rey Obrero (Capricorn1)

Private Sub Command54_Click()
Dim strDB As String, appAccess As Access.Application
strPath = "\\Fileserver\is_data\Documentation\IT-Private\Scheduling DB\WIP\3-25-10 WIP\"
strDB = strPath & "Schedulingdb_ShipSplitBatch.accdb"
' Create new instance of Microsoft Access.
Set appAccess = CreateObject("Access.Application")
' Open database in Microsoft Access window.
appAccess.OpenCurrentDatabase strDB
appAccess.Visible = True
appAccess.UserControl = True '

appAccess.docmd.openform "formX" ' add this line
End Sub

iandian

if your table on which the form is based has a field, e.g. named "date", with the date of creation for a record you can add this to reverse the order (get the last record)

appAccess.Forms.Item("FormX").OrderBy("date DESC")

the same can be done with an autonumber field, e.g named "ID"

appAccess.Forms.Item("FormX").OrderBy("ID DESC")

ASKER CERTIFIED SOLUTION

Rey Obrero (Capricorn1)

membership

This solution is only available to members.

To access this solution, you must be a member of Experts Exchange.

Start Free Trial

iandian

ah yeah my bad, that would be easier.

access open another db &amp; form on last record

access open another db & form on last record