Did you have other workbooks of excel open? Please check that all instances of excel are closed (Taskmanager Excel.exe). If so and the error still present, add the codeline: ThisWorkbook.Activate before the AppPath = ActiveWorkbook.Path
Save it and restart. Please give feedback. Thanks.
After pressing SAVE, all entered data are saved to the database. When opened again the panel shows "Modify Star System" not "Add Star System" and the X-, Y- and Z-values are shown. If you want to change the position of the star system, you are in, you have to enter the distances to the references again, in case of wrong values typed in.
From the error I guessed that it might have been an open file in the background or something like that.
So I closed everything, re copied the 1.35d files over in my install directory. (just in case)
No more error on opening !
The New Database WARES now opens properly !
The COMMODITY button turning orange and to NO STATION, is a very nice feature too !!!
There is still one minor and one major problem:
The minor one is this:

But everyting works and if I hide it and open it again all the number are as they should be !
The Major One :
TCE does not save everything (or I'm using it wrong lol still experimenting here)
When fill out the STAR SYSTEM info with a note, a state, the coordinates...
Click SAVE, it turns into WAIT for about 5 seconds then the STAR SYSTEM window closes.
I open it again and it goes back to MODIFY STAR SYSTEM RECORD,
I see the info I previously entered for a second then dissolve back to what it was before I entered anything.
Should not my SPECIAL NOTE and STATE OF EXPLORATION still be there to be modified ?
And where can I see this SPECIAL NOTE again afterwards ?
I have tried to see the see/add a note by clicking on add in the CARTOGRAPHY panel and got :
Run-time error '1004':
Application-defined or object-defined error
Can't execute code in break
Private Sub UserForm_Activate()
Dim sngWidth As Single, sngHeight As Single
Dim XFactor As Single ' Horizontal resize ratio
Dim YFactor As Single ' Vertical resize ratio
XFactor = GetSystemMetrics(SM_CXSCREEN) / X_RESOLUTION
YFactor = GetSystemMetrics(SM_CYSCREEN) / Y_RESOLUTION
sngHeight = 900
sngWidth = 1430
Me.Width = GetSystemMetrics(SM_CXSCREEN) * 0.75
Me.Height = GetSystemMetrics(SM_CYSCREEN) * 0.75
Me.Zoom = Fix(WorksheetFunction.Min(Me.Width / sngWidth, Me.Height / sngHeight) * 100)
Me.Left = Panel_DB_Stars.Left * XFactor
Me.Top = (Panel_Cartography.Top + Panel_Cartography.Height + 12) * YFactor
Me.TextBox1.Value = Worksheets("DB_Stars").Cells(Worksheets("Werte").Cells(130, 2).Value, 7).Value
Me.Head.Caption = Worksheets("Werte").Cells(123, 2).Text
Me.BTN_Save.Visible = False
End Sub
Last edited: