Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Caption mehrere Bezeichnungsfelder in unsichtbarem UFo änder
zurück: Unterformular plötzlich leer!!! weiter: Unterformular nur den bestimmten Datesatz aktualisieren Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Andreas2711
Im Profil kannst Du frei den Rang ändern


Verfasst am:
16. Okt 2006, 14:21
Rufname:

Caption mehrere Bezeichnungsfelder in unsichtbarem UFo änder - Caption mehrere Bezeichnungsfelder in unsichtbarem UFo änder

Nach oben
       Version: Office 2003

Hallo zusammen.
Ich habe Hauptformular Kalender1 mit UFo Kalender2 im Detailbereich.
Im Kopfbereich Kalender1 stehen Textfeld InpMonat und InpJahr mit Gültigkeitsregeln. Dazu dann noch ein Button btnGo mit einer Ereigniosprozedur btnGo_Click().
Der gesamte Detailbereich wird bei Form_Load des HFo .visible = false gesetzt
Code:
Private Sub Form_Load()
    Forms![Kalender1].Detailbereich.Visible = False
End Sub
Im UFo sind u. a. variable Überschriften, ungebundene Bezeichnungsfelder, die ich mit der Caption Eigenschaft je nach Wochentag der 1. eines Monats setzen möchte.
zu WoTagName:
Der Index 0 kann nicht vorkommen, 9 = gesetzlicher Feiertag, 1 = Sonntag.
Code:
    Dim WoTagName As Variant
    Dim Header_Captions(1 To 7) As String
    Dim Index, Idx, Idx2, Farbe As Long
   
    WoTagName = Array(" ", "So", "Mo", "Di", "Mi", "Do", "Fr", "Sa", " ", "GF")
' Monatsdaten aus Kalender ermitteln und Tage im Tabelle übertragen
    Set DB = CurrentDb
    strSQL = "SELECT Tag, Wochentag AS WoTag " & _
               "FROM Kalender " & _
              "WHERE Monat = " & InpMonat & _
               " AND Jahr = " & InpJahr & _
          " ORDER BY Tag;"
' Lesen Daten in Schleife
' Tag in DefaultValue eintragen
    Set rs = DB.OpenRecordset(strSQL)
    For Index = 1 To rs.RecordCount
        WoTage(Index) = rs!Tag
        If rs!Tag = 1 Then
            Idx2 = rs!WoTag
            For Idx = 1 To 7
                Header_Captions(Idx) = WoTagName(Idx2)
                Idx2 = Idx2 + 1
                If Idx2 > 7 Then Idx2 = 1
            Next Idx
            Set Forms![Kalender2].Header1.Caption = Header_Captions(1)
            Set Forms![Kalender2].Header2.Caption = Header_Captions(2)
            Set Forms![Kalender2].Header3.Caption = Header_Captions(3)
            Set Forms![Kalender2].Header4.Caption = Header_Captions(4)
            Set Forms![Kalender2].Header5.Caption = Header_Captions(5)
            Set Forms![Kalender2].Header6.Caption = Header_Captions(6)
            Set Forms![Kalender2].Header7.Caption = Header_Captions(7)
        End If
' .... diverses weitere Coding bis Next
    Next Index
' .... diverses weitere Coding bis End Sub.
End Sub
Als Fehlermeldung bekomme ich
Zitat:
[Anwendungstitel aus Start] kann das Formular Kalender2 nicht finden, auf das in einem Makroausdruck oder einer Visual Basic-Programmzeile verwiesen wird.
mit dem Coding
Code:
    ' Versuch 2
    Set Forms![Kalender1]![Kalender2].Header1.Caption = Header_Captions(1)
Zitat:
SysPa Reporting Client kann das in Ihrem Ausdruck angesprochene Feld 'Kalender2' nicht finden.
und der Versuch
Code:
' Versuch 3
    Set Forms![Kalender1].Form![Kalender2].Header1.Caption = Header_Captions(1)
Zitat:
Anwendungs- oder objektdefinierter Fehler

Code:
' Versuch 4
    Set Me!Kalender2!Kalender2!Kalender2.Header1.Caption = Header_Captions(1)
Zitat:
Sie haben einen Ausdruck eingegeben, der einen unzulässigen Verweis auf die Eigenschaft Form/Report enthält.
Wie spricht man eine Objekteigenschaft eines Objekts im Unterformular an?
Code:
    Set Me![Kalender2].Header1.Caption = Header_Captions(1)
reagiert übrigens wie Versuch 2

[EditNote] Versuch 4 hinzugefügt
Andreas2711
Im Profil kannst Du frei den Rang ändern


Verfasst am:
16. Okt 2006, 15:12
Rufname:


AW: Caption mehrere Bezeichnungsfelder in unsichtbarem UFo ä - AW: Caption mehrere Bezeichnungsfelder in unsichtbarem UFo ä

Nach oben
       Version: Office 2003

OKies, hier die Lösung nach Versuch weissnichtmehr wieviel
Code:
    Me!UFo!Header1.Caption = Header_Captions(1)
' ODER
    Forms!Kalender1!UFo!Header1.Caption = Header_Captions(1)
Als Memo für das nächste mal, wenn ich das vergesse: Bei UFo nicht das Herkunftsobjekt eintragen sondern den namen, den man dem Objekt "Unterformular" gegeben hat.
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Access Tabellen & Abfragen: Daten aus Tabelle in UFO anzeigen lassen 3 Jondalar 586 25. Feb 2008, 09:37
Marmeladenglas Daten aus Tabelle in UFO anzeigen lassen
Keine neuen Beiträge Access Formulare: UFO problem lösbar? 1 rw597678 694 27. März 2006, 21:33
faßnacht(IT); UFO problem lösbar?
Keine neuen Beiträge Access Formulare: Ufo mit Code ansprechen 1 Gast 481 23. Feb 2006, 21:01
jens05 Ufo mit Code ansprechen
Keine neuen Beiträge Access Formulare: Sortierreihenfolge im Ufo, letzter zu erst. 3 Alwin 693 19. Jan 2006, 10:32
Willi Wipp Sortierreihenfolge im Ufo, letzter zu erst.
Keine neuen Beiträge Access Formulare: beim öffnen des Ufo gleich zu neuem Datensatz 1 Jeem 680 01. Dez 2005, 10:37
Gast beim öffnen des Ufo gleich zu neuem Datensatz
Keine neuen Beiträge Access Formulare: Zugriff auf UFO auch ohne Inhalt 0 SvenP 485 18. Nov 2005, 16:37
SvenP Zugriff auf UFO auch ohne Inhalt
Keine neuen Beiträge Access Formulare: Listenfeld in UFO 0 magicsource 480 13. Okt 2005, 14:30
magicsource Listenfeld in UFO
Keine neuen Beiträge Access Formulare: Wert in UFO setzen 1 Alwin 590 02. Okt 2005, 09:54
Alwin Wert in UFO setzen
Keine neuen Beiträge Access Formulare: Setzen von Wahr/Falsch Feldern auf True im UFO mit Filter 1 AccessPaul 793 20. Sep 2005, 19:44
jens05 Setzen von Wahr/Falsch Feldern auf True im UFO mit Filter
Keine neuen Beiträge Access Formulare: Anzeigen von Daten in einem UFO 1 Susanne23 496 15. Aug 2005, 23:16
Helge Anzeigen von Daten in einem UFO
Keine neuen Beiträge Access Formulare: leeres UFO beim Öffnen 9 11.auflage 596 12. Aug 2005, 12:43
11.auflage leeres UFO beim Öffnen
Keine neuen Beiträge Access Formulare: Positionen aller Bezeichnungsfelder ausdrucken ? 3 magnum 478 01. Jul 2005, 09:02
jens05 Positionen aller Bezeichnungsfelder ausdrucken ?
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Access Tabellen