small error, runtime 9 when entering notes for a system, going to next station, clicking station database again.
I started using this last week. I was spending far too much time with spreadsheets before I found this. I had some installation issues but was able to work through them with the FAQ. I had found a few bugs but 1.39 seems to have solved them. I must say the tool is almost perfect now and the updates you mention to capture more notes will be helpful (I do find myself noting in the system log where certain rare ships and equipment can be found, or good mineral deposits). I would love to see a trade route optimizer that could handle more than a single origin, destination pair. That would make it pretty much perfect for me.
I do really like that it doesn't crowd source since you have to put in all your own data manually or with EliteOCR. Since you aren't grabbing any of the data directly from ED people who complain about cheating must not actually understand how it works. Yes people do have to trust you aren't putting bad code in but they can look at it themselves or just not use it if they are worried.
I must say that this is an excellent tool. Eventure, you must have put a lot of time into this. Bravo. Amazing. We are fortunate you have done this. I can't believe you spent so much effort into this when you could have been playing.
Only using ED on main monitor. I have TCE on side monitor as I prefer to not clutter the main screen.
Definitely not spreading ED around monitors though
EliteOCR on its own works fine.
I always play in windowed mode anyway, so I guess that's not the answer.
I just played for about 3 hours with TCE and EliteOCR working fine. The only differences were that I had closed Firefox and disabled my third monitor.
Is there any way that Firefox could be causing the problem ?
I always play in borderless Window mode - should I try normal Window mode ?
Please update your Office to the lastest service pack and install the Access runtine for your version.
I used to play in Window and it worked fine and I have been playing in borderless for months now without any problems !
My bet would be more on not having the main panel on your main monitor.
As for Firefox, is quite possible, especially if you are running macros in it !
It's very easy to test,
just use Chrome (without any addon) for a while, at least when you are playing.
I have it open all the time and it has not cause any problem for me.
You will see pretty quickly if there is any improvement !
Well I have been playing with the main panel on my main monitor for days and the problem occurred again when I returned to using 3 monitors with FireFox on the right hand one.
I am trying tonight with no FireFox and 2 monitors to see what happens.
First run with v1.39c
Fist click on (Reset and) Scan
Compile error:
Type mismatch
Can't execute code in break mode
Option Explicit
' Module Name: ModFindWindowLike
' (c) 2005 Wayne Phillips (http://www.everythingaccess.com)
' Written 02/06/2005
#If VBA7 Then
Private Declare PtrSafe Function EnumWindows Lib "user32" _
(ByVal lpEnumFunc As Long, _
ByVal lParam As Long) As Long
Private Declare PtrSafe Function GetWindowText Lib "user32" _
Alias "GetWindowTextA" _
(ByVal hWnd As Long, _
ByVal lpString As String, _
ByVal cch As Long) As Long
#Else
Private Declare Function EnumWindows Lib "user32" _
(ByVal lpEnumFunc As Long, _
ByVal lParam As Long) As Long
Private Declare Function GetWindowText Lib "user32" _
Alias "GetWindowTextA" _
(ByVal hWnd As Long, _
ByVal lpString As String, _
ByVal cch As Long) As Long
#End If
'Custom structure for passing in the parameters in/out of the hook enumeration function
'Could use global variables instead, but this is nicer.
Private Type FindWindowParameters
strTitle As String 'INPUT
hWnd As Long 'OUTPUT
End Type
Public Function FnFindWindowLike(strWindowTitle As String) As Long
'We'll pass a custom structure in as the parameter to store our result...
Dim Parameters As FindWindowParameters
Parameters.strTitle = strWindowTitle ' Input parameter
Call EnumWindows(AddressOf EnumWindowProc, VarPtr(Parameters))
FnFindWindowLike = Parameters.hWnd
End Function
Private Function EnumWindowProc(ByVal hWnd As Long, _
lParam As FindWindowParameters) As Long
Dim strWindowTitle As String
strWindowTitle = Space(260)
Call GetWindowText(hWnd, strWindowTitle, 260)
strWindowTitle = TrimNull(strWindowTitle) ' Remove extra null terminator
If strWindowTitle Like lParam.strTitle Then
lParam.hWnd = hWnd 'Store the result for later.
EnumWindowProc = 0 'This will stop enumerating more windows
Else
EnumWindowProc = 1
End If
End Function
Private Function TrimNull(strNullTerminatedString As String)
Dim lngPos As Long
'Remove unnecessary null terminator
lngPos = InStr(strNullTerminatedString, Chr$(0))
If lngPos Then
TrimNull = Left$(strNullTerminatedString, lngPos - 1)
Else
TrimNull = strNullTerminatedString
End If
End Function
Tried a few times,
Getting the same error on UPDATE ONLY SCAN when clicking the SCAN button.
Tried fresh install in brand new folder with the same result.
Have to revert back to v1.39b until fix.
First run with v1.39c
Fist click on (Reset and) Scan
Compile error:
Type mismatch
Can't execute code in break mode
Option Explicit
' Module Name: ModFindWindowLike
' (c) 2005 Wayne Phillips (http://www.everythingaccess.com)
' Written 02/06/2005
#If VBA7 Then
Private Declare PtrSafe Function EnumWindows Lib "user32" _
(ByVal lpEnumFunc As Long, _
ByVal lParam As Long) As Long
Private Declare PtrSafe Function GetWindowText Lib "user32" _
Alias "GetWindowTextA" _
(ByVal hWnd As Long, _
ByVal lpString As String, _
ByVal cch As Long) As Long
#Else
Private Declare Function EnumWindows Lib "user32" _
(ByVal lpEnumFunc As Long, _
ByVal lParam As Long) As Long
Private Declare Function GetWindowText Lib "user32" _
Alias "GetWindowTextA" _
(ByVal hWnd As Long, _
ByVal lpString As String, _
ByVal cch As Long) As Long
#End If
'Custom structure for passing in the parameters in/out of the hook enumeration function
'Could use global variables instead, but this is nicer.
Private Type FindWindowParameters
strTitle As String 'INPUT
hWnd As Long 'OUTPUT
End Type
Public Function FnFindWindowLike(strWindowTitle As String) As Long
'We'll pass a custom structure in as the parameter to store our result...
Dim Parameters As FindWindowParameters
Parameters.strTitle = strWindowTitle ' Input parameter
Call EnumWindows(AddressOf EnumWindowProc, VarPtr(Parameters))
FnFindWindowLike = Parameters.hWnd
End Function
Private Function EnumWindowProc(ByVal hWnd As Long, _
lParam As FindWindowParameters) As Long
Dim strWindowTitle As String
strWindowTitle = Space(260)
Call GetWindowText(hWnd, strWindowTitle, 260)
strWindowTitle = TrimNull(strWindowTitle) ' Remove extra null terminator
If strWindowTitle Like lParam.strTitle Then
lParam.hWnd = hWnd 'Store the result for later.
EnumWindowProc = 0 'This will stop enumerating more windows
Else
EnumWindowProc = 1
End If
End Function
Private Function TrimNull(strNullTerminatedString As String)
Dim lngPos As Long
'Remove unnecessary null terminator
lngPos = InStr(strNullTerminatedString, Chr$(0))
If lngPos Then
TrimNull = Left$(strNullTerminatedString, lngPos - 1)
Else
TrimNull = strNullTerminatedString
End If
End Function
Tried a few times,
Getting the same error on UPDATE ONLY SCAN when clicking the SCAN button.
Tried fresh install in brand new folder with the same result.
Have to revert back to v1.39b until fix.
Sorry but we have a problem with the C upgrade.
TCE.xlsm will not compile under VBA v7.1 on Office 2013 64bit version.
The problem is with the new Screenshot method using the ptrsafe method whereas the old screenshot system worked flawlessly.
Maybe an option to use the new or old method or detect when using 64 bit Office.
Not sure what would be best for me to do. Go back to Office 2007 32 bit or try Office 2013 32 bit or carry on with Update B and hope you find a solution?
Cheers.
First run with v1.39c
Fist click on (Reset and) Scan
Compile error:
Type mismatch
Can't execute code in break mode
Option Explicit
' Module Name: ModFindWindowLike
' (c) 2005 Wayne Phillips (http://www.everythingaccess.com)
' Written 02/06/2005
#If VBA7 Then
Private Declare PtrSafe Function EnumWindows Lib "user32" _
(ByVal lpEnumFunc As Long, _
ByVal lParam As Long) As Long
Private Declare PtrSafe Function GetWindowText Lib "user32" _
Alias "GetWindowTextA" _
(ByVal hWnd As Long, _
ByVal lpString As String, _
ByVal cch As Long) As Long
#Else
Private Declare Function EnumWindows Lib "user32" _
(ByVal lpEnumFunc As Long, _
ByVal lParam As Long) As Long
Private Declare Function GetWindowText Lib "user32" _
Alias "GetWindowTextA" _
(ByVal hWnd As Long, _
ByVal lpString As String, _
ByVal cch As Long) As Long
#End If
'Custom structure for passing in the parameters in/out of the hook enumeration function
'Could use global variables instead, but this is nicer.
Private Type FindWindowParameters
strTitle As String 'INPUT
hWnd As Long 'OUTPUT
End Type
Public Function FnFindWindowLike(strWindowTitle As String) As Long
'We'll pass a custom structure in as the parameter to store our result...
Dim Parameters As FindWindowParameters
Parameters.strTitle = strWindowTitle ' Input parameter
Call EnumWindows(AddressOf EnumWindowProc, VarPtr(Parameters))
FnFindWindowLike = Parameters.hWnd
End Function
Private Function EnumWindowProc(ByVal hWnd As Long, _
lParam As FindWindowParameters) As Long
Dim strWindowTitle As String
strWindowTitle = Space(260)
Call GetWindowText(hWnd, strWindowTitle, 260)
strWindowTitle = TrimNull(strWindowTitle) ' Remove extra null terminator
If strWindowTitle Like lParam.strTitle Then
lParam.hWnd = hWnd 'Store the result for later.
EnumWindowProc = 0 'This will stop enumerating more windows
Else
EnumWindowProc = 1
End If
End Function
Private Function TrimNull(strNullTerminatedString As String)
Dim lngPos As Long
'Remove unnecessary null terminator
lngPos = InStr(strNullTerminatedString, Chr$(0))
If lngPos Then
TrimNull = Left$(strNullTerminatedString, lngPos - 1)
Else
TrimNull = strNullTerminatedString
End If
End Function
Tried a few times,
Getting the same error on UPDATE ONLY SCAN when clicking the SCAN button.
Tried fresh install in brand new folder with the same result.
Have to revert back to v1.39b until fix.