Persisiting New STAR error
Still getting the same error entering a new system in the STAR DATABASE if I do not put at least a space in the note box.
With previous version, TCE would recover on restart.
With 1.36b it seems I will have to replace my database with a backup because I keep getting
Error 9
Sub GetExploreData()
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
ReDim ArExTemp(1 To 100, 1 To 5), ArExploData(1 To 1000, 1 To 5)
ReDim ArTemp(1 To AzStars)
' Dim t As Double
' t = Timer
' MsgBox Timer - t & " sec", , "Makrolaufzeit"
x = 0
Worksheets("ExploreData").Range("A2:E1000001").ClearContents
Worksheets("Navigation_Sort").Range("S2:S" & AzStars + 1).ClearContents
Application.Calculation = xlCalculationManual
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)
ArExploData(x, 2) = Ar_DBStars(z, 2)
ArExploData(x, 3) = ArDistance(z)
ArExploData(x, 4) = Ar_DBStars(z, 6)
ArExploData(x, 5) = Ar_DBStars(z, 7)
End If
Deleted TCE.idb
Replaced all mdb with latest backup (thank you for making that automatically !!!)
Added the same star with a space in the note box without any problem.
Spent a few hours with it, no other bugs for me so far
