Run time error

[shai]

Hello

Error is
Run-Time Error-'2147221020(800401e4)
Automation erro
Invalid synta


code is
Sub mfit1(

Dim RIBMApp As Objec

Set RIBMApp = GetObject("RIBM"

RIBMApp.TransmitTerminalKey rcIBMF3Ke
RIBMApp.Wait
RIBMApp.TransmitTerminalKey rcIBMF3Ke
RIBMApp.Wait
RIBMApp.TransmitTerminalKey rcIBMF3Ke
RIBMApp.WaitForEvent rcKbdEnabled, "30", "0", 1,
RIBMApp.WaitForEvent rcEnterPos, "30", "0", 4, 4
RIBMApp.WaitForDisplayString "code:", "30", 4, 3
RIBMApp.TransmitANSI "mjim
RIBMApp.TransmitTerminalKey rcIBMEnterKe
RIBMApp.WaitForEvent rcKbdEnabled, "30", "0", 1,
RIBMApp.WaitForEvent rcEnterPos, "30", "0", 7, 3
End Su

Error is in : Set RIBMApp = GetObject("RIBM"

Pls suggest ASAP

 

[GS]

It happens that shai formulated :

Hello,

Error is :
Run-Time Error-'2147221020(800401e4)'
Automation error
Invalid syntax


code is:
Sub mfit1()

Dim RIBMApp As Object

Set RIBMApp = GetObject("RIBM")

RIBMApp.TransmitTerminalKey rcIBMF3Key
RIBMApp.Wait 3
RIBMApp.TransmitTerminalKey rcIBMF3Key
RIBMApp.Wait 3
RIBMApp.TransmitTerminalKey rcIBMF3Key
RIBMApp.WaitForEvent rcKbdEnabled, "30", "0", 1, 1
RIBMApp.WaitForEvent rcEnterPos, "30", "0", 4, 41
RIBMApp.WaitForDisplayString "code:", "30", 4, 34
RIBMApp.TransmitANSI "mjim"
RIBMApp.TransmitTerminalKey rcIBMEnterKey
RIBMApp.WaitForEvent rcKbdEnabled, "30", "0", 1, 1
RIBMApp.WaitForEvent rcEnterPos, "30", "0", 7, 35
End Sub

Error is in : Set RIBMApp = GetObject("RIBM")

Pls suggest ASAP

GetObject will return a valid ref IF the object exists. You should
check for this and if it doesn't exist then use CreateObject() to start
an instance of it.

--
Garry

Free usenet access at http://www.eternal-september.org
ClassicVB Users Regroup!
comp.lang.basic.visual.misc
microsoft.public.vb.general.discussion

 

[shai]

GS wrote on 04/18/2012 11:57 ET

It happens that shai formulated
GetObject will return a valid ref IF the object exists. You shoul
check for this and if it doesn't exist then use CreateObject() to star
an instance of it

Garr

Free usenet access at http://www.eternal-september.or
ClassicVB Users Regroup
comp.lang.basic.visual.mis
microsoft.public.vb.general.discussio

Hi
Thanks for your suggestion, but I tried to create Object its giving followin
error

Run-Time error 429
ActiveX component can't create objec

I tried the below code to create Object, pls suggest whether it is correct o
not.
Set RIBMApp = CreateObject("RIBM")

 

[GS]

shai pretended :

GS wrote on 04/18/2012 11:57 ET :
Hi,
Thanks for your suggestion, but I tried to create Object its giving
following error:

Run-Time error 429:
ActiveX component can't create object

I tried the below code to create Object, pls suggest whether it is correct
or not..
Set RIBMApp = CreateObject("RIBM")

Try...

Set RIBMApp = CreateObject("RIBM.Application")

...where RIBM.exe is a properly installed/registered app on your
machine. Otherwise, if it's a COM component then you need to set a
reference to it in the VBE via Tools>References!

--
Garry

Free usenet access at http://www.eternal-september.org
ClassicVB Users Regroup!
comp.lang.basic.visual.misc
microsoft.public.vb.general.discussion