"Neuer Datensatz"-Zeile aus einer Routine ausschließen.

[Carl]

Hallo,

ich habe mal eine Frage. Endlosformular, alles funktioniert.

Mit dieser Schaltfläche kann man eine Akte als "vernichtet" markieren, also ent-archiviert.

Code [Auswählen] Erweitern


Private Sub wieder13_Click()
On Error Resume Next
Dim Passwort As String
Passwort = InputBox("Dieser Vorgang markiert die Akte als vernichtet. Das Passwort lautet blah.", "")
If Passwort <> "blah" Then Exit Sub
'dein restlicher Code
Me.wurdevernichtet = "1"
Me.DateVernichtetAm = Date
DoCmd.RunCommand acCmdSaveRecord
'Me.Form.Reload
Me.Form.Refresh
MsgBox "Akte wurde als vernichtet markiert."
End Sub


Das Problem ist, dass auch die Zeile "neuer Datensatz" am Ende des Endlosformulars damit markiert werden kann, der noch gar keine ID hat und auch nicht existiert. Wie kann man das unterdrücken? Soll ich da abfragen, ob es bereits eine ID gibt? Oder wie macht man das?

Carl

[MzKlMu]

Hallo,
sperre das Formular zum Anfügen.

[Carl]

Es soll ja angefügt werden können. Nur die Funktionsknöpfe sollen in der Anfügezeile nicht funktionieren.

Durch die Funktionsknöppe werden die neuen DS auch ausgeblendet und ich möchte verhindern, dass zu viele inhaltsleere Datensätze ausgeblendet werden und sich dann ansammeln.

Carl

[MzKlMu]

Hallo,
dann gib doch das Anfügen auch erst durch einen Knopf frei.

[DF6GL]

Hallo,

... Soll ich da abfragen, ob es bereits eine ID gibt? Oder wie macht man das?

Code [Auswählen] Erweitern

.
.
If Me.Newrecord Then
' tu nix
Else
'tu was Geniales
End If
.
.