Beste VBA ers,
Ik probeer (met de nadruk op probeer), een VBA programma aan te passen.
Mijn programma werkt naar behoren, echter in ons IBM systeem is een update geweest waardoor er een knop in beeld blijft staan, deze knop heet pf8.
Het VBA programma zegt zolang je pf8 ziet moet je blijven werken, hij loopt nu dus vast.
Hij is dan eigenlijk klaar maar blijft toch op pf8 drukken.
Nu is het zo dat in het IBM (puls) scherm ook het woord LAST verschijnt op en bepaalde positie.
Ik heb er zelf de code PULSps.GetText(1, 45, 4) = "LAST" tussen gezet, helaas werkt dit niet.
Ik ben een Noob, mijn excusses op voorhand als er iets mis of onduidelijk is.
Mvg
Ik probeer (met de nadruk op probeer), een VBA programma aan te passen.
Mijn programma werkt naar behoren, echter in ons IBM systeem is een update geweest waardoor er een knop in beeld blijft staan, deze knop heet pf8.
Het VBA programma zegt zolang je pf8 ziet moet je blijven werken, hij loopt nu dus vast.
Hij is dan eigenlijk klaar maar blijft toch op pf8 drukken.
Nu is het zo dat in het IBM (puls) scherm ook het woord LAST verschijnt op en bepaalde positie.
Code:
Next
If StrPf8 = "PRESS PF8" Then
pcommPS.SendKeys "[pf8]"
Else
StrPf8 = ""
End If
PULSps.GetText(1, 45, 4) = "LAST"
Loop Until StrPf8 = ""
Ik heb er zelf de code PULSps.GetText(1, 45, 4) = "LAST" tussen gezet, helaas werkt dit niet.
Ik ben een Noob, mijn excusses op voorhand als er iets mis of onduidelijk is.
Mvg