Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
fortlaufende Nummerierung
zurück: Kontrollkästchen weiter: Anzahl ohne Doppelte in einem Feld Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
wachesAuge
Gast


Verfasst am:
27. Jan 2006, 01:04
Rufname:

fortlaufende Nummerierung - fortlaufende Nummerierung

Nach oben
       

Hallo

ich habe folgendes Problem:
1:n tblRechnung, tblRechnungsposition sind über Feld Rechnungsnummer verbunden. Die Datesätze werden über ein Formular mit Unterformular eingegeben. Im Unterformular soll das Feld Rechnungspositionen
automatisch von 1-n nummeriert werden.
Rolling Eyes Was gebe ich wo ein? Rolling Eyes
cablit
VBA- und Access-Kenntnisse vorhanden


Verfasst am:
27. Jan 2006, 08:28
Rufname:


AW: fortlaufende Nummerierung - AW: fortlaufende Nummerierung

Nach oben
       

Hi wachesAuge,

lies dir mal bei DonKarl FAQ 4.39 Laufende Nummer/Summe in Formularen durch, dort ist beschrieben, wie du die Durchnummerierung gelöst bekommst.

Grüße
GregorJ
Tüftler


Verfasst am:
03. Okt 2006, 13:08
Rufname:

AW: fortlaufende Nummerierung - AW: fortlaufende Nummerierung

Nach oben
       

Hallo

ich habe ein ähnliches Problem,
in einem Formular sorge ich mit einem Code dafür das sich die Felder mit den Werten des letzten Datensatz füllen und eine Fortlaufende Nummer gebildet wird.
Code:
Private Sub Set_DefaultValues()
    Dim fld As DAO.Field
   
    With Me.RecordsetClone
        If Not (.EOF And .BOF) Then
            .MoveLast
            'Voraussetzung:
            ' Alle Felder aus der RecordSource sind auf dem Formular
            ' und die Steuerelemente haben den gleichen Namen!
            ' Sonst muss die Zuweisung von Hand gemacht werden!
            ' Es sind nur die in der aktuellen RecordSource verwendeten
            ' Felddatentypen abgefangen!
            For Each fld In .Fields
                Select Case fld.Type
                  Case dbText
                    If fld.name = "Firma" Then
                      Else
                        Me("[" & fld.name & "]").DefaultValue = "'" & fld & "'"
                    End If
                  Case dbBoolean, dbLong
'                    If fld.name = "Kundennummer" Then
'                      Else
                    If fld.name = "Nummer" Then
                        Me("[" & fld.name & "]").DefaultValue = fld + 1
                      Else
                        Me("[" & fld.name & "]").DefaultValue = fld
'                    End If
                    End If
                  Case dbDate
                    If fld.name = "Anlage_Datum_MAFO-LEH-TS" Or _
                       fld.name = "Anlage_Zeit_MAFO-LEH-TS" Then
                        'Nicht aendern
'                    If fld.Name = "Anlage_Zeit_MAFO-LEH-TS" Then
'                         Me("[" & fld.Name & "]").DefaultValue = _
'                                                  Format$(fld, "\#hh:nn:ss\#")
                      Else
                        Me("[" & fld.name & "]").DefaultValue = _
                                                Format$(fld, "\#yyyy-mm-dd\#")
                    End If
                  Case dbDecimal
                    Me("[" & fld.name & "]").DefaultValue = Str(fld)
                  Case Else
                    MsgBox "Nicht abgefangener Felddatentyp: " & fld.Type
                End Select
            Next fld
        End If
    End With
End Sub
Nun möchte ich in einem anderen Formular nur die Nummer haben
wie kann ich den Bereich
Code:
                    If fld.name = "Nummer" Then
                        Me("[" & fld.name & "]").DefaultValue = fld + 1
                      Else
                        Me("[" & fld.name & "]").DefaultValue = fld
                    End If
extrahieren, so das das auch ohne den kompletten code geht?

MusterDB DB MAFO (MAFO.zip)

Gregor
Willi Wipp
Moderator


Verfasst am:
15. Okt 2006, 01:38
Rufname:
Wohnort: Raum Wiesbaden


Re: AW: fortlaufende Nummerierung - Re: AW: fortlaufende Nummerierung

Nach oben
       

Hi GregorJ,

wie waere es denn einfach mit
Code:
Private Sub Set_DefaultValues()
    Me!Nummer.DefaultValue = Me!Nummer + 1
End Sub

_________________
Eine kurze Rueckmeldung waere nett
SL Willi Wipp

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


Zuletzt bearbeitet von Willi Wipp am 20. Okt 2006, 01:42, insgesamt einmal bearbeitet
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: Abfrage: Nummerierung pro Gruppe 14 asgador 395 22. Apr 2014, 16:24
Nouba Abfrage: Nummerierung pro Gruppe
Keine neuen Beiträge Access Tabellen & Abfragen: fortlaufende nr 1 genulopo 87 03. Jun 2013, 09:41
Gast fortlaufende nr
Keine neuen Beiträge Access Tabellen & Abfragen: Zusätzliche Richtige Nummerierung bei Abfrage 4 Williwacker 89 05. Jan 2013, 12:28
Williwacker Zusätzliche Richtige Nummerierung bei Abfrage
Keine neuen Beiträge Access Tabellen & Abfragen: Nummerierung anhand von Ordnungszahl 1 jori0001 290 16. Aug 2012, 19:56
redround Nummerierung anhand von Ordnungszahl
Keine neuen Beiträge Access Tabellen & Abfragen: fortlaufende ID in mehreren Tabellen 1 lili 3333 286 27. Jan 2012, 12:44
Marsupilami72 fortlaufende ID in mehreren Tabellen
Keine neuen Beiträge Access Tabellen & Abfragen: Fortlaufende Nummer, für künstliche ID 5 Gast 418 27. Jan 2012, 12:26
Gast Fortlaufende Nummer, für künstliche ID
Keine neuen Beiträge Access Formulare: Fortlaufende Rechnungsnummer 1 Robb 2044 26. März 2010, 11:42
KlausMz Fortlaufende Rechnungsnummer
Keine neuen Beiträge Access Formulare: "fortlaufende" Berechnung einer Summe im Formular 8 Gast 691 20. März 2010, 15:46
blackoutNO "fortlaufende" Berechnung einer Summe im Formular
Keine neuen Beiträge Access Tabellen & Abfragen: Dynamische Nummerierung 1 magnum 400 30. Jan 2010, 21:45
steffen0815 Dynamische Nummerierung
Keine neuen Beiträge Access Formulare: Nummerierung im Unterformular 8 Sydney81 387 10. Jul 2009, 12:03
Sydney81 Nummerierung im Unterformular
Keine neuen Beiträge Access Tabellen & Abfragen: fortlaufende Summation 5 watto 412 15. Okt 2008, 08:15
watto fortlaufende Summation
Keine neuen Beiträge Access Tabellen & Abfragen: Nummerierung bei Abfrage 6 coste 511 24. Okt 2007, 22:55
coste Nummerierung bei Abfrage
 

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