Office: Sie können diesem objekt keinen wert zuweisen

morgen, ich hab mal ne frage: wenn ich meinen bericht schleiße, hab ich ne abfrage gemacht:

Dim Antwort As String
Antwort = MsgBox("Mahnung als gedruckt kennzeichnen?", vbYesNoCancel, "Auswahl")
Select Case Antwort
Case vbYes
Me.Mahnungsdruck = 1
Case vbNo
Case vbCancel
End Select

wenn ich aber in meiner msgbox ja drück, kommt der fehler:
Sie können diesem objekt keinen wert zuweisen.

wie kann ich den wert trotzdem ändern?

:)

 

Mit

Me.Mahnungsdruck = 1

sprichst Du das Steuerelement im Bericht an - dem kannst Du natürlich keinen Wert zuweisen.

Du musst das mit einer Aktualisierungsabfrage auf das zugrundeliegende Tabellenfeld machen oder einem entsprechenden SQL-UPDATE im Code.

Mfg, Michael

 

ist das ein textfeld, oder was ist das? *confused.gif*

 

ja, das ist ein textfeld auf dem bericht, kann man nicht einfach einen befehl schreiben, wo der wert in der tabelle geändert wird, ohne aktualisierungsabfrage und ohne sql update?

wenn nicht, wie muss ich das sql update machen?

 

Das ganze sollte (ungetestet) in etwa so aussehen:

Currentdb().Execute "UPDATE DeineTabelle SET " & _
"Mahnungsdruck = 1 WHERE PrimaryKey = " & Me!Primarykey & ";"

DeineTabelle, PrimaryKey und Me!PrimaryKey musst Du durch deine Werte ersetzen.

Mfg, Michael