Office: (Office 2003) Diese Eigenschaft ist schreibgeschützt und kann daher nicht eingestellt werden!

Hallo!

Ich habe ein Formular(Eingabeformular) entwickelt, wo ich die Daten eingeben kann, die in der Tabelle abgespeichert werden. Dieses Eingabeformular stelle ich als Unterformular in ein anderes Formular (Hauptformular). In diesem Hauptformular habe ich in Kombinationsfeld eingebaut, mit dem in Werte abfragen kann.

Wenn ich nun dieses Hauptformular öffne und Daten im Eingabeformular (Unterformular) eingeben möchte, kommt immer eine Fehlermeldung mit folgender Meldung: Diese Eigenschaft ist schreibgeschützt und kann daher nicht eingestellt werden!

Wie kann ich diese Fehlermeldung korrigieren, bzw. was ist zu tun?

Danke!

:)

 

Hallo,

es ist schwer vorstellbar, dass diese Fehlermeldung etwas mit der Dateneingabe zu tun hat.

Was gibt's denn so an Code in deinem Formular???

 

Folgende Code beinhaltet mein Formular

PHP:

         Option Compare Database

Private Sub Befehl129_Click()
On Error GoTo Err_Befehl129_Click

Dim stDocName As String

stDocName = "Makro - Hauptmenue"
DoCmd.RunMacro stDocName

Exit_Befehl129_Click:
Exit Sub

Err_Befehl129_Click:
MsgBox Err.Description
Resume Exit_Befehl129_Click

End Sub


Private Sub Kombinationsfeld6_AfterUpdate()
' Den mit dem Steuerelement übereinstimmenden Datensatz suchen.
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[Name] = '" & Me![Kombinationsfeld6] & ""
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub


 

Und was macht das Makro?

Was meinst du mit "leer"?
Ohne Daten (--> Datenherkunft entfernen) oder zur Dateneingabe (--> DataEntry=True).

 

Bei Makros gefällt mir, weil man sehr einfach zusätzliche Funktionen eingeben kann.

Genau, ich meine wenn ich das Formular öffne, dass die in der Tabelle bereits gespeicherten Daten nicht angezeigt werden. Die Datensätze in der Tabelle sollen gespeichert bleiben doch das Formular soll beim Öffnen keine Daten anzeigen.

 

ich fragte nicht, was dir an Makros gefällt, sondern was das Makro macht, das du dort aufrufst. *rolleyes.gif*
Welche Befehle werden dort ausgeführt?

Wie gesagt: Formular-Eigenschaft Daten eingeben auf Ja einstellen.

Und: In welchem der Formulare steht der gezeigte Code? Was ist mit dem anderen?

 

Sorry! Dieses Makro führt SCHLIESZEN und ÖFFNENFORMULAR aus. Bei ÖFFNENFORMULAR gehe ich wieder zurück zum Hauptmenü.

Die Formular-Eigenschaft Daten eingeben habe ich auf JA gestellt, doch dies verändert nichts.

 

Das integrierte Unterformular beinhaltete folgende Prozeduren:

PHP:

         Option Compare Database

Private Sub Befehl54_Click()
On Error GoTo Err_Befehl54_Click

Dim stDocName As String

stDocName = "Datenblatt Abfrage"
DoCmd.OpenReport stDocName, acPreview

Exit_Befehl54_Click:
Exit Sub

Err_Befehl54_Click:
MsgBox Err.Description
Resume Exit_Befehl54_Click

End Sub
Private Sub Befehl55_Click()
On Error GoTo Err_Befehl55_Click


DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

Exit_Befehl55_Click:
Exit Sub

Err_Befehl55_Click:
MsgBox Err.Description
Resume Exit_Befehl55_Click

End Sub
Private Sub Befehl56_Click()
On Error GoTo Err_Befehl56_Click


DoCmd.Quit

Exit_Befehl56_Click:
Exit Sub

Err_Befehl56_Click:
MsgBox Err.Description
Resume Exit_Befehl56_Click

End Sub
Private Sub Befehl57_Click()
On Error GoTo Err_Befehl57_Click


Screen.PreviousControl.SetFocus
DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70

Exit_Befehl57_Click:
Exit Sub

Err_Befehl57_Click:
MsgBox Err.Description
Resume Exit_Befehl57_Click

End Sub
Private Sub Befehl58_Click()
On Error GoTo Err_Befehl58_Click


DoCmd.GoToRecord , , acNewRec

Exit_Befehl58_Click:
Exit Sub

Err_Befehl58_Click:
MsgBox Err.Description
Resume Exit_Befehl58_Click

End Sub

Private Sub Kombinationsfeld59_AfterUpdate()
' Den mit dem Steuerelement übereinstimmenden Datensatz suchen.
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[Nutzen am] = #" & Format(Me![Kombinationsfeld59], "mm\/dd\/yyyy") & "#"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub

Private Sub Liste61_AfterUpdate()
' Den mit dem Steuerelement übereinstimmenden Datensatz suchen.
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[Nutzen am] = #" & Format(Me![Liste61], "mm\/dd\/yyyy") & "#"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub

Private Sub Kombinationsfeld63_AfterUpdate()
Den mit dem Steuerelement übereinstimmenden Datensatz suchen.
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[Nutzen am] = #" & Format(Me![Kombinationsfeld63], "mm\/dd\/yyyy") & "#"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub

Private Sub Befehl129_Click()
On Error GoTo Err_Befehl129_Click

Dim stDocName As String

stDocName = "Makro - Hauptmenue"
DoCmd.RunMacro stDocName

Exit_Befehl129_Click:
Exit Sub

Err_Befehl129_Click:
MsgBox Err.Description
Resume Exit_Befehl129_Click

End Sub

Private Sub Befehl130_Click()
On Error GoTo Err_Befehl130_Click


DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

Exit_Befehl130_Click:
Exit Sub

Err_Befehl130_Click:
MsgBox Err.Description
Resume Exit_Befehl130_Click

End Sub
Private Sub Befehl131_Click()
On Error GoTo Err_Befehl131_Click


DoCmd.GoToRecord , , acNewRec

Exit_Befehl131_Click:
Exit Sub

Err_Befehl131_Click:
MsgBox Err.Description
Resume Exit_Befehl131_Click

End Sub

Private Sub Befehl132_Click()
On Error GoTo Err_Befehl132_Click

Dim stDocName As String

stDocName = "Makro - Änderung"
DoCmd.RunMacro stDocName

Exit_Befehl132_Click:
Exit Sub

Err_Befehl132_Click:
MsgBox Err.Description
Resume Exit_Befehl132_Click

End Sub

Private Sub Befehl80_Click()
On Error GoTo Err_Befehl80_Click

Dim stDocName As String

stDocName = "Makro - Datum"
DoCmd.RunMacro stDocName

Exit_Befehl80_Click:
Exit Sub

Err_Befehl80_Click:
MsgBox Err.Description
Resume Exit_Befehl80_Click

End Sub

Private Sub Daten_alle_Nutzer_Abfrage_Anzahl_Enter()
Me!Name.Form.Requery
End Sub
Private Sub Befehl161_Click()
On Error GoTo Err_Befehl161_Click


DoCmd.GoToRecord , , acNewRec

Exit_Befehl161_Click:
Exit Sub

Err_Befehl161_Click:
MsgBox Err.Description
Resume Exit_Befehl161_Click

End Sub


 

Tut mir leid, das hilft mir jetzt auch nicht weiter. Das ist jede Menge an Code, und weitere Makros sind auch dabei.
Du solltest zunächst einmal herausfinden, bei welchem Befehl der Fehler auftritt und welche Aktion dazu führt.

Und: Bei welchem Formular hast du denn die Einstellung geändert? Bei dem Unterformular, wo die die Daten erfassen willst?

 

Beim Formular mit der Bezeichnung "Daten_alle Nutzer_Abfrage Anzahl" habe ich unter Eigenschaft - Ereignis - beim Öffnen folgende Prozedur eingetragen:

Private Sub Form_Open(Cancel As Integer)
Me.DataEntry = True
End Sub

In diesem Formular "Daten_alle Nutzer_Abfrage Anzahl" ist das Unterformular "Eingabe - Daten" eingebaut.

Das Formular "Daten_alle Nutzer_Abfrage Anzahl" ist aus einer Abfrage entstanden und besitzt ein Kombinationsfeld, wo von den abgefragten Daten wählen kann.

Die Datenherkunft des Unterformular "Eingabe - Daten" ist die Tabelle, wo alle Daten eingetragen werden. Alle Abfragen gehen ebenso auf diese Tabelle zurück.

 

Die DataEntry-Eigenschaft musst du dort einstellen wo du Daten erfassen willst, also im Unterformular.

Ob Open das geeignete Ereignis ist, da bin ich nicht sicher - evtl. geht es im Load.

 

Die DataEntry-Eigenschaft habe ich nun im Unterformular eingetragen, doch die Fehlermeldung

PHP:

         Diese Eigenschaft ist schreibgeschützt und kann daher nicht eingestellt werden!


 

Finde doch mal heraus, worauf sich diese Fehlermeldung überhaupt bezieht.
Dazu kannst du versuchen, beim Auftreten der Meldung mit Strg+Untbr in den Unterbrechungsmodus zu kommen, also in den VBA-Code. Dann siehst du an welcher Codezeile die Ausführung hängen bleibt.

 

Danke!

Ich habe nun versucht Strg + Untrbr zu drücken. Dabei schließt sich das Fenster mit der Meldung

PHP:

         Diese Eigenschaft ist schreibgeschützt und kann daher nicht eingestellt werden!


 

Was hältst du davon, mal eine Demo-DB mit diesem Formular und was man zum Testen braucht hochzuladen?