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
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
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?
Hallo,
überprüfe mal den Namen des Unterformular-Steuerelements im Hauptformular.
Hallo,
siehe auch hier:
http://www.ms-office-forum.net/forum/showthread.php?t=324460
Dort wird die Hafo/Ufo Namensgebung ausführlich besprochen.