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!
DB-Wiki


Wie man Fragen richtig stellt

YaccessAccess-FAQUnd ansonsten: Wikipedia




geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: