ACCESS - automat. Fortlaufende Nummerierung ?

hallo

ich habe mir in access ein kleines buchhaltungsprogramm gebastelt. jede buchung hat eine nr. 1,2,3,.....

die eingabe der buchungen geschieht über ein formular. die belegnr muss immer manuell eingetragen werden. ein auto-wert feld ginge zwar auch, jedoch müsste ich den auto-wert eintrag jedes jahr wieder auf eins zurückstellen.

die tabelle buchung, auf der das formular aufbaut, enthält folgende spalten:
- belege
- soll
- haben
- butext
- u.s.w.

müsste über einen kleinen vb-code, der den max. wert aus der tabelle buchung ausliest und diesen dann um 1 erhöht, doch möglich sein. brings alleine aber nicht hin

danke für die hilfe

 

Hi snoopy,

bin zwar auch nicht so ein Hirsch in Sachen VB... aber so könnte es gehen:

Private Sub DeinFeld_BeforeUpdate(Cancel As Integer)
Dim Position As Long
Dim i As Long

Position = Datensätze
Position = Position + 1
Me!BuchungNr = Position

End Sub

Public Function Datensätze() 'ermittelt die Anzahl DS
Dim DB As Database
Dim Rs As Recordset
Dim nCount As Long

Set DB = CurrentDb
nCount = DB.TableDefs("DeineTabelle").RecordCount

Datensätze = nCount
DB.Close

End Function

Damit das Ermitteln der Datensätze funktioniert, muss du einen Verweis auf Microsoft DAO 3.6 Objekt Library erstellen

Gruss
krokodog