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

• #8435 Oly őstag

  Új Válasz 2010-10-15 17:29:28 #8435

  Ú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

  

  Oly

  őstag

  Sziasztok!

  Bátorkodtam belekezdeni a ciklusokba is!

  A feladat az, hogy van kétszer kettő OptionButton.
  Ezzel lehet kiválasztani, hogy Fizetős/Ingyenes (fizeto, ingyeno) és Futáros/Postai (futaro, postao) kézbesítést kérünk-e.

  A CommandButton5 megnyomásával elmenti a beírt adatokat. Azt szeretném, hogy a "MENTÉS"-sel jelzett parancsom (ezt nem másoltam be, mert irreleváns), csak akkor fusson le, ha nem volt MsgBox-os figyelmeztetés. (Értelem szerűen, akkor, ha nincs egyik sem kijelölve...)
  Valamint lehet-e egyszerűsíteni ezt az if. thenes vackot, mert lesz olyan Formom is, ahol 6-7 feltételt fogok vizsgálni, azokon belül is 3-4 opciót.

  Private Sub CommandButton5_Click()
  Dim fiz As String
  If ingyeno = "True" Then
  fiz = "Ingyenes"
  Else
  If fizeto = "True" Then
  fiz = "Fizetős"
  Else
  MsgBox "Válassz díjazást!"
  End If
  End If
  Dim fut As String
  If futaro = "True" Then
  fut = "Futár"
  Else
  If postao = "True" Then
  fut = "Posta"
  Else
  MsgBox "Válassz szállítási módot!"
  End If
  End If
  "MENTÉS"
  End Sub

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