Fehlermeldungen bei Texteingabe

[DF6GL]

Hallo,

was steht denn in dieser Form_Current-Prozedur?

[MarkusR]

Code [Auswählen] Erweitern

Private Sub Form_Current()
    If Nz(Me!artID, 0) = 0 Then
        Me.Parent!btnSperre.Caption = "Sperren"
        Me.AllowEdits = True
        Me.AllowDeletions = True
        Me.AllowAdditions = True
        Me!frmPreiseIntern.Form.AllowEdits = True
        Me!frmPreiseIntern.Form.AllowDeletions = True
        Me!frmPreiseIntern.Form.AllowAdditions = True
        Me!frmRohMaterial.Form.AllowEdits = True
        Me!frmRohMaterial.Form.AllowDeletions = True
        Me!frmRohMaterial.Form.AllowAdditions = True
        Me!frmMaterialAngebote.Form.AllowEdits = True
        Me!frmMaterialAngebote.Form.AllowDeletions = True
        Me!frmMaterialAngebote.Form.AllowAdditions = True
        Me!frmPreiseExtern.Form.AllowEdits = True
        Me!frmPreiseExtern.Form.AllowDeletions = True
        Me!frmPreiseExtern.Form.AllowAdditions = True
    Else
        Me!artSperre = -1
        Me.Parent!btnSperre.Caption = "Entsperren"
        Me.AllowEdits = False
        Me.AllowDeletions = False
        Me.AllowAdditions = True
        Me!frmPreiseIntern.Form.AllowEdits = False
        Me!frmPreiseIntern.Form.AllowDeletions = False
        Me!frmPreiseIntern.Form.AllowAdditions = True
        Me!frmRohMaterial.Form.AllowEdits = False
        Me!frmRohMaterial.Form.AllowDeletions = False
        Me!frmRohMaterial.Form.AllowAdditions = True
        Me!frmMaterialAngebote.Form.AllowEdits = False
        Me!frmMaterialAngebote.Form.AllowDeletions = False
        Me!frmMaterialAngebote.Form.AllowAdditions = True
        Me!frmPreiseExtern.Form.AllowEdits = False
        Me!frmPreiseExtern.Form.AllowDeletions = False
        Me!frmPreiseExtern.Form.AllowAdditions = True
    End If
End Sub

Sinn und Zweck der Übung ist, beim Anlegen eines neuen Artikels alles ungesperrt zu lassen und beim Aufruf eines bestehenden Artikels, alle Felder und UFos zu sperren. Die Sperre lässt sich mittels Button im HaFo wieder rausnehmen. Das Ganze soll dann vor unbeabsichtigtem Verändern eines bereits bestehenden Artikels schützen.
Die einfachste Lösung wird wohl sein, den Code dort rauszunehmen und stattdessen beim Klick in die Liste lstArtikel zusätzlich zum Filtern noch alles zu sperren. Beim Klick auf "Neu" dann halt wieder entsperren.

[DF6GL]

Hallo,

ok,  mir ist jetzt auch nicht ganz klar, warum da Access aussteigt.  Das Listenfeld-Requery sorgt zwar dafür, dass das Form_Current-Ereignis ausgelöst wird, es steht aber nichts Ungewöhnliches in der Current-Prozedur.

[MarkusR]

Naja gut...habs jetzt gemacht wie oben geschrieben:

Beim klicken von lstArtikel die Sperre an, beim klicken von "Neu" die Sperre aus und beim "Speichern" wieder an. Musste dann noch beim Öffen des HaFo einmal entsperren und wieder sperren, damit der in den Feldern des UFos die Summen von den UFos darunter richtig bildet. Vorher stand da #Größe?. Jetzt geht also alles.

Vielen Dank nochmal