Follow along with the video below to see how to install our site as a web app on your home screen.
Anmerkung: This feature currently requires accessing the site using the built-in Safari browser.
Sub suBT_click()
Dim x As Integetr
For x = 0 to Me.Controls.Count
If Not Me.Controls(x).Enabled Then MsgBox Me.Controls(x).Caption
Next x
End Sub
Private Sub Prüfen()
Dim intZähler As Integer
Dim blnMindEinerAktiv As Boolean
For intZähler = Me.Option1.LBound To Me.Option1.UBound
blnMindEinerAktiv = Me.Option1(intZähler).Value Or blnMindEinerAktiv
Next
If Not blnMindEinerAktiv Then MsgBox "Kein Option-Button angeklickt!"
End Sub