Hello,
sorry the code works...
but i can you tell me how i can save the sheet.
this is mine another part of mine code.
Option Compare Database
Option Explicit
Public Sessions As Object
Public Sess0 As Object
[highlight #E9B96E]Public MyScreen As Object[/highlight]
Public System As Object...
Hello,
Indeed column G.
I have tried your code but it didn't put the error in the cell.
Set MyAreaDDN2 = MyScreen.AREA(23, 2, 23, 46)
If MyAreaDDN2 = "M281 ARTIKEL IS NIET GEREALISEERD OP DEZE MAS" Then
[highlight #F57900]MsgArea = Trim(MyScreen.GetString(23,2,79))...
Must i put the code here or must i do something more.
Because i put it there and i don't see the error in excel..
Sub Main()
g_HostSettleTime = 1000 ' milliseconds
OldSystemTimeout& = System.TimeoutValue
If (g_HostSettleTime > OldSystemTimeout) Then
System.TimeoutValue = g_HostSettleTime
End...
Dim MsgArea as string
MsgArea = Trim(MyScreen.GetString(23,2,79)) ' x=23, y=2 and long 79
can i use this for all the error messages'
MsgArea = Trim(MyScreen.GetString(23,2,79))
MsgArea = Trim(MyScreen.GetString(9,2,79))
gr Raoul
Hello,
the message error are on the follow area's
MyScreen.AREA(23, 2, 23, 59) '"M280 GEREALISEERDE AANTAL IS ONVOLDOENDE VOOR AFBOEK-ACTIE"
MyScreen.AREA(23, 2, 23, 46) '"M281 ARTIKEL IS NIET GEREALISEERD OP DEZE MAS"
MyScreen.AREA(23, 2, 23, 34) '"V001 NSN/OSN MOET WORDEN INGEVULD"...
Hello,
I have a question.
I have build an access tool that starts extra.
Extra gets data from Excel.
If extra give me an error, then i want too copy that error to a cell in Excel on the same row.
Mine code that i have:
Sub Main()
g_HostSettleTime = 1000 ' milliseconds...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.