Log In

Come Join Us!

Are you a
Computer / IT professional?
Join Tek-Tips Forums!
  • Talk With Other Members
  • Be Notified Of Responses
    To Your Posts
  • Keyword Search
  • One-Click Access To Your
    Favorite Forums
  • Automated Signatures
    On Your Posts
  • Best Of All, It's Free!
  • Students Click Here

*Tek-Tips's functionality depends on members receiving e-mail. By joining you are opting in to receive e-mail.

Posting Guidelines

Promoting, selling, recruiting, coursework and thesis posting is forbidden.

Students Click Here


Need to use Open Session of Reflections 2014 from MS Access

Need to use Open Session of Reflections 2014 from MS Access

Need to use Open Session of Reflections 2014 from MS Access


Company switching from PCOMM to Reflections. Users can have several sessions of IBM open prior to opening the database.
Currently we check if more than one session is running and give the user list to select which is appropriate for the task they need to complete.

dim sys as object
set sys = getObject("RIBM")

but that picks up the first session only

Public Sub DealWithReflections()
Dim App As Attachmate_Reflection_Objects_Framework.ApplicationObject
Dim Terminal As Attachmate_Reflection_Objects_Emulation_IbmHosts.IbmTerminal
Dim Frame As Attachmate_Reflection_Objects.Frame
Dim View As Attachmate_Reflection_Objects.View
Dim MyScreen As Attachmate_Reflection_Objects_Emulation_IbmHosts.IbmScreen
Dim txt As String
'SavedSpace_PathWay is the pathway to the Attachmate Reflections .rd3x file
savedspace_pathway = "C:\Program Files (x86)\Attachmate\Reflection\Private\vision+.rd3x"
On Error Resume Next
Set App = GetObject(, "Attachmate_Reflection_Objects_Framework.ApplicationObject")

On Error GoTo 0
If (App Is Nothing) Then
Set App = CreateObject("Attachmate_Reflection_Objects_Framework.ApplicationObject")

If (App Is Nothing) Then
MsgBox "Unable to create object of Reflection system. The macro execution is interrupted."
Exit Sub
Set Terminal = App.CreateControl(savedspace_pathway)
End If

Set Terminal = App.CreateControl(savedspace_pathway)

End If

Set Frame = App.GetObject("Frame")
Frame.Visible = True
AppActivate Frame.Name

On Error Resume Next

Set View = Frame.CreateView(Terminal)
On Error GoTo 0
Set MyScreen = Terminal.screen
MyScreen.SendControlKeySync (ControlKeyCode_Home)

With MyScreen
end with

But this gives a new session that will require login....

Any advice welcome


Red Flag This Post

Please let us know here why this post is inappropriate. Reasons such as off-topic, duplicates, flames, illegal, vulgar, or students posting their homework.

Red Flag Submitted

Thank you for helping keep Tek-Tips Forums free from inappropriate posts.
The Tek-Tips staff will check this out and take appropriate action.

Reply To This Thread

Posting in the Tek-Tips forums is a member-only feature.

Click Here to join Tek-Tips and talk with other members! Already a Member? Login

Close Box

Join Tek-Tips® Today!

Join your peers on the Internet's largest technical computer professional community.
It's easy to join and it's free.

Here's Why Members Love Tek-Tips Forums:

Register now while it's still free!

Already a member? Close this window and log in.

Join Us             Close