W
Walfe31
I have a MS Access 2003 form with a an Active-X Session( Attachmate Terminal
Control). I was able to connect this Session to my Mainframe. On this form
I have data that will be used to update records from this Mainframe using
this Session. I currently have the following code that will allow a MS
Access 2003 communicate with and external Session but I need to have the code
that will allow me to communicate with this Active-X Session:
'-This code creates the external relationship between the Mainframe Session
and the DB
Option Compare Database
Option Explicit
Public AVsess As Object
Public AVsys As Object
Public AVScrN As Object
Public AVsessrec As Object
Public AVsysrec As Object
Public AVscrnrec As Object
Public Hst As Integer
Public Sub set_Sess1()
Set AVsys = GetObject("PATH")
Set AVsys = CreateObject("extra.system")
Set AVsess = AVsys.sessions
Set AVsess = AVsys.ActiveSession
Set AVScrN = AVsess.Screen
AVsess.Visible = True
AVsys.TimeoutValue = 3000
End Sub
'---END of CODE-------------------------------------------
Please advice on what code I can use to have my database communicate with
this Active-X Session ( Attachmate Terminal Control).
Thank you in advance.
Control). I was able to connect this Session to my Mainframe. On this form
I have data that will be used to update records from this Mainframe using
this Session. I currently have the following code that will allow a MS
Access 2003 communicate with and external Session but I need to have the code
that will allow me to communicate with this Active-X Session:
'-This code creates the external relationship between the Mainframe Session
and the DB
Option Compare Database
Option Explicit
Public AVsess As Object
Public AVsys As Object
Public AVScrN As Object
Public AVsessrec As Object
Public AVsysrec As Object
Public AVscrnrec As Object
Public Hst As Integer
Public Sub set_Sess1()
Set AVsys = GetObject("PATH")
Set AVsys = CreateObject("extra.system")
Set AVsess = AVsys.sessions
Set AVsess = AVsys.ActiveSession
Set AVScrN = AVsess.Screen
AVsess.Visible = True
AVsys.TimeoutValue = 3000
End Sub
'---END of CODE-------------------------------------------
Please advice on what code I can use to have my database communicate with
this Active-X Session ( Attachmate Terminal Control).
Thank you in advance.