title image


Smiley Nummerierung selbst hochzählen...
Public Function NeueNummer(TblName)Dim DB As Database, RS As Recordset, I If Nz(TblName, "") = "" Then Exit Function Set DB = CurrentDb Set RS = DB.OpenRecordset("tblNummer", dbOpenDynaset) RS.FindFirst "Tabellenname='" & TblName & "'" If RS.NoMatch Then RS.AddNew RS!Tabellenname = TblName RS!AktNummer = 1 Else RS.Edit RS!AktNummer = RS!AktNummer + 1 End If NeueNummer = RS!AktNummer RS.Update RS.Close Set DB = NothingEnd FunctionReinhard

Gruß aus dem Norden

Reinhard


Bitte immer die Access-Version angeben


 



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: