nchristoph
Erfahrenes Mitglied
Hallo zusammen,
ich habe folgendes Problem bei einem Programm:
Der Wert im Feld PartieNr soll immer unique sein, darf also nicht doppelt vergeben werden.
Wenn jetzt mehrere Personen mit dem Programm arbeiten, kann es vorkommen, das dies allerdings passiert.
Mit folgendem Code hole ich mir die letzte PartieNr
Das die einzelnen "Sessions" werden anhand der Lieferscheinnummer unterschieden. Würde es was bringen wenn ich eine WHERE Klausel anfüge?
Braucht Ihr noch mehr Infos?
Das Programm kann ich leider nicht hochladen, ist zu gross.
mfg
Christoph
ich habe folgendes Problem bei einem Programm:
Der Wert im Feld PartieNr soll immer unique sein, darf also nicht doppelt vergeben werden.
Wenn jetzt mehrere Personen mit dem Programm arbeiten, kann es vorkommen, das dies allerdings passiert.
Mit folgendem Code hole ich mir die letzte PartieNr
Code:
Function holeNaechstePartieNR()
On Error GoTo hNPnr_err
Dim sql As String
Dim myDb As DAO.Database, rstRekl As DAO.Recordset
sql = "SELECT DISTINCT Max(PartieNr) AS Errg FROM Ubernahmeliste "
Set myDb = DBEngine.Workspaces(0).Databases(0)
Set rstRekl = myDb.OpenRecordset(sql, dbOpenDynaset)
holeNaechstePartieNR = Nz(rstRekl!Errg + 1, 1)
rstRekl.Close
myDb.Close
hNPnr_ende:
Exit Function
hNPnr_err:
MsgBox Err.Description
Resume hNPnr_ende
End Function
Das die einzelnen "Sessions" werden anhand der Lieferscheinnummer unterschieden. Würde es was bringen wenn ich eine WHERE Klausel anfüge?
Braucht Ihr noch mehr Infos?
Das Programm kann ich leider nicht hochladen, ist zu gross.
mfg
Christoph