Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Lösung: Kundennummer vergeben mit führenden Nullen
zurück: Alle Werte einer Tabelle in einstellbarem Listenfeld zeigen weiter: Newbie Access Abfrage Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Tutorial Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
aeternitas103
Microsoft Office User Specialist - Access


Verfasst am:
02. Jan 2008, 15:10
Rufname:
Wohnort: Uster

Lösung: Kundennummer vergeben mit führenden Nullen - Lösung: Kundennummer vergeben mit führenden Nullen

Nach oben
       Version: Office 2007

Hallo zusammen,

ich habe schon viele Lösungsansätzte zum vergeben von Kundennummern gesehen. Doch keiner konnte mich so richtig überzeugen. Darum habe ich einen eigenen Lösungsansatz gefunden, den ich euch natürlich nicht vorenthalten möchte.

Ich möchte zwingend eine 6-Stellige Kundennummer vergeben.
Code:
Private Sub Befehl64_Click()
    Dim LfdNummer   As String
    Dim Ausgabe     As String
    Dim X           As VbMsgBoxResult
   
    X = MsgBox("Bist du sicher das du eine neue Kundennummer vergeben " & _
               "willst?", vbYesNo, "Neue Kundennummer vergeben?")
    Select Case X
      Case vbYes
        For i = 1 To 6
            LfdNummer = Int(9 * Rnd)
            Ausgabe = LfdNummer & Ausgabe
        Next i
        Me![kundennummer] = Ausgabe
    End Select
End Sub
Ich habe mir einen Button gebastelt mit welchem ich die Kundennummer erzeugen kann. Beim Klick auf diesen Button wird eine 6-Stellige Kundennummer in ein entsprechendes Textfeld gespeichert.
  1. Beim Klick auf den Button wird mir die Frage gestellt ob ich wirklich eine neue Kundennummer vergeben will.
  2. Wenn auf Ja geklickt wurde, werden zuerst die Variabeln als "String" deklariert (String damit die führenden Nullen nicht verloren gehen)
  3. Eine for Schleife wir 6 Mal durchlaufen. Kann natürlich nach belieben angepasst werden
  4. In dieser Schleife wird jeweils eine Zufallszahl zwischen 0 und 9 erstellt.
  5. Diese Zahl wird in der Variable "Ausgabe" jeweils an das Ende angehängt, so entsteht bei jedem durchlaufen der Schleife eine weitere Ziffer.
  6. Am Ende wird die generierte Zahl im Entsprechenden Ausgabefeld abgelegt
Willi Wipp
Moderator


Verfasst am:
02. Jan 2008, 17:33
Rufname:
Wohnort: Raum Wiesbaden

Re: Lösung: Kundennummer vergeben mit führenden Nullen - Re: Lösung: Kundennummer vergeben mit führenden Nullen

Nach oben
       Version: Office 2007

Hi aeternitas103,

und wie verhinderst Du die doppelte Vergabe der KundenNr?
Wenn es unbedingt ein Text sein muss, dann eventuell auch so
Code:
        Me![kundennummer] = Format$(Int(999999 * Rnd), "000000")
Ansonsten wuerde ich nur die Zahl speichern und Format anwenden wenn ich es brauche Wink
_________________
Eine kurze Rueckmeldung waere nett
SL Willi Wipp

(Anleitung fuer das Anhaengen von Dateien: Klicke links auf [www], Gaeste muessen sich dafuer anmelden)
jens05
Moderator


Verfasst am:
02. Jan 2008, 20:25
Rufname:
Wohnort: ~~~~~


AW: Lösung: Kundennummer vergeben mit führenden Nullen - AW: Lösung: Kundennummer vergeben mit führenden Nullen

Nach oben
       Version: Office 2007

Hallo,
vielleicht noch als Ergänzung, die Überprüfung.
Code:
    Dim strKdNr As String
    Dim blnfrei As Boolean
   
    If MsgBox("Bist du sicher das du eine neue Kundennummer vergeben willst?", _
               vbYesNo, "Neue Kundennummer vergeben?") Then
        Do While Not blnfrei
            strKdNr = Format(Int(999999 * Rnd), "000000")
            If CurrentDb.OpenRecordset( _
               "SELECT * " & _
                 "FROM Tabellenname " & _
                "WHERE KDNR='" & strKdNr & "'", dbOpenForwardOnly).EOF Then
                blnfrei = True
            End If
        Loop
        Me![kundennummer] = strKdNr
    End If
Wobei mich jetzt das Durcheinander der Nummern konfus machen würde ;)
_________________
mfg jens05 Wink
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: Autowert (ID) nach Löschung neu vergeben, Ist das möglich? 5 Fuzimumpl 207 10. Okt 2013, 18:36
KlausMz Autowert (ID) nach Löschung neu vergeben, Ist das möglich?
Keine neuen Beiträge Access Tabellen & Abfragen: Gruppennummern vergeben 0 Schrotty 194 15. Feb 2012, 18:46
Schrotty Gruppennummern vergeben
Keine neuen Beiträge Access Tabellen & Abfragen: Stimmt meine Lösung Access 2007 9 Johannesjk 492 26. Nov 2011, 16:28
derArb Stimmt meine Lösung Access 2007
Keine neuen Beiträge Access Tabellen & Abfragen: In Tabelle wird Id nicht mehr richtig vergeben 0 skorwi 204 08. Jul 2010, 13:45
skorwi In Tabelle wird Id nicht mehr richtig vergeben
Keine neuen Beiträge Access Tabellen & Abfragen: Importieren von Daten mit führenden Leerstellen 3 rudoph2000 194 23. Dez 2009, 13:47
MiLie Importieren von Daten mit führenden Leerstellen
Keine neuen Beiträge Access Tabellen & Abfragen: Lösung in Sql gesucht 5 Muenster36 401 07. Okt 2009, 22:52
Muenster36 Lösung in Sql gesucht
Keine neuen Beiträge Access Tabellen & Abfragen: Automatischen Wert nach Kriterien vergeben 2 Heaven77 295 07. Aug 2009, 10:23
Heaven77 Automatischen Wert nach Kriterien vergeben
Keine neuen Beiträge Access Tabellen & Abfragen: Datewert / Datevalue Problem, alternative oder lösung?! 2 gott50000 1514 13. Nov 2008, 12:49
gott50000 Datewert / Datevalue Problem, alternative oder lösung?!
Keine neuen Beiträge Access Tabellen & Abfragen: Löschen von Nullen in Feldern 4 Blonder Hans77 286 29. Sep 2008, 18:10
Blonder Hans77 Löschen von Nullen in Feldern
Keine neuen Beiträge Access Tabellen & Abfragen: Führende Null, bzw. Nullen anzeigen 2 Access-Bastler 1317 29. Aug 2008, 19:11
KlausMz Führende Null, bzw. Nullen anzeigen
Keine neuen Beiträge Access Tabellen & Abfragen: wert mit nullen auffüllen? 2 phantom_der_oma 886 20. Jun 2007, 12:09
phantom_der_oma wert mit nullen auffüllen?
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage Verknüpfung zieht keine Nullen vorweg 1 Unregisterred 492 07. Jun 2007, 02:56
Nouba Abfrage Verknüpfung zieht keine Nullen vorweg
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Access Tabellen