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

• Oly őstag

  #8435 2010-10-15 17:29:28

  Új Válasz

  Ú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

  

  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