Hallo,
diese Frage zum gleichen Thema habe ich bereits im Windowsforum gestellt und wurde von einem Teilnehmer auf das SQL Forum verwiesen. Deshalb hier noch mal:
Ich möchte eine laufende Nr. nur temporär, während des Anzeigens/Druckens in einem ungebundenen Textfeld oder als Label in einem Formular unter Access anzeigen.
Das könnte z.b. mit einer Funktion geschehen.
Die laufende Nummer wird in keiner Weise datenbanktechnisch weiterverwendet.
Meine Versuche im Endlos-Formular führten alle dazu das ich die gleiche Zahl in allen Feldern stehen hatte.
In einem Bericht hätte ich damit kein Problem da es das Ereignis beim Drucken/Formatieren gibt.
Dieser Ansatz funktioniert nicht:
Private Sub Form_Current()
Dim dbs As DATABASE, rst As Recordset
Dim i As Long
i = 1
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("q_Dienste")
Do Until rst.EOF
i = i + 1
rst.MoveNext
Me.Bez.Caption = i
Loop
rst.Close
Set dbs = Nothing
End Sub
diese Frage zum gleichen Thema habe ich bereits im Windowsforum gestellt und wurde von einem Teilnehmer auf das SQL Forum verwiesen. Deshalb hier noch mal:
Ich möchte eine laufende Nr. nur temporär, während des Anzeigens/Druckens in einem ungebundenen Textfeld oder als Label in einem Formular unter Access anzeigen.
Das könnte z.b. mit einer Funktion geschehen.
Die laufende Nummer wird in keiner Weise datenbanktechnisch weiterverwendet.
Meine Versuche im Endlos-Formular führten alle dazu das ich die gleiche Zahl in allen Feldern stehen hatte.
In einem Bericht hätte ich damit kein Problem da es das Ereignis beim Drucken/Formatieren gibt.
Dieser Ansatz funktioniert nicht:
Private Sub Form_Current()
Dim dbs As DATABASE, rst As Recordset
Dim i As Long
i = 1
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("q_Dienste")
Do Until rst.EOF
i = i + 1
rst.MoveNext
Me.Bez.Caption = i
Loop
rst.Close
Set dbs = Nothing
End Sub
Zuletzt bearbeitet:
