Office: Steuerelemente Ungebundenes Feld

Ja, aber der Datensatz wird ja erstmal nicht gesperrt

Das eine Problem ist ja auch, wenn ich eine neue Quittung möchte zeigt er einen Namen im Feld an und zwar der letzte der ausgewählt worden ist


gruss stephan

 

Klar, mein Fehler, wenn in QKunde nichts steht, wird das Feld ja auch nicht bearbeitet, also steht der Kram vom letzten Datensatz noch drin. Besser also

Code:

Me.txtKunden = Nz(Me.txtQKunde, "")

Dass man das Textfeld nicht bearbeiten kann, muss irgendwie mit dem AllowEdits zusammenhängen. Im Direktfenster lässt sich prima abfragen, ob AllowEdits gerade true oder false ist. Vielleicht guck ich mir das später nochmal an.

 

Danke

 

Hallo Doming,

ich hab mir jetzt irgendeinen Müll eingebaut....

Code:

Private Sub Form_AfterUpdate()
Me.AllowEdits = Not Me.cboSperren
    If Me.cboSperren = True Then
        Me!löschen.Enabled = False
        Me!speichern.Enabled = False
    Else
        Me!löschen.Enabled = True
        Me!speichern.Enabled = True
    End If
    If Nz(Me.txtQKunde, "") <> "" Then Me.txtKunden = Me.txtQKunde
    Me.txtKunden = Nz(Me.txtQKunde, "")
    Me.Refresh
    End Sub

Private Sub Form_Current()
    Me.AllowEdits = Not Me.cboSperren
    If Me.cboSperren = True Then
        Me!löschen.Enabled = False
        Me!speichern.Enabled = False
    Else
        Me!löschen.Enabled = True
        Me!speichern.Enabled = True
    End If
    If Nz(Me.txtQKunde, "") <> "" Then Me.txtKunden = Me.txtQKunde
    Me.txtKunden = Nz(Me.txtQKunde, "")
    Me.Refresh
End Sub

Gruss Stephan