Haben Sie den Wert für den Spaltenneustart von 1 nach dem Ändern des Primärschlüsselwerts autonummeriert?

Question

Ich habe eine 2 Tabellen, nennen sie PO und PO_LI. Es gibt eine PO-Spalte mit der Bezeichnung PO #, die ein Primärschlüssel ist und in einer 1: n-Beziehung zur PO # -Spalte in PO_LI steht (die 1 in PO). In PO_LI sind die anderen Spalten Line #, Description und LineAmount.

Wie kann ich die Nummer für jede neue Bestellnummer auf 1 zurücksetzen?
Kann dies mit der automatischen Nummerierung gemacht werden?
Kann dies in der ms-Zugriff GUI getan werden oder ist VBA-Code erforderlich?

Answer 1

Sie können ein AutoWert-Feld nicht manuell bearbeiten oder dessen Anfangswert ändern. Am besten verwenden Sie VBA, um die maximale Zeilennummer zu erhalten und zu erhöhen. Wenn Sie eine neue Bestellung verwenden, beginnen Sie bei 1. Sie würden diese VBA in das AfterUpdate-Ereignis des Bestellfelds einfügen.

Man könnte so etwas tun:

Dim db as Database 
Dim rec as Recordset 
Dim rec2 as Recordset 
Dim MyVal as Integer 

Set db = CurrentDB 
Set rec = db.OpenRecordset("Select LineNum from MyTable where PO = '" & Me.txtPO & "' group by PO") 

'If there are no records returned, start at 1. Otherwise, increment. 
If rec.EOF = true then 
    MyVal = 1 
else 
    Set rec = db.OpenRecordset("Select Max(LineNum) from MyTable where PO = '" & Me.txtPO & "'") 
    MyVal = rec(0) + 1 
endif 

MyVal ist jetzt die Nummer, die Sie LineNum schreiben. Natürlich müssen Sie die Variablen und so ändern, was auf Ihren Formularen und in Ihren Tabellen tatsächlich ist, aber Sie sollten die Idee bekommen.