Fehler im VBA Code

[langmantl10247]

Hallo,
ich habe folgendes Problem.
ich habe ein Formular, das heißt frmSchichten in dieses ist ein Textfeld mit dem Namen txtStartdatum
und ein Unterformular eingebut sfmSchichten.
In dem Unterformular, das auf einer Kreuztabelle basiert, habe ich die Bezeichnungsfelder mit lbl01 - lbl28 und die Textfelder mit txt01 - txt28 benannt,
Hintergrund ist, dass ich über ein VBA Formular die Felder entsprechend Formatieren möchte. Das mache ich über den folgenden Code

Code [Auswählen] Erweitern

Private Sub KreuztabelleFuellen(dat As Date)
     Dim db As DAO.Database
     Dim qdf As DAO.QueryDef
     Dim rst As DAO.Recordset
     Dim strSQL As String
     Dim i As Integer
     Set db = CurrentDb
     strSQL = db.QueryDefs("qryCTSchichten").SQL
     strSQL = Replace(strSQL, "[Startdatum]", ISODatum(dat))
     strSQL = Replace(strSQL, "[Enddatum]", ISODatum(DateAdd("d", 28, dat)))
     Me!sfmSchichten.Form.RecordSource = strSQL
     For i = 0 To 27
         Me!sfmSchichten.Form("lbl" & Format(i + 1, "00")).Caption = Format(DateAdd("d", i, dat), "d.m")
         Me!sfmSchichten.Form("txt" & Format(i + 1, "00")).ControlSource = Format(DateAdd("d", i, dat), "dd_mm_yyyy")
         Me!sfmSchichten.Form("txt" & Format(i + 1, "00")).Tag = DateAdd("d", i, dat)
     Next i
     SpaltenbreitenAnpassen
End Sub

Dieser Code wird über das Feld txtStartdatum im frmSchichten bei Ereignis nach Aktualisierung über den Befehl

Code [Auswählen] Erweitern

Private Sub txtStartdatum_AfterUpdate()
    KreuztabelleFuellen Me!txtStartdatum
End Sub
aufgerufen.

Mein Problem ist jetzt, dass er mir bei Ausführung einen Debug Fehler anzeigt, nämlich:
Laufzeitfehler '2465'
GSBW Datenbank kann das in Ihrem Ausdruck angesprochene Feld lbl01nicht finden

Dies ist komisch, weil ich die Felder im Subform genau so benannt habe.
Kann mir jemand Helfen, wo da der Fehler liegt?

[MaggieMay]

Hallo,

überprüfe mal den Namen des Unterformular-Steuerelements im Hauptformular.

[MzKlMu]

Hallo,
siehe auch hier:
http://www.ms-office-forum.net/forum/showthread.php?t=324460

Dort wird die Hafo/Ufo Namensgebung ausführlich besprochen.