Private Sub B4XPage_Appear
ShowTable
mIntCount = SQL1.ExecQuerySingleResult("SELECT count(*) FROM tblmonatjahr WHERE monat = '" & mMounth & "' AND jahr = '" & mYear & "'")
If mIntCount = 1 Then
btnNeuerMonat.TextColor = fx.Colors.RGB(255,0,0)
btnNeuerMonat.Enabled = False
' btnNeuerMonat.Visible = False
Else
btnNeuerMonat.TextColor = fx.Colors.RGB(0,0,0)
btnNeuerMonat.Enabled = True
' btnNeuerMonat.Visible = True
End If
End Sub