Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Frage zum Code
zurück: Fragen zum HF Code weiter: Schriftsatz und Formatierungen Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Dieses Thema ist gesperrt, du kannst keine Beiträge editieren oder beantworten.     Status: Bitte Status wählen ! Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
paulchen1111
Neuling


Verfasst am:
13. Feb 2007, 10:14
Rufname:

Frage zum Code - Frage zum Code

Nach oben
       Version: Office XP (2002)

Code:
Option Compare Database

Private Sub Form_Current()

End Sub

Private Sub Menge_Exit(Cancel As Integer)
Dim Antwort As Integer
   
 If Me![Lagerbestand] < Me![Menge] Then
    Antwort = MsgBox("Von diesem Artikel sind nur" + Str([Lagerbestand]) + _
            " Einheiten " _
            + "auf Lager." + Chr(13) + "Bitte wählen Sie Ja, " + _
            "wenn diese Menge übernommen werden soll." + Chr(13) + _
            "Wählen Sie Nein, um einen anderen Artikel auszuwählen." _
            , 52, "Zu geringer Lagerbestand!")

    ' Wenn Ja geklickt wurde:
    If Antwort = 6 Then
       Me![Menge] = Me![Lagerbestand]
       ' Lagerbestandsführung: Verkaufte Menge aus Lagerbestand ausbuchen
       Me![Lagerbestand] = Me![Lagerbestand] - Me![Menge]
       Me![Artikelrabatt].SetFocus
       
    ' Wenn Nein geklickt wurde:
    Else
       Me![Menge] = 0
       Me![cb_Artikelauswahl].SetFocus
       Me![cb_Artikelauswahl].Dropdown
       Exit Sub
    End If
 End If
 
 Positionspreis = Einzelpreis * Menge - (Einzelpreis * Menge * Artikelrabatt / 100)
 
End Sub

Private Sub Artikelrabatt_Exit(Cancel As Integer)
  Positionspreis = Einzelpreis * Menge - _
                               (Einzelpreis * Menge * Artikelrabatt / 100)
                               
  ' Statistikfelder der Tabelle tbl_Artikel aktualisieren
  VerkaufteMenge = VerkaufteMenge + Menge
  Artikelumsatz = Artikelumsatz + Positionspreis
  LetzterVerkauf = txt_Datum
End Sub

Private Sub cb_Artikelauswahl_AfterUpdate()
  If Me![Lagerbestand] <= 0 Then
      MsgBox "Von diesem Artikel ist kein Bestand auf Lager," + Chr(13) + _
      "bitte wählen Sie einen anderen Artikel!", vbOKOnly + vbExclamation, _
      "Kein Lagerbestand vorrätig!"
      Me![cb_Artikelauswahl].Value = 0
      Me![cb_Artikelauswahl].SetFocus
      Me![cb_Artikelauswahl].Dropdown
   Else
      Me![Einzelpreis] = VKPreis
      Me![Menge].SetFocus
   End If
End Sub

Private Sub cb_Artikelauswahl_Enter()
  cb_Artikelauswahl.Dropdown
End Sub
jens05
Moderator


Verfasst am:
13. Feb 2007, 11:01
Rufname:
Wohnort: ~~~~~

AW: Frage zum Code - AW: Frage zum Code

Nach oben
       Version: Office XP (2002)

Hallo Paulchen,
wie wäre deine Frage?

_________________
mfg jens05 Wink
stpimi
Moderator Access


Verfasst am:
13. Feb 2007, 11:11
Rufname:
Wohnort: Graz


AW: Frage zum Code - AW: Frage zum Code

Nach oben
       Version: Office XP (2002)

Wie oft gibts denn diesen Thread noch .... Mad

Wir möchten dich bitten in Zukunft keine Mehrfachpostings mehr zu machen.
Wir finden Deine Beiträge auch, wenn Du sie nur in einem Forum postest.
Das macht so nur unnötige Arbeit und frustriert die Leute, die die Frage zum zweiten oder dritten Mal beantwortet haben!
Fragen zum gleichen Thema, kann man auch an ein bestehendes Thema anhängen.
Das erleichtert es anderen dem Lösungsweg zu folgen!

Dieses Thema ist wegen Doppelposting gesperrt!

Hier gehts weiter: Frage wegen Code vom HF

_________________
Lg, Michael

Dein Feedback hilft auch anderen - vergiß es nicht!
Neues Thema eröffnen   Dieses Thema ist gesperrt, du kannst keine Beiträge editieren oder beantworten. 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: Frage zu INSERT INTO 3 Silly14 592 13. März 2007, 17:04
Thomas2007 Frage zu INSERT INTO
Keine neuen Beiträge Access Tabellen & Abfragen: Frage zur Verknüpfung mit Excel Tabelle 1 toymachine 780 15. Feb 2007, 22:33
stpimi Frage zur Verknüpfung mit Excel Tabelle
Keine neuen Beiträge Access Tabellen & Abfragen: Frage zu Anfügeabfrage zweier Datenbanken 2 Mascar 715 28. Jan 2007, 20:54
Gast Frage zu Anfügeabfrage zweier Datenbanken
Keine neuen Beiträge Access Tabellen & Abfragen: DateDiff in VBA Code berechnet liefert Nonsens 8 Utali 1324 15. Jan 2007, 17:08
Gast DateDiff in VBA Code berechnet liefert Nonsens
Keine neuen Beiträge Access Tabellen & Abfragen: Access Höhe eines Rechteck per VBA Code regulieren 2 Gast1 1835 30. Dez 2006, 16:13
Gast Access Höhe eines Rechteck per VBA Code regulieren
Keine neuen Beiträge Access Tabellen & Abfragen: ACCESS Splash - INSERT INTO Abfrage Code 0 Joppel 698 21. Dez 2006, 21:38
Joppel ACCESS Splash - INSERT INTO Abfrage Code
Keine neuen Beiträge Access Tabellen & Abfragen: Allgemeine (Einsteiger-)Frage zu Access 3 strategist 1594 04. Nov 2006, 01:33
strategist Allgemeine (Einsteiger-)Frage zu Access
Keine neuen Beiträge Access Tabellen & Abfragen: Datums frage 8 Yortu 599 08. Aug 2006, 14:24
Gast Datums frage
Keine neuen Beiträge Access Tabellen & Abfragen: Frage zu "Tabellen anzeige Script" 2 Max.B 608 12. Jul 2006, 17:53
Willi Wipp Frage zu "Tabellen anzeige Script"
Keine neuen Beiträge Access Tabellen & Abfragen: 'toter' Verweis (Ganz doofe Frage sicherlich....) 1 Gast 609 04. Jul 2006, 19:17
rita2008 'toter' Verweis (Ganz doofe Frage sicherlich....)
Keine neuen Beiträge Access Tabellen & Abfragen: Lagerverwaltung Allgemeine Frage 1 singsing 1091 13. Jun 2006, 23:02
stpimi Lagerverwaltung Allgemeine Frage
Keine neuen Beiträge Access Tabellen & Abfragen: Frage zum Theme AutoWert 15 TorstenErd 1402 25. Apr 2006, 11:41
Nouba Frage zum Theme AutoWert
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Project