- Status
lol, sorry
No, sadly I didn't hear about the game soon enough so I do not have beta access.
Sending db link in PM now.
I found what was causing the errors.
ID 15897 GLIESE 76 somehow ended up with a 0 in Class
but I did not voluntarily change that or even go in that menu in TCE !
I checked the previous backup and the Class was empty before I deleted the STAR SYSTEM note !!!
but that did not happen with the other 5 system I deleted notes from !
So I reloaded my previous backup witch contains a bunch of test notes and update 7.4.
Using the Cartography Panel I deleted 1 Star System note from a system with as selected star class and restarted TCE without any problems.
Since GLIESE 76 was the only system with a note and no selected star class I tried to add a note to another system (ICZ ZZ-Y B4) without a selected class so that I could later try to delete it and see if I could reproduce the error with a different system, but I got an error for adding that note :
Private Sub CA_Note_Change()
If PanelOpen = True Then
If CA_Note.Visible = True Then
Me.BTN_Save.Visible = True
End If
End If
If Len(Me.CA_Note.Text) > 254 Then
Me.CA_Note.Text = Mid(Me.CA_Note.Text, 1, 254)
End If
Me.TXT_CA_NoteCounter.Caption = 254 - Len(Me.CA_Note.Text)
End Sub
Private Sub BTN_Save_Click()
Dim a As Long, b As Long
Me.BTN_Save.Caption = "PLEASE WAIT"
DoEvents
If FTP_Enabled = True Then
Call Download_DB
Call FTP_Data_Update
End If
Ar_DBStars(Ar_Carto(CA_SelectID, 1), 7) = Me.CA_Note.Text
Ar_Carto(CA_SelectID, 8) = Me.CA_Note.Text
StarData(1) = Val(Ar_Carto(CA_SelectID, 1))
StarData(2) = Ar_DBStars(StarData(1), 2)
StarData(3) = Ar_DBStars(StarData(1), 3)
StarData(4) = Ar_DBStars(StarData(1), 4)
StarData(5) = Ar_DBStars(StarData(1), 5)
StarData(6) = Ar_DBStars(StarData(1), 6)
StarData(7) = CStr(Me.CA_Note.Text)
StarData(8) = CLng(Ar_DBStars(StarData(1), 8))
' Star_SSN = True
Star_Full = True
Call SQL_Export_Mod(AppPath & "\DB\TCE.mdb", "Stars")
Star_Full = False
' Star_SSN = False
If FTP_Enabled = True Then
Call Upload_DB
End If
Saving = True
Worksheets("DB_Stars").Range("A2:H" & AzStars + 1) = Ar_DBStars
Saving = False
Call CA_ScrollBar_Change
Me.BTN_Save.Caption = "SAVE CHANGES"
Me.BTN_Save.Visible = False
End Sub
Private Sub CB_SOK_Change()
If Ar_DBStars(Ar_Carto(CA_SelectID, 1), 6) <> Me.CB_SOK.ListIndex + 1 And Panel_LOG_Cartography.Visible = True Then
StarData(1) = Ar_Carto(CA_SelectID, 1)
StarData(6) = Me.CB_SOK.ListIndex + 1
Ar_Carto(CA_SelectID, 6) = StarData(6)
StarData(8) = Ar_Carto(CA_SelectID, 3)
Call ChkSave
End If
End Sub
If PanelOpen = True Then
If CA_Note.Visible = True Then
Me.BTN_Save.Visible = True
End If
End If
If Len(Me.CA_Note.Text) > 254 Then
Me.CA_Note.Text = Mid(Me.CA_Note.Text, 1, 254)
End If
Me.TXT_CA_NoteCounter.Caption = 254 - Len(Me.CA_Note.Text)
End Sub
Private Sub BTN_Save_Click()
Dim a As Long, b As Long
Me.BTN_Save.Caption = "PLEASE WAIT"
DoEvents
If FTP_Enabled = True Then
Call Download_DB
Call FTP_Data_Update
End If
Ar_DBStars(Ar_Carto(CA_SelectID, 1), 7) = Me.CA_Note.Text
Ar_Carto(CA_SelectID, 8) = Me.CA_Note.Text
StarData(1) = Val(Ar_Carto(CA_SelectID, 1))
StarData(2) = Ar_DBStars(StarData(1), 2)
StarData(3) = Ar_DBStars(StarData(1), 3)
StarData(4) = Ar_DBStars(StarData(1), 4)
StarData(5) = Ar_DBStars(StarData(1), 5)
StarData(6) = Ar_DBStars(StarData(1), 6)
StarData(7) = CStr(Me.CA_Note.Text)
StarData(8) = CLng(Ar_DBStars(StarData(1), 8))
' Star_SSN = True
Star_Full = True
Call SQL_Export_Mod(AppPath & "\DB\TCE.mdb", "Stars")
Star_Full = False
' Star_SSN = False
If FTP_Enabled = True Then
Call Upload_DB
End If
Saving = True
Worksheets("DB_Stars").Range("A2:H" & AzStars + 1) = Ar_DBStars
Saving = False
Call CA_ScrollBar_Change
Me.BTN_Save.Caption = "SAVE CHANGES"
Me.BTN_Save.Visible = False
End Sub
Private Sub CB_SOK_Change()
If Ar_DBStars(Ar_Carto(CA_SelectID, 1), 6) <> Me.CB_SOK.ListIndex + 1 And Panel_LOG_Cartography.Visible = True Then
StarData(1) = Ar_Carto(CA_SelectID, 1)
StarData(6) = Me.CB_SOK.ListIndex + 1
Ar_Carto(CA_SelectID, 6) = StarData(6)
StarData(8) = Ar_Carto(CA_SelectID, 3)
Call ChkSave
End If
End Sub
I restarted TCE, got no error on startup,
and the note I was trying to add which cause the error was not there.
I deleted 3 STAR SYSTEMS notes, with the Cartography Panel,
from 3 systems with selected star class and restarted TCE without problems.
The note were deleted successfully.
I added a star class to ICZ ZZ-Y B4
and then added a note without problem
Restarted TCE and both the class and note were there.
I tried to edit the note on Gliese 76 which still does not have a selected star class and it appeared to work,
but on TCE restart I got the same Error on line 589 and the same Run-time error 9 and debug on accessing the Cartography panel :
Sub GetExploreStatus()
Dim SX As Double, SY As Double, SZ As Double, ZX As Double, ZY As Double, ZZ As Double, SID As Long, ZID As Long, z As Long, SZD As Double, ArDistance(1 To 50000) As Double
Dim ArExTemp As Variant, ArTemp As Variant, ArExploData As Variant, a As Long, zeile As Long, lLZeile As Long, ArStars As Variant, x As Long, ArRegSt As Variant, ArURegSt As Variant
ReDim ArExploData(1 To 100000, 1 To 8)
ArRegSt = Worksheets("DB_Stations").Range("Q2:Q" & AzRegStations + 1)
ArURegSt = Worksheets("DB_Stations_UR").Range("Q2:Q" & AzURegStations + 1)
' Dim t As Double
' t = Timer
' MsgBox Timer - t & " sec", , "Makrolaufzeit"
If ActualStarID <> Worksheets("ExploreData").Cells(2, 1).Value Or JR_Changed = True Then
x = 0
Worksheets("ExploreData").Range("A2:H1000001").ClearContents
Worksheets("Navigation_Sort").Range("S2:S" & AzStars + 1).ClearContents
SID = ActualStarID
SX = Ar_DBStars(SID, 3)
SY = Ar_DBStars(SID, 4)
SZ = Ar_DBStars(SID, 5)
For z = 1 To AzStars
ZID = Ar_DBStars(z, 1) ' Ziel Stern
ZX = Ar_DBStars(ZID, 3)
ZY = Ar_DBStars(ZID, 4)
ZZ = Ar_DBStars(ZID, 5)
ArDistance(z) = Round(Sqr(WorksheetFunction.Power((SX - ZX), 2) + WorksheetFunction.Power((SY - ZY), 2) + WorksheetFunction.Power((SZ - ZZ), 2)) + 0.000001, 2)
If ArDistance(z) <= Jump_Limit Then
x = x + 1
ArExploData(x, 1) = Ar_DBStars(z, 1) ' ID
ArExploData(x, 2) = Ar_DBStars(z, 2) ' Name
ArExploData(x, 3) = Ar_DBStars(z, 8) ' Class
If Ar_DBStars(z, 8) = "" Then
ArExploData(x, 4) = "?"
Else
If Ar_DBStarTypes(Ar_DBStars(z, 8), 3) = 0 Then
ArExploData(x, 4) = "NO" ' Scoop
Else
ArExploData(x, 4) = "YES" ' Scoop
End If
End If
ArExploData(x, 5) = WorksheetFunction.CountIf(Worksheets("DB_Stations").Range("Q2:Q" & AzRegStations + 1), Ar_DBStars(z, 1)) + WorksheetFunction.CountIf(Worksheets("DB_Stations_UR").Range("Q2:Q" & AzURegStations + 1), Ar_DBStars(z, 1)) ' #Stations
ArExploData(x, 6) = Ar_DBStars(z, 6) ' ExploreStatus
ArExploData(x, 7) = ArDistance(z) ' Distance
ArExploData(x, 8) = Ar_DBStars(z, 7) ' Notes
End If
Next z
Worksheets("ExploreData").Range("A2:H" & x + 1) = ArExploData
Worksheets("ExploreData").Activate
ActiveWorkbook.Worksheets("ExploreData").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("ExploreData").Sort.SortFields.Add Key:=Range( _
"G2:G100001"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("ExploreData").Sort
.SetRange Range("A1:H100001")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
AzCarto = Worksheets("Data").Cells(14, 5).Value
Ar_Carto = Worksheets("ExploreData").Range("A2:H" & AzCarto + 1)
End If
End Sub
Dim SX As Double, SY As Double, SZ As Double, ZX As Double, ZY As Double, ZZ As Double, SID As Long, ZID As Long, z As Long, SZD As Double, ArDistance(1 To 50000) As Double
Dim ArExTemp As Variant, ArTemp As Variant, ArExploData As Variant, a As Long, zeile As Long, lLZeile As Long, ArStars As Variant, x As Long, ArRegSt As Variant, ArURegSt As Variant
ReDim ArExploData(1 To 100000, 1 To 8)
ArRegSt = Worksheets("DB_Stations").Range("Q2:Q" & AzRegStations + 1)
ArURegSt = Worksheets("DB_Stations_UR").Range("Q2:Q" & AzURegStations + 1)
' Dim t As Double
' t = Timer
' MsgBox Timer - t & " sec", , "Makrolaufzeit"
If ActualStarID <> Worksheets("ExploreData").Cells(2, 1).Value Or JR_Changed = True Then
x = 0
Worksheets("ExploreData").Range("A2:H1000001").ClearContents
Worksheets("Navigation_Sort").Range("S2:S" & AzStars + 1).ClearContents
SID = ActualStarID
SX = Ar_DBStars(SID, 3)
SY = Ar_DBStars(SID, 4)
SZ = Ar_DBStars(SID, 5)
For z = 1 To AzStars
ZID = Ar_DBStars(z, 1) ' Ziel Stern
ZX = Ar_DBStars(ZID, 3)
ZY = Ar_DBStars(ZID, 4)
ZZ = Ar_DBStars(ZID, 5)
ArDistance(z) = Round(Sqr(WorksheetFunction.Power((SX - ZX), 2) + WorksheetFunction.Power((SY - ZY), 2) + WorksheetFunction.Power((SZ - ZZ), 2)) + 0.000001, 2)
If ArDistance(z) <= Jump_Limit Then
x = x + 1
ArExploData(x, 1) = Ar_DBStars(z, 1) ' ID
ArExploData(x, 2) = Ar_DBStars(z, 2) ' Name
ArExploData(x, 3) = Ar_DBStars(z, 8) ' Class
If Ar_DBStars(z, 8) = "" Then
ArExploData(x, 4) = "?"
Else
If Ar_DBStarTypes(Ar_DBStars(z, 8), 3) = 0 Then
ArExploData(x, 4) = "NO" ' Scoop
Else
ArExploData(x, 4) = "YES" ' Scoop
End If
End If
ArExploData(x, 5) = WorksheetFunction.CountIf(Worksheets("DB_Stations").Range("Q2:Q" & AzRegStations + 1), Ar_DBStars(z, 1)) + WorksheetFunction.CountIf(Worksheets("DB_Stations_UR").Range("Q2:Q" & AzURegStations + 1), Ar_DBStars(z, 1)) ' #Stations
ArExploData(x, 6) = Ar_DBStars(z, 6) ' ExploreStatus
ArExploData(x, 7) = ArDistance(z) ' Distance
ArExploData(x, 8) = Ar_DBStars(z, 7) ' Notes
End If
Next z
Worksheets("ExploreData").Range("A2:H" & x + 1) = ArExploData
Worksheets("ExploreData").Activate
ActiveWorkbook.Worksheets("ExploreData").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("ExploreData").Sort.SortFields.Add Key:=Range( _
"G2:G100001"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("ExploreData").Sort
.SetRange Range("A1:H100001")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
AzCarto = Worksheets("Data").Cells(14, 5).Value
Ar_Carto = Worksheets("ExploreData").Range("A2:H" & AzCarto + 1)
End If
End Sub
And checking my DB again, the 0 in back on GLIESE 76 star class.
So, basically, there is only a problem in the Cartography panel when interacting with notes on systems that does not have a selected star class,
because for some reason TCE add a zero to fill the empty star class.
Last edited:
actual position: correct
position panel: correct
distances in position panel: correct
dest. panel: shows nothing, even when filtering for a system in direct neighborhood
no PP beta.
linkt to db sent per pm
beta 7.3 doesn't have this problem.
beta 7.4 starting sometimes 'flashes' white, while 7.3 doesn't. loading time seems to have increased slightly.
Last edited:
Update (V1.40 Beta 8) released:
Changelog:
- Fixed empty Select Destination panel.
- Fixed Cartography panel and Trade panel Star System Note saving.
- Small changes to export data (SQL) as a first step.
- Fixed Station Database saving issue.
- Fixed Select Destination panel filtering issue.
- Fixed Personal Stats panel saving issue, now a craft (Sidewinder) is preselected, when creating a new commander.
Note to users, that are using the PowerPlay Beta:
TCE wont work correctly, because the netlog file from ED didnt hold the required System/SectorID to detect you in space. Why FD removed it/not added it, i cant say. Lets hope they didnt remove them for the full release.
- Full-Version 1.40 Beta 1 installer: http://bit.ly/1Fhmh0B
- Full-Version 1.40 Beta 1 non-installer: http://bit.ly/1IJtvgi
- Update 1.40 Beta 8: http://bit.ly/1FcWLGE (Full-Version V1.40 Beta 1 required)
Changelog:
- Fixed empty Select Destination panel.
- Fixed Cartography panel and Trade panel Star System Note saving.
- Small changes to export data (SQL) as a first step.
- Fixed Station Database saving issue.
- Fixed Select Destination panel filtering issue.
- Fixed Personal Stats panel saving issue, now a craft (Sidewinder) is preselected, when creating a new commander.
Note to users, that are using the PowerPlay Beta:
TCE wont work correctly, because the netlog file from ED didnt hold the required System/SectorID to detect you in space. Why FD removed it/not added it, i cant say. Lets hope they didnt remove them for the full release.
Last edited:
Same Error line 589
With both the DB I have sent you and the previous one that did not contain any 0 in Star Class I get this error when I start TCE :
and a crash to debug when I open the Cartography panel :
- Restarting TCE after I had jumped to another system (in the db but not previously visited)
I did not get the error on startup and no error or crash on opening Cartography.
- Added and Unregistered station without problem
- Edited that station because there was a space in the name that was not supposed to be there :
SONGBE - PRECOU RT CITY to SONGE - PRECOURT CITY no problem.
- Full market scan and save, no problem
- Quit and re-started TCE, No probem
- Added Star Class and Explored - Partial in Cartography, No Problem
- Quit and re-started TCE, No probem
Heading back to the sector that caused Error line 589 at first start.
Had 4 jumps to do to get there, no problem on the first two, but on the third jump, as soon as my final destination,
Id 15993 in my db, Pastara, (the system that caused Error line 589 at first start)
appeared as the target I got :
Back in Pastara :
- I Removed the STAR SYSTEM note on that system with Access, from TCE.mdb, Star Table,
then restarted TCE and got the same error at I did at first start.
- I removed that Star Class (9) with Access, leaving the cell empty,
then restarted TCE and got the same error at I did at first start.
- Added 1 in the Star Class cell with Access,
then restarted TCE and got the same error at I did at first start.
- Emptied all 3 cells, SOK: Note: and Class, using access,
then restarted TCE and got the same error at I did at first start.
I have to stop for now, will most probably be back tonight (in about 8 hours)
Not sure what else I could try right now anyway.
With both the DB I have sent you and the previous one that did not contain any 0 in Star Class I get this error when I start TCE :
and a crash to debug when I open the Cartography panel :
Sub GetExploreStatus()
Dim SX As Double, SY As Double, SZ As Double, ZX As Double, ZY As Double, ZZ As Double, SID As Long, ZID As Long, z As Long, SZD As Double, ArDistance(1 To 50000) As Double
Dim ArExTemp As Variant, ArTemp As Variant, ArExploData As Variant, a As Long, zeile As Long, lLZeile As Long, ArStars As Variant, x As Long, ArRegSt As Variant, ArURegSt As Variant
ReDim ArExploData(1 To 100000, 1 To 8)
ArRegSt = Worksheets("DB_Stations").Range("Q2:Q" & AzRegStations + 1)
ArURegSt = Worksheets("DB_Stations_UR").Range("Q2:Q" & AzURegStations + 1)
' Dim t As Double
' t = Timer
' MsgBox Timer - t & " sec", , "Makrolaufzeit"
If ActualStarID <> Worksheets("ExploreData").Cells(2, 1).Value Or JR_Changed = True Then
x = 0
Worksheets("ExploreData").Range("A2:H1000001").ClearContents
Worksheets("Navigation_Sort").Range("S2:S" & AzStars + 1).ClearContents
SID = ActualStarID
SX = Ar_DBStars(SID, 3)
SY = Ar_DBStars(SID, 4)
SZ = Ar_DBStars(SID, 5)
For z = 1 To AzStars
ZID = Ar_DBStars(z, 1) ' Ziel Stern
ZX = Ar_DBStars(ZID, 3)
ZY = Ar_DBStars(ZID, 4)
ZZ = Ar_DBStars(ZID, 5)
ArDistance(z) = Round(Sqr(WorksheetFunction.Power((SX - ZX), 2) + WorksheetFunction.Power((SY - ZY), 2) + WorksheetFunction.Power((SZ - ZZ), 2)) + 0.000001, 2)
If ArDistance(z) <= Jump_Limit Then
x = x + 1
ArExploData(x, 1) = Ar_DBStars(z, 1) ' ID
ArExploData(x, 2) = Ar_DBStars(z, 2) ' Name
ArExploData(x, 3) = Ar_DBStars(z, 8) ' Class
If CLng(Ar_DBStars(z, 8)) = 0 Then
ArExploData(x, 4) = "?"
Else
If Ar_DBStarTypes(Ar_DBStars(z, 8), 3) = 0 Then
ArExploData(x, 4) = "NO" ' Scoop
Else
ArExploData(x, 4) = "YES" ' Scoop
End If
End If
ArExploData(x, 5) = WorksheetFunction.CountIf(Worksheets("DB_Stations").Range("Q2:Q" & AzRegStations + 1), Ar_DBStars(z, 1)) + WorksheetFunction.CountIf(Worksheets("DB_Stations_UR").Range("Q2:Q" & AzURegStations + 1), Ar_DBStars(z, 1)) ' #Stations
ArExploData(x, 6) = Ar_DBStars(z, 6) ' ExploreStatus
ArExploData(x, 7) = ArDistance(z) ' Distance
ArExploData(x, 8) = Ar_DBStars(z, 7) ' Notes
End If
Next z
Worksheets("ExploreData").Range("A2:H" & x + 1) = ArExploData
Worksheets("ExploreData").Activate
ActiveWorkbook.Worksheets("ExploreData").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("ExploreData").Sort.SortFields.Add Key:=Range( _
"G2:G100001"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("ExploreData").Sort
.SetRange Range("A1:H100001")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
AzCarto = Worksheets("Data").Cells(14, 5).Value
Ar_Carto = Worksheets("ExploreData").Range("A2:H" & AzCarto + 1)
End If
End Sub
Dim SX As Double, SY As Double, SZ As Double, ZX As Double, ZY As Double, ZZ As Double, SID As Long, ZID As Long, z As Long, SZD As Double, ArDistance(1 To 50000) As Double
Dim ArExTemp As Variant, ArTemp As Variant, ArExploData As Variant, a As Long, zeile As Long, lLZeile As Long, ArStars As Variant, x As Long, ArRegSt As Variant, ArURegSt As Variant
ReDim ArExploData(1 To 100000, 1 To 8)
ArRegSt = Worksheets("DB_Stations").Range("Q2:Q" & AzRegStations + 1)
ArURegSt = Worksheets("DB_Stations_UR").Range("Q2:Q" & AzURegStations + 1)
' Dim t As Double
' t = Timer
' MsgBox Timer - t & " sec", , "Makrolaufzeit"
If ActualStarID <> Worksheets("ExploreData").Cells(2, 1).Value Or JR_Changed = True Then
x = 0
Worksheets("ExploreData").Range("A2:H1000001").ClearContents
Worksheets("Navigation_Sort").Range("S2:S" & AzStars + 1).ClearContents
SID = ActualStarID
SX = Ar_DBStars(SID, 3)
SY = Ar_DBStars(SID, 4)
SZ = Ar_DBStars(SID, 5)
For z = 1 To AzStars
ZID = Ar_DBStars(z, 1) ' Ziel Stern
ZX = Ar_DBStars(ZID, 3)
ZY = Ar_DBStars(ZID, 4)
ZZ = Ar_DBStars(ZID, 5)
ArDistance(z) = Round(Sqr(WorksheetFunction.Power((SX - ZX), 2) + WorksheetFunction.Power((SY - ZY), 2) + WorksheetFunction.Power((SZ - ZZ), 2)) + 0.000001, 2)
If ArDistance(z) <= Jump_Limit Then
x = x + 1
ArExploData(x, 1) = Ar_DBStars(z, 1) ' ID
ArExploData(x, 2) = Ar_DBStars(z, 2) ' Name
ArExploData(x, 3) = Ar_DBStars(z, 8) ' Class
If CLng(Ar_DBStars(z, 8)) = 0 Then
ArExploData(x, 4) = "?"
Else
If Ar_DBStarTypes(Ar_DBStars(z, 8), 3) = 0 Then
ArExploData(x, 4) = "NO" ' Scoop
Else
ArExploData(x, 4) = "YES" ' Scoop
End If
End If
ArExploData(x, 5) = WorksheetFunction.CountIf(Worksheets("DB_Stations").Range("Q2:Q" & AzRegStations + 1), Ar_DBStars(z, 1)) + WorksheetFunction.CountIf(Worksheets("DB_Stations_UR").Range("Q2:Q" & AzURegStations + 1), Ar_DBStars(z, 1)) ' #Stations
ArExploData(x, 6) = Ar_DBStars(z, 6) ' ExploreStatus
ArExploData(x, 7) = ArDistance(z) ' Distance
ArExploData(x, 8) = Ar_DBStars(z, 7) ' Notes
End If
Next z
Worksheets("ExploreData").Range("A2:H" & x + 1) = ArExploData
Worksheets("ExploreData").Activate
ActiveWorkbook.Worksheets("ExploreData").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("ExploreData").Sort.SortFields.Add Key:=Range( _
"G2:G100001"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("ExploreData").Sort
.SetRange Range("A1:H100001")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
AzCarto = Worksheets("Data").Cells(14, 5).Value
Ar_Carto = Worksheets("ExploreData").Range("A2:H" & AzCarto + 1)
End If
End Sub
- Restarting TCE after I had jumped to another system (in the db but not previously visited)
I did not get the error on startup and no error or crash on opening Cartography.
- Added and Unregistered station without problem
- Edited that station because there was a space in the name that was not supposed to be there :
SONGBE - PRECOU RT CITY to SONGE - PRECOURT CITY no problem.
- Full market scan and save, no problem
- Quit and re-started TCE, No probem
- Added Star Class and Explored - Partial in Cartography, No Problem
- Quit and re-started TCE, No probem
Heading back to the sector that caused Error line 589 at first start.
Had 4 jumps to do to get there, no problem on the first two, but on the third jump, as soon as my final destination,
Id 15993 in my db, Pastara, (the system that caused Error line 589 at first start)
appeared as the target I got :
Back in Pastara :
- I Removed the STAR SYSTEM note on that system with Access, from TCE.mdb, Star Table,
then restarted TCE and got the same error at I did at first start.
- I removed that Star Class (9) with Access, leaving the cell empty,
then restarted TCE and got the same error at I did at first start.
- Added 1 in the Star Class cell with Access,
then restarted TCE and got the same error at I did at first start.
- Emptied all 3 cells, SOK: Note: and Class, using access,
then restarted TCE and got the same error at I did at first start.
I have to stop for now, will most probably be back tonight (in about 8 hours)
Not sure what else I could try right now anyway.
Last edited:
Im getting
"Method 'Fields of Objects'_Recordset' Failed"
When creating a NEW COMMANDER.
I filled out all the fields.
I am using "TCE_V1.40beta8_update"
I get the same in "TCE_V1.40beta7_update"
Using Excel 2013
Regards
"Method 'Fields of Objects'_Recordset' Failed"
When creating a NEW COMMANDER.
I filled out all the fields.
I am using "TCE_V1.40beta8_update"
I get the same in "TCE_V1.40beta7_update"
Using Excel 2013
Regards
Thanks for reporting. I am changing the export to SQL atm, releasing an update later this day, that should fix your problem. Stay tuned.
Update (V1.40 Beta 9) released:
Changelog:
- Fixed Cartography panel issue with the Star Class
- Personal Stats exports changed to SQL, preventing issues on creating/saving.
- Full-Version 1.40 Beta 1 installer: http://bit.ly/1Fhmh0B
- Full-Version 1.40 Beta 1 non-installer: http://bit.ly/1IJtvgi
- Update 1.40 Beta 9: http://bit.ly/1HXaXYv (Full-Version V1.40 Beta 1 required)
Changelog:
- Fixed Cartography panel issue with the Star Class
- Personal Stats exports changed to SQL, preventing issues on creating/saving.
Update 1.40 Beta 9 - First test run - Great improvement ! - Almost there !!!
No errors on start in the same system that was previously giving me some !
- Deleted and Added a STAR SYSTEM note from the Cartography panel to stations with and without star class - Check
- Deleted and Added a STAR SYSTEM and Station notes from the Trade Panel - Check
The STAR SYSTEM note is also gone instantly from Cartography but the note Icon remains until TCE is restarted.
- Added a Station, Star System Entry and Sector note from the Travel LogBook - Check
- Deleted a Station note from the Travel LogBook - Check
- Deleting a STAR SYSTEM ENTRY or SECTOR note from the TRAVEL LOGBOOK does not crash Excel but still gives the error :
-2147417848 Method 'Fields' of object '_Recordset' failed ( no more info or debug option )
and there is still no color changes or Icons to differentiate entries in the TRAVEL LOGBOOK that have notes from the ones that don't.
- No changes when running with ED on Steam
No errors on start in the same system that was previously giving me some !
- Deleted and Added a STAR SYSTEM note from the Cartography panel to stations with and without star class - Check
- Deleted and Added a STAR SYSTEM and Station notes from the Trade Panel - Check
The STAR SYSTEM note is also gone instantly from Cartography but the note Icon remains until TCE is restarted.
- Added a Station, Star System Entry and Sector note from the Travel LogBook - Check
- Deleted a Station note from the Travel LogBook - Check
- Deleting a STAR SYSTEM ENTRY or SECTOR note from the TRAVEL LOGBOOK does not crash Excel but still gives the error :
-2147417848 Method 'Fields' of object '_Recordset' failed ( no more info or debug option )
and there is still no color changes or Icons to differentiate entries in the TRAVEL LOGBOOK that have notes from the ones that don't.
- No changes when running with ED on Steam
Last edited:
Hi Eventure
Have you or anyone else messaged Michael Brookes on here or left a bug report for the Powerplay Beta asking nicely for the Netlog to be changed back so TCE works again in 1.3. I'd fear that if its not done in Beta it won't get changed once fully released. Happy to do so myself if no one else has (don't want to plague him/them!)
Have you or anyone else messaged Michael Brookes on here or left a bug report for the Powerplay Beta asking nicely for the Netlog to be changed back so TCE works again in 1.3. I'd fear that if its not done in Beta it won't get changed once fully released. Happy to do so myself if no one else has (don't want to plague him/them!)
Last edited:
Hi Eventure,
I have a couple of problems. 1.4 beta 9 gives an error. Error in Startsequence. Error line: 592. Error: (13) Type mismatch. I get this with a clean install.
Second problem is that the old DB has duplicate station entries. Also not all stations appear in the destination panel(even none duplicated station). is there a distance filter set for the destination panel and can it be changed?
I have a couple of problems. 1.4 beta 9 gives an error. Error in Startsequence. Error line: 592. Error: (13) Type mismatch. I get this with a clean install.
Second problem is that the old DB has duplicate station entries. Also not all stations appear in the destination panel(even none duplicated station). is there a distance filter set for the destination panel and can it be changed?
Last edited:
I have the same issue with 1.4 beta 9
Ups, thanks for report, it is no big issue, found the error and will be fixed, ignore it till next release.
The stations listed are all in your selected trade range at the Trade panel.
No, i didnt report. Its not an issue on the FD side, but you are open to ask them, if they can reimplent the infos in the netlog file.
Good find, found the problem and will be fixed also in next update. Thanks
No errors on start in the same system that was previously giving me some !
- Deleted and Added a STAR SYSTEM note from the Cartography panel to stations with and without star class - Check
- Deleted and Added a STAR SYSTEM and Station notes from the Trade Panel - Check
The STAR SYSTEM note is also gone instantly from Cartography but the note Icon remains until TCE is restarted.
- Added a Station, Star System Entry and Sector note from the Travel LogBook - Check
- Deleted a Station note from the Travel LogBook - Check
- Deleting a STAR SYSTEM ENTRY or SECTOR note from the TRAVEL LOGBOOK does not crash Excel but still gives the error :
-2147417848 Method 'Fields' of object '_Recordset' failed ( no more info or debug option )
and there is still no color changes or Icons to differentiate entries in the TRAVEL LOGBOOK that have notes from the ones that don't.
Working on it.
@New Users (V1.40 Beta 9):
If you have an error (line 592) when loading TCE, simply press ENTER to continue to load. Its only a small problem not setting correctly the "Search Route To" dropbox at start.
Last edited:
Hi Eventure.
I just got the following error when I was saving the commodities data:
I just got the following error when I was saving the commodities data:
Code:
If TLocked = False Then
Worksheets("Werte").Cells(12, 2).Value = 0
Worksheets("Werte").Cells(13, 2).Value = 0
DES_StarID = 0
DES_StationID = 0
NoTarget = True
Call Auto_Destination
End If
DoEvents
If NoTarget = False Then
Call DES_Commodities
End If
Call Position_Panel
Call Destination_Panel
Call Trade_Advisor
Call Panel_Trade.POS_Display
Call Panel_Trade.DES_Display
DoEvents
[COLOR=#ffff00][B]Panel_Trade.CB_Route.Text = DES_SysData(DES_StationID, 3)[/B][/COLOR]
End If
Saving = False
PanelOpen = False
ScanHalt = False
Me.Hide
If Show_Trade = True And AzRegStations > 1 Then
Panel_Trade.Show
DoEvents
If Menu_Mode <> "CLASSIC" Then
Panel_Picto.BTN_Prices.BorderStyle = fmBorderStyleNone
Panel_Picto.BTN_Trade.BorderStyle = fmBorderStyleSingle
Else
If Main_Panel = "TOP" Then
Panel_Menu_top.BTN_Commodity_Layer.BackColor = 0
Panel_Menu_top.BTN_Commodity.ForeColor = &HFFFFFF
Panel_Menu_top.BTN_Trade_Layer.BackColor = TCE_Color
Panel_Menu_top.BTN_Trade_Label.ForeColor = 0superb aproch.
i must have done something wrong somewhere tho
after installing , setting up the directories , moving ocr into its folder etc it keeps locking up on me . no error popup , no waiting/busy message, no task to end . just dead in the water , leving a restart as only option.
this happens randomly when clicking on an option
i got the dl from op a few hours ago , it claims V1.04 and 1.40 , typos i hope
i must have done something wrong somewhere tho
after installing , setting up the directories , moving ocr into its folder etc it keeps locking up on me . no error popup , no waiting/busy message, no task to end . just dead in the water , leving a restart as only option.
this happens randomly when clicking on an option
i got the dl from op a few hours ago , it claims V1.04 and 1.40 , typos i hope
My apologies if that has been asked/suggested before though:
I would like to be able to import specific stations/systems from EDDN and of course export those also beforehand.
In game ( how unrealistic it is that theres no in universe communication regarding industry and price information between systems like a GalIndustryNet) i would think that every trader would pay a local informant/agent after he has visited a station to keep him updated.
So from my perspective i would love to have the choice to query the EDDN from TCE for stations i have discovered and visited !.
And of course to support the EDDN by posting prices before being able to query said station in the future.
Whats your opinion about that ?
Regards,
NeutronCorean
I would like to be able to import specific stations/systems from EDDN and of course export those also beforehand.
In game ( how unrealistic it is that theres no in universe communication regarding industry and price information between systems like a GalIndustryNet) i would think that every trader would pay a local informant/agent after he has visited a station to keep him updated.
So from my perspective i would love to have the choice to query the EDDN from TCE for stations i have discovered and visited !.
And of course to support the EDDN by posting prices before being able to query said station in the future.
Whats your opinion about that ?
Regards,
NeutronCorean
I understood your request, but this will not happen! Thats not my view of gameplay and TCE.
There are plenty of other tools, that using the way of crowdsource data. TCE makes his own aside of it.
Please check, if your Office installation is up-to-date. V1.04? Where?
Last edited:
- Status