RSVIEW32 VBA help required please

LordNeil · Sep 29, 2014

Hi, I'm pretty new to the RSVIEW32 & have encounted a problem whilst coding visual basic.

The error is:-
Compile Error: Sub or Function not defined

The code is:-
Sub MouldConfirm()
If gTagDb.GetTag("Manual\MouldConfirm") = 1 And gTagDb.GetTag("Robot\In06") = 1 And gTagDb.GetTag("Robot\In00") = 0 And gTagDb.GetTag("Robot\In09") = 1 Then
ShowDisplay ("Robot")
Else: ShowDisplay ("Casting")
End If
End Sub

If you could help, that'd be brill.
Thanks all.

danatomega · Sep 29, 2014

I guess I would start by eliminating some of the items in your sub and when you remove the offending item, you'll at least know what's causing it.

Can you simply have ShowDisplay("Robot") in your sub and have it still work?

Valley Ind · Sep 29, 2014

Is there suppose to be a colon after Else?

Instead of Else: shouldn't it be just Else

I've seen where an error in the way an If/End If is structured the compiler doesn't recognize the End If as being the end of the If/End If block so it tries to use the End Sub to close the If/End IF block; now your Sub is missing its closing statement. So you get an error.

LordNeil · Sep 30, 2014

@danatomega - I tried reducing it to just the ShowDisplay, but the same error occurs.

@Valley Ind - The colon is put in automatically by the software. I tried removing it, but it put the colon back in.

LordNeil · Sep 30, 2014

It seems that the problem lays with the ShowDisplay command.
Is this the correct one, or is there another one I can use?

AutomaticLeigh · Sep 30, 2014

Try
gCommand.Execute("Display Robot")

LordNeil · Sep 30, 2014

@AutomaticLeigh - That works great.

Thanks ever so much

RSVIEW32 VBA help required please

LordNeil

Member

danatomega

Lifetime Supporting Member

Valley Ind

Member

LordNeil

Member

LordNeil

Member

AutomaticLeigh

Member

LordNeil

Member

Similar Topics