Fortløbende nummer i tilføjelsesforespørgsel

1+nz(dmax("<fortløbende feltnavn>","<tabelnavn>"),0)

Desværre kan jeg ikke få det til at virke. Har også forsøgt at angive tabelnavn forud for <fortløbende feltnavn>, men uden held.

Jeg fik i stedet denne rutine som efterfølgende opdaterer tabellen.

Public Function plusEn(mintbl As String, mitfelt As String)
'Tbl-Hentet_rekvisitionslinjer

Dim wrkJet As Workspace
   
    Dim mindb As Database
    Dim minrst As Recordset
    Dim i As Integer
   
    Set mindb = CurrentDb()
    Set minrst = mindb.OpenRecordset(mintbl, dbOpenDynaset)
    i = 1
    'If minrest.EOF = True Then MsgBox "Ingen poster": Exit Function
    minrst.MoveFirst
    Do While minrst.EOF = False
    minrst.Edit
    minrst(mitfelt) = i
    minrst.Update
    minrst.MoveNext
    i = i + 1
    Loop
   
End Function

Tak for forsøget