vb@rchiv · Diskussionsforen · Re: Was mache ich falsch?

VB Classic
VB.NET
ADO.NET
VBA
C#

NEU! sevCoolbar 3.0 - Professionelle Toolbars im modernen Design!

HOME WORKSHOPS TIPPS & TRICKS BEFEHLSREFERENZ API-REFERENZ FAQ

··· FORUM

Forenübersicht Suchen Forumsregeln

Allgemeine Foren

Allgemeine Fragen Fragen zur vb@rchiv CD Tipps & Workshops Suche VB Code

VB.NET, C#

Ein-/Umsteiger Fortgeschrittene ADO.NET/Datenbanken ASP.NET/WebServices C# Ecke

VB Classic 5/6, VBA

Einsteiger Fortgeschrittene ActiveX Datenbanken Windows API VB Skript (VBS)

Sonderforen

sev-Komponenten Jobs Suche/Gesuche Projekte & Betatester

DOWNLOAD TOOLBESPRECHUNG BÜCHERECKE MARKETPLACE GRAFIK & DESIGN VB-SEITEN

[484 User online]
[456 im Forum]

Partnerseiten
Top 5 Partnerlinks

Weitere...

Entwickler / Welt

··· Diskussionsforen · Visual-Basic Einsteiger

Sie sind aktuell nicht angemeldet. Funktionen: Einloggen | Neu registrieren | Suchen

Visual-Basic Einsteiger

Re: Was mache ich falsch?

Autor: RalfH
Datum: 29.10.02 01:08

Hi, ich bin wegen der Übersichtlichkeit nur auf den Fehler und seine Behebung eingegangen. Zum besseren Verständnis jetzt den komplett richtigen Sourcecode für Sub Commandrsv_Click: ------------------------------------------------ Private Sub Commandrsv_Click() 'Verkehr If Option7.Value = True Then 'FALSCH 'ELSEIF Option6.Value And Option1.Value = True Then 'RICHTIG If Option6.Value And Option1.Value = True Then Angebotsübersicht.Text38 = Averkehrosb + Aclub ElseIf Option6.Value And Option2.Value = True Then Angebotsübersicht.Text38 = Averkehrmsb + Aclub ElseIf Option5.Value And Option1.Value = True Then Angebotsübersicht.Text38 = Averkehrosb + Aclub ElseIf Option5.Value And Option2.Value = True Then Angebotsübersicht.Text38 = Averkehrmsb + Aclub ElseIf Option4.Value And Option1.Value = True Then Angebotsübersicht.Text38 = Averkehrosb + Aclub ElseIf Option4.Value And Option2.Value = True Then Angebotsübersicht.Text38 = Averkehrmsb + Aclub ElseIf Option3.Value And Option1.Value = True Then Angebotsübersicht.Text38 = Averkehrosbb + Aclub ElseIf Option3.Value And Option2.Value = True Then Angebotsübersicht.Text38 = Averkehrmsbb + Aclub End If 'DIESES <END IF> KOMMT NEU HINZU End If 'Verkehr mit Familie If Option8.Value = True Then 'FALSCH 'ElseIf Option5.Value Then 'RICHTIG If Option5.Value Then Angebotsübersicht.Text38 = 0 ElseIf Option6.Value Then Angebotsübersicht.Text38 = 0 ElseIf Option4.Value And Option1.Value = True Then Angebotsübersicht.Text38 = Averkehrfamosb + Aclub ElseIf Option4.Value And Option2.Value = True Then Angebotsübersicht.Text38 = Averkehrfammsb + Aclub ElseIf Option3.Value And Option1.Value = True Then Angebotsübersicht.Text38 = Averkehrfamosbb + Aclub ElseIf Option3.Value And Option2.Value = True Then Angebotsübersicht.Text38 = Averkehrfammsbb + Aclub End If 'DIESES <END IF> KOMMT NEU HINZU End If 'Privat und Beruf If Option9.Value = True Then 'FALSCH 'ElseIf Option6.Value And Option1.Value = True Then 'RICHTIG If Option6.Value And Option1.Value = True Then Angebotsübersicht.Text38 = Aprberseosb + Aclub ElseIf Option6.Value And Option2.Value = True Then Angebotsübersicht.Text38 = Aprbersemsb + Aclub ElseIf Option5.Value And Option1.Value = True Then Angebotsübersicht.Text38 = 0 ElseIf Option5.Value And Option2.Value = True Then Angebotsübersicht.Text38 = Aprbersimsb + Aclub ElseIf Option4.Value And Option1.Value = True Then Angebotsübersicht.Text38 = Aprberosb + Aclub ElseIf Option4.Value And Option2.Value = True Then Angebotsübersicht.Text38 = Aprbermsb + Aclub ElseIf Option3.Value And Option1.Value = True Then Angebotsübersicht.Text38 = Aprberosbb + Aclub ElseIf Option3.Value And Option2.Value = True Then Angebotsübersicht.Text38 = Aprbermsbb + Aclub End If 'DIESES <END IF> KOMMT NEU HINZU End If 'Privat, Beruf und Verkehr If Option10.Value = True Then 'FALSCH 'ElseIf Option6.Value And Option1.Value = True Then 'RICHTIG If Option6.Value And Option1.Value = True Then Angebotsübersicht.Text38 = Aprberverseosb + Aclub ElseIf Option6.Value And Option2.Value = True Then Angebotsübersicht.Text38 = Aprberversemsb + Aclub ElseIf Option5.Value And Option1.Value = True Then Angebotsübersicht.Text38 = 0 ElseIf Option5.Value And Option2.Value = True Then Angebotsübersicht.Text38 = Aprberversimsb + Aclub ElseIf Option4.Value And Option1.Value = True Then Angebotsübersicht.Text38 = Aprberverosb + Aclub ElseIf Option4.Value And Option2.Value = True Then Angebotsübersicht.Text38 = Aprbervermsb + Aclub ElseIf Option3.Value And Option1.Value = True Then Angebotsübersicht.Text38 = Aprberverosbb + Aclub ElseIf Option3.Value And Option2.Value = True Then Angebotsübersicht.Text38 = Aprbervermsbb + Aclub End If 'DIESES <END IF> KOMMT NEU HINZU End If Kundendaten.Label8 = "OK" Rechtsschutz.Hide End Sub ------------------------------------------------ Ralf

alle Nachrichten anzeigen

Gesamtübersicht | Zum Thema | Suchen

Thema

Views

Autor

Datum

Was mache ich falsch?	184	rainmanx	28.10.02 14:54
Re: Was mache ich falsch?	277	michi-bib	28.10.02 15:31
Re: Was mache ich falsch?	62	rainmanx	28.10.02 16:00
Re: Was mache ich falsch?	275	michi-bib	28.10.02 18:07
Re: Was mache ich falsch?	56	rainmanx	28.10.02 18:19
Re: Was mache ich falsch?	275	MrByte	28.10.02 15:37
Re: Was mache ich falsch?	59	RalfH	28.10.02 20:12
Re: Was mache ich falsch?	267	rainmanx	28.10.02 22:31
Re: Was mache ich falsch?	279	rainmanx	28.10.02 23:44
Re: Was mache ich falsch?	357	unbekannt	29.10.02 00:03
Re: Was mache ich falsch?	75	RalfH	29.10.02 01:08
Re: Was mache ich falsch?	59	RalfH	29.10.02 01:26
Re: Was mache ich falsch?	253	rainmanx	29.10.02 10:18

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen | Neu registrieren

Funktionen: Zum Thema | Gesamtübersicht Suchen

sevGraph (VB/VBA)

Grafische Auswertungen
Präsentieren Sie Ihre Daten mit wenig Aufwand in grafischer Form. sevGraph unterstützt hierbei Balken-, Linien- und Stapel-Diagramme (Stacked Bars), sowie 2D- und 3D-Tortendiagramme und arbeitet vollständig datenbankunabhängig!

Weitere Infos

Tipp des Monats

Oktober 2025
Matthias Kozlowski

Umlaute konvertieren

Ersetzt die Umlaute in einer Zeichenkette durch die entsprechenden Doppelbuchstaben (aus ä wird ae, usw.)

Details

Access-Tools Vol.1

Über 400 MByte Inhalt
Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB

Nur 24,95 EUR
Weitere Infos

Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel