Access - Attachmate Location

Plz post the code that Sets the System and Session objects. Use Edit/Find on the entire project.

Skip,

_{Just traded in my OLD subtlety...
for a NUance!}

You might get better results in Forum702.

Skip,

_{Just traded in my OLD subtlety...
for a NUance!}

Here is the part of the code that connects to the mainframe. Everything after this has to do with our unique process (specific fields to scrape, what table to use, etc...)

Thanks,

Helen




Option Compare Database
Option Explicit

Private Sub Command4_Click()
'Declare variables
Dim dbsCurrent As DAO.DATABASE
Dim rstReviews As DAO.Recordset
Dim g_HostSettleTime%
Dim Sessions As Object
Dim System As Object
Dim SessName As String
Dim rstEdits As DAO.Recordset

Set dbsCurrent = CurrentDb()

'OpenRecordset method is the basic method of creating a
'Recordset Object. dbOpenTable is the type of Recordset to create. dbOpenDynaset is used for queries
Set rstReviews = dbsCurrent.OpenRecordset("test_table", DB_OPEN_DYNASET)


'With the information from the table acquired, now go to host session
Set System = CreateObject("EXTRA.System") ' Gets the system object
If (System Is Nothing) Then
MsgBox "Could not create the EXTRA System object. Stopping macro playback."
Stop
End If

Set Sessions = System.Sessions

If (Sessions Is Nothing) Then
MsgBox "Could not create the Sessions collection object. Stopping macro playback."
Stop
End If

' Set the default wait timeout value
g_HostSettleTime% = 0 ' milliseconds
Dim OldSystemTimeout
OldSystemTimeout = System.TimeoutValue
If (g_HostSettleTime% > OldSystemTimeout) Then
System.TimeoutValue = g_HostSettleTime%
End If

' Get the necessary Session Object
' This is an example of requiring a connection to a specific host session
Dim Sess0 As Object
Dim SessName0
SessName0 = "DSD Mainframe.edp"

On Error Resume Next ' In Case session next statement fails.
Err = 0
Set Sess0 = Sessions.Item(SessName0)
If Err Then
Err = MsgBox(SessName0 + " is not currently open. Open it?", 1)
If 1 = Err Then
Err = 0
Set Sess0 = Sessions.Open(SessName0)
If Err Then
MsgBox ("Failed to open " + SessName0 + ". Stopping playback")
Stop
End If
ElseIf 2 = Err Then
Stop
Else
MsgBox ("Failed to open " + SessName0 + ". Stopping playback")
Stop
End If
End If

'If you just wanted to connect to an active session on the desktop, instead
'of the above lines of code you could use
'Set Sess0 = System.ActiveSession

'make sure the session is visible
If Not Sess0.Visible Then Sess0.Visible = True
Sess0.Screen.WaitHostQuiet (g_HostSettleTime%)

This is my code for assigning the Session object in Attachmate Extra...

Skip,

_{Just traded in my OLD subtlety...
for a NUance!}

Perfect. Thank you!

BTW, check this our for using the Err Object:

Skip,

_{Just traded in my OLD subtlety...
for a NUance!}