Dim db As Database
Dim ws As Workspace
Dim rs As Recordset
Dim sSql As String
Dim AktuellerWert As Long
Dim lAnzahl As Long
Dim sFeldinhalt As String
 
AktuellerWert = 408     ' Zum Beispiel
 
Set ws = DBEngine.Workspaces(0)
Set db = CurrentDb
 
ws.BeginTrans
 
sSql = "SELECT Count(*) As Anzahl FROM tblMessdaten WHERE MdKalidaten = " & _
  CStr(AktuellerWert)
Set rs = db.OpenRecordset(sSql, dbOpenSnapshot)
lAnzahl = rs!Anzahl
rs.Close
Set rs = Nothing
 
lAnzahl = lAnzahl + 1
sFeldinhalt = "kali" & CStr(lAnzahl)
 
sSql = "INSERT INTO tblMessdaten(MdDatensatzname, MdKalidaten) VALUES('" & _
  sFeldinhalt & "', " & CStr(AktuellerWert) & ")"
db.Execute sSql
 
ws.CommitTrans
 
Set db = Nothing