title image


Smiley Re: Eigenes Zählerfeld erstellen
Zwei kleine Funktionen. Ich denke, dass Du damit klarkommst:Private Sub btnNewDS_Click()dim strtbl as Stringstrtbl="Tabellenname"Me.RecordSource = strtblDoCmd.GoToRecord , , acNewRecme.[Nummer] = NextFree(strtbl)End SubPublic Function NextFree(strTable As String) as LongDim Ret As Long, xCount as LongDim db As Database, rs As RecordsetSet db = CurrentDb()Set rs = db.OpenRecordset(strtbl, DbOpenDynaset)Ret = 0xCount = 0Do Until Ret > xCount Or rs.EOFxCount = xCount + 1Ret = rs![Nummer]rs.MoveNextLoopIf rs.EOF = True ThenNextFree = xCount + 1ElseNextFree = xCountEnd Ifrs.Closedb.close End FunctionGruß

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: