Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Im ungebundenen Textfeld Staffelpreise anzeigen lassen
zurück: Navigation / Formular / Tastatur-Kombinationen weiter: Anzeigen von bestimmten Berichten Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Muli
Anfänger


Verfasst am:
01. März 2010, 20:59
Rufname: Holger
Wohnort: Hochsauerland

Im ungebundenen Textfeld Staffelpreise anzeigen lassen - Im ungebundenen Textfeld Staffelpreise anzeigen lassen

Nach oben
       Version: Office 2007

Hallo zusammen,
ich komme einfach nicht mehr weiter. Ich erstelle einen Bestellclient deren Artikel häufig durch den Zulieferer aktualiesiert und mittels Excel Tabelle durch uns eingelesen werden. Diese Artikeltabelle enthält Staffelpreise oder auch nicht, je nach Artikel.
Ich möchte nun in einen ungebundnen Textfeld unsere Bestellmenge eingeben und der dazugehörige Artikelpreis soll in Abhängigkeit der Mengenstaffelung in einem weiteren, ebenfalls ungebunden Textfeld angezeigt werden. Einen Datensatz habe ich mir herausgepickt in dem Staffelpreise angebeben werden. Im Folgenden enthalten die Felder "Anzahl 1-5" die Mengenstaffelungen und "Preis 1-5" die dazugehörigen Preise.
Folgendes habe ich versucht:
Code:
    'Preis an die Mengen und Staffelpreise anpassen
    Dim intMenge As Integer
    Dim dblPreis As Double
   
    intMenge = Me.txtMenge 'Eingabefeld für die Menge die bestellt werden soll
    With Me
        Select Case intMenge
          Case Is < .Anzahl2
            dblPreis = .txtPreis2.Value                     'Entspricht Preis1
          Case Is >= .Anzahl2                                   'Anzahl2 ist 3
            If intMenge < .Anzahl3 Then     'Anzahl3 ist 6, eingeben Menge ist 7
                dblPreis = .Preis2.Value
            End If 'Case ist erfüllt und bricht hier ab zu End Select ???!!! Wieso?
          Case Is >= .Anzahl3
            If intMenge < .Anzahl4 Then
                dblPreis = .Preis3.Value
            End If
          Case Is >= .Anzahl4
            If intMenge < .Anzahl5 Then
                dblPreis = .Preis4.Value
            End If
          Case Is >= .Anzahl5
            dblPreis = .Preis5.Value
          Case Else
            dblPreis = .txtPreis2.Value
        End Select
        .txtEndpreis.Value = dblPreis                           'Wert zuweisen
    End With
Leider bricht Select Case vorzeitig ab. (Siehe Kommentar im zweiten Case Is)
Ich habe dafür keine Erklärung und hoffe, dass mir jemand weiterhelfen kann.
Bin auch offen für andere Möglichkeiten. Danke vorab und
Gruß
Muli

_________________
Gruß Holger
Ein Kluger Mann findet immer Zeit für Dummheiten
MissPh!
Office-VBA-Programmiererin


Verfasst am:
01. März 2010, 22:07
Rufname:
Wohnort: NRW


AW: Im ungebundenen Textfeld Staffelpreise anzeigen lassen - AW: Im ungebundenen Textfeld Staffelpreise anzeigen lassen

Nach oben
       Version: Office 2007

Hallo,
Zitat:
'Case ist erfüllt und bricht hier ab zu End Select ???!!! Wiso?
das ist nunmal so, dass der erste zutreffende Case genommen wird und danach kein anderer mehr.
Das heißt, du musst die Sache anders herum angehen:
Code:
        Select Case intMenge
          Case Is >= .Anzahl5: dblPreis = .Preis5
          Case Is >= .Anzahl4: dblPreis = .Preis4
          Case Is >= .Anzahl3: dblPreis = .Preis3
          Case Is >= .Anzahl2: dblPreis = .Preis2
          Case Else:           dblPreis = .txtPreis2        'Entspricht Preis1
        End Select



[edit]Diesen Code habe ich so nicht geschrieben, denn ich halte absolut nichts davon, mehrere Befehle in eine Zeile zu schreiben. Das ist kein nachahmenswertes Beispiel, schon gar nicht für die vielen Anfänger in diesem Forum![/edit] Sad

_________________
Gruß MissPh!


Zuletzt bearbeitet von MissPh! am 02. März 2010, 21:11, insgesamt einmal bearbeitet
Muli
Anfänger


Verfasst am:
02. März 2010, 20:25
Rufname: Holger
Wohnort: Hochsauerland

AW: Im ungebundenen Textfeld Staffelpreise anzeigen lassen - AW: Im ungebundenen Textfeld Staffelpreise anzeigen lassen

Nach oben
       Version: Office 2007

Hallo MissPh,

Sorry habe was vwergessen zu erwähnen!!! Shock
Für mich war es selbstverständlich, natürlich konntest Du das nicht wissen.
Die Staffelungen kann auch nur bis Anzahl 3 gehen. Anzahl4 und Anzahl5 enthalten dann den Wert 0. Damit ist die Bedingung auch schon im ersten Case erfüllt.

Hast Du vielleicht noch eine Idee?

Gruß Muli

_________________
Gruß Holger
Ein Kluger Mann findet immer Zeit für Dummheiten
MissPh!
Office-VBA-Programmiererin


Verfasst am:
02. März 2010, 21:07
Rufname:
Wohnort: NRW

AW: Im ungebundenen Textfeld Staffelpreise anzeigen lassen - AW: Im ungebundenen Textfeld Staffelpreise anzeigen lassen

Nach oben
       Version: Office 2007

Naja, das konnte ich wirklich nicht ahnen. Wink

Entweder, du änderst die Konventionen und trägst in diesen Fällen nicht 0 sondern 999999 ein oder du änderst den Code wie folgt:
Code:
    If intMenge >= .Anzahl5 And .Anzahl5 > 0 Then
        dblPreis = .Preis5
      ElseIf intMenge >= .Anzahl4 And .Anzahl4 > 0 Then
        dblPreis = .Preis4
      ElseIf intMenge >= .Anzahl3 And .Anzahl3 > 0 Then
        dblPreis = .Preis3
      ElseIf intMenge >= .Anzahl2 And .Anzahl2 > 0 Then
        dblPreis = .Preis2
      Else
        dblPreis = .txtPreis2        'Entspricht Preis1
    End If
...und ich hoffe sehr, dass nicht wieder jemand "über Nacht" in meinem Code herumpfuscht!
_________________
Gruß MissPh!
Muli
Anfänger


Verfasst am:
03. März 2010, 20:13
Rufname: Holger
Wohnort: Hochsauerland


AW: Im ungebundenen Textfeld Staffelpreise anzeigen lassen - AW: Im ungebundenen Textfeld Staffelpreise anzeigen lassen

Nach oben
       Version: Office 2007

Hallo MissPh,

ein herzliches Dankeschön für Deine Hilfe!!!
Funktioniert einwandfrei.

Gut das es euch gibt. Macht weiter so!
Mit bestenm Gruß
Muli

_________________
Gruß Holger
Ein Kluger Mann findet immer Zeit für Dummheiten
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Access Tabellen & Abfragen: gruppieren-beide texteintraege anzeigen 7 paty 1196 14. Jun 2005, 02:54
tobes gruppieren-beide texteintraege anzeigen
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrageergebnis als neues Formular anzeigen 2 mila 3034 12. Apr 2005, 12:38
mila Abfrageergebnis als neues Formular anzeigen
Keine neuen Beiträge Access Tabellen & Abfragen: alle Kunden mit letzter Rechnung anzeigen 2 Dalmatinchen 1109 08. März 2005, 20:58
Dalmatinchen alle Kunden mit letzter Rechnung anzeigen
Keine neuen Beiträge Access Tabellen & Abfragen: Textfeld Abfrage 2 Sandro 712 02. Feb 2005, 11:56
Sandro Textfeld Abfrage
Keine neuen Beiträge Access Tabellen & Abfragen: Leerzeichen in Textfeld entfernen 2 Francesco 1291 17. Dez 2004, 13:46
Francesco Leerzeichen in Textfeld entfernen
Keine neuen Beiträge Access Tabellen & Abfragen: Access automatisch nummerieren lassen 3 NewJanJan 4931 12. Nov 2004, 15:48
lothi Access automatisch nummerieren lassen
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage mit sum, max Wert und verhätnis summe/max anzeigen? 1 IV 2531 04. Nov 2004, 18:14
Skogafoss Abfrage mit sum, max Wert und verhätnis summe/max anzeigen?
Keine neuen Beiträge Access Tabellen & Abfragen: Textlänge in einem Textfeld 4 brauchehilfe@office 2425 30. Okt 2004, 00:05
brauchehilfe@office Textlänge in einem Textfeld
Keine neuen Beiträge Access Tabellen & Abfragen: Anzahl der Datensätze anzeigen? 3 MichaelB 1122 19. Okt 2004, 12:45
lothi Anzahl der Datensätze anzeigen?
Keine neuen Beiträge Access Tabellen & Abfragen: variable Spalte in Abfrage anzeigen -abhängig vom Tagesdatum 1 Lars 1193 10. Sep 2004, 13:54
Lars variable Spalte in Abfrage anzeigen -abhängig vom Tagesdatum
Keine neuen Beiträge Access Tabellen & Abfragen: in einem Textfeld letztes Zeichen löschen? 2 mokona.s 1923 19. Jul 2004, 13:24
mokona.s in einem Textfeld letztes Zeichen löschen?
Keine neuen Beiträge Access Tabellen & Abfragen: Abfragewerte nur einmal anzeigen 2 Eric 1196 16. Apr 2004, 19:09
Eric Abfragewerte nur einmal anzeigen
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: HTML Editoren Forum