- Google Pixel Watch 4 – Hé, Google, mennyi az idő?
- Honor Magic6 Pro - kör közepén számok
- Samsung Galaxy A55 - új év, régi stratégia
- iOS alkalmazások
- Samsung Galaxy S10e - esszenciális
- Apple Watch
- Honor Win 2: nagyobb kijelző, új csúcs-SoC, marad a 10 000 mAh-s akku
- EarFun Air Pro 4+ – érdemi plusz
- Itt a Galaxy S26 széria: az Ultra fejlődött, a másik kettő alig
- Telekom mobilszolgáltatások
-
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
- NVIDIA GeForce RTX 5070 / 5070 Ti (GB205 / 203)
- Tőzsde és gazdaság
- Soundbar, soundplate, hangprojektor
- TCL LCD és LED TV-k
- Interactive Brokers társalgó
- sziku69: Fűzzük össze a szavakat :)
- Ingatlanos topic!
- Google Pixel Watch 4 – Hé, Google, mennyi az idő?
- Honor Magic6 Pro - kör közepén számok
- AMD Ryzen 9 / 7 / 5 7***(X) "Zen 4" (AM5)
- További aktív témák...
- Windows 10/11 Home/Pro , Office 2024 kulcsok
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- Kaspersky, BitDefender, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- BESZÁMÍTÁS! Microsoft XBOX Series S 512GB játékkonzol garanciával hibátlan működéssel
- Dell Latitude 7390 13,3" FHD IPS, i5-i7, 8-16GB RAM, SSD, jó akku, számla, 6 hó gar
- Új Creative Sound Blaster JAM V2
- HP EliteBook 640 G9 - i5-1235U 16GB 1000GB 1 év garancia
- Dell XPS 15 9500 - 15,6" hibás kijelző, i7 10750H, 8GB RAM, Nvidia GTX 1650 Ti 4GB VGA
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest

Fferi50
