Új hozzászólás Aktív témák

• #35812 Delila_1 veterán lenkei83 #35810

  Új Válasz 2017-07-26 10:25:44 #35812

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz lenkei83 #35810 üzenetére

  Másik megoldás (Feriéhez képest): tedd keretbe a CheckBoxokat, és egy gombhoz rendeld a lekérdezést.

  Private Sub CommandButton1_Click()
Dim i As Object, f As Boolean
For Each i In Frame1.Controls
If i = False Then f = True
Next

If f Then MsgBox "Nincs minden jejölőnégyzet bejelölve", vbInformation
End Sub

• #35811 Fferi50 Topikgazda lenkei83 #35810

  Új Válasz 2017-07-26 10:21:26 #35811

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Fferi50

  Topikgazda

  válasz lenkei83 #35810 üzenetére

  Szia!

  Sajnos egy lépésben nem fog menni. Javaslom, vegyél fel egy Public változót és hozzá egy függvényt.
  A függvényben a lekérdezés:
  valtozo = Me.CheckBox1 And Me.CheckBox2 And Me.CheckBox3 stb.

  Ez csak akkor True, ha minden CheckBox be van pipálva.

  (Némi kis trükkel elérhető az is, hogy megtudd, melyik nincs bepipálva:
  valtozo = -Me.CheckBox1 * 1 Or -Me.CheckBox2 * 2 Or -Me.CheckBox3 * 4
  Akkor minden rendben, ha az értéke 7.
  Ha 6, akkor az első hiányzik, ha 5 akkor a második, ha 3 akkor a harmadik.)

  Ha minden kattintás eseményben meghívod a függvényt, akkor azonnal tudod, hogy mind be van-e jelölve.

  Üdv.

Új hozzászólás Aktív témák