- Google Pixel topik
- Tényleg kicsit más lesz a Xiaomi 17 Ultra európai különkiadása
- iPhone topik
- Milyen okostelefont vegyek?
- Apple iPhone 17 Pro Max – fennsík
- Honor Magic6 Pro - kör közepén számok
- Honor Magic8 Pro - bevált recept kölcsönvett hozzávalókkal
- OnePlus 15 - van plusz energia
- Poco F8 Ultra – forrónaci
- Nothing Phone (3a) és (3a) Pro - az ügyes meg sasszemű
-
Mobilarena
A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
Kérdés felvetése előtt olvasd el, ha még nem tetted.
Új hozzászólás Aktív témák
-
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
- Projektor topic
- Google Pixel topik
- Nintendo Switch 2
- Tőzsde és gazdaság
- Lakáshitel, lakásvásárlás
- One otthoni szolgáltatások (TV, internet, telefon)
- Tényleg kicsit más lesz a Xiaomi 17 Ultra európai különkiadása
- iPhone topik
- Multimédiás / PC-s hangfalszettek (2.0, 2.1, 5.1)
- The Division 2 (PC, XO, PS4)
- További aktív témák...
- Lenovo T490S i5 8365U, 16GB RAM, 256GB SSD, jó akku, számla, 6 hó gar
- ÁRGARANCIA!Épített KomPhone i5 10400F 16/32/64GB RAM RTX 3050 6GB GAMER PC termékbeszámítással
- Bomba ár! Dell Latitude E7450 - i5-5GEN I 8GB I 128GB SSD I 14" HD I HDMI I Cam I W10 I Garancia!
- Lenovo Thinkpad X230 TABLET,12.5",HD IPS KIJELZŐ,i5-3320M,4GB DDR3,320GB HDD,WIN10
- Bomba ár! Dell Latitude E5450 - i7-5GEN I 8GB I 500GB I 14" HD I HDMI I Cam I W10 I Gari!
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest

Fferi50
