Now trying to edit my dates and times for those entries the in the Commanders Log when I was using Beta 1. Get a Run time error 13 (I think, box partially obscured) Type mismatch, when I click save, then TCE crashes out.
When click debug, in Panel_LOG_Logbook (Code) it stops at highlighted row below:
If Me.BTN_Com2_Label.Caption = "SAVE" And Me.TL_TB_Date.Visible = True Then
iTxt = "TL_Date"
iName = iTxt & TL_SelectID - Me.TL_ScrollBar.Value
Me.Controls(iName).Caption = Me.TL_TB_Date.Value
If Ar_DBLogbook(TL_SelectID, 2) <> CDate(Me.TL_TB_Date.Value) Then [THIS ROW IS HIGHLIGHTED YELLOW]
Ar_DBLogbook(TL_SelectID, 2) = CDate(Me.TL_TB_Date.Value)
Worksheets("DB_Log").Cells(TL_SelectID + 1, 2).Value = CDate(Me.TL_TB_Date.Value)
End If
Me.TL_TB_Date.Visible = False
Me.Controls(iName).Visible = True
Log_edit = True
Call SQL_Export_Mod(AppPath & "\DB\Logbook.mdb", "Log")
Log_edit = False
Call Command_Buttons_Reset
Me.BTN_Com1.Visible = True
Me.BTN_Com1_Back.Visible = True
Me.BTN_Com1_Label.Caption = "MODIFY"
Me.BTN_Com1_Label.Visible = True
Me.BTN_Com2.Visible = True
Me.BTN_Com2_Back.Visible = True
Me.BTN_Com2_Label.Caption = "DELETE"
Me.BTN_Com2_Label.Visible = True
Me.BTN_Com3.Visible = True
Me.BTN_Com3_Back.Visible = True
Me.BTN_Com3_Label.Caption = "STORE"
Me.BTN_Com3_Label.Visible = True
Me.BTN_Com4.Visible = True
Me.BTN_Com4_Back.Visible = True
Me.BTN_Com4_Label.Caption = "ACTIVITY"
Me.BTN_Com4_Label.Visible = True
Exit Sub
End If