Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Existenz von Steuerelement im Unterformular
zurück: dlookup - 2 Felder aktualisieren, aber wie? weiter: Wert aus Listenfeld per Doppelklick übernehmen 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
Micha_S
Gast


Verfasst am:
20. Jul 2007, 07:17
Rufname:

Existenz von Steuerelement im Unterformular - Existenz von Steuerelement im Unterformular

Nach oben
       Version: Office 2k (2000)

Hallo zusammen,

ich möchte die Existenz eines Steuerelementes in einem Unterformular prüfen. Hier aus dem Forum habe ich eine Funktion gefunden, die für das Prüfen innerhalb des Hauptformulares prima funktioniert:
Code:
Public Function fctFieldExists(Formularname As String, Feldname As String) As Boolean
    Dim c As Control
   
    For Each c In Forms(Formularname).Controls
        If c.Name = Feldname Then
            fctFieldExists = True
            Exit Function
        End If
    Next c
End Function
Der Aufruf soll beim Öffnen des Hauptformulares erfolgen, etwa mit
Code:
Private Sub Form_Open(Cancel As Integer)
    If fctFieldExists("Hauptformular", "FeldHFO") Then
        MsgBox "FeldHFO vorhanden"
      Else
        MsgBox "FeldHFO fehlt!"
    End If
    If fctFieldExists("Forms![Hauptformular]![fsub_UFO]", "FeldUFO") Then
        MsgBox "FeldUFO vorhanden"
      Else
        MsgBox "FeldUFO fehlt!"
    End If
End Sub
Die Prüfung für das Hauptformular funktioniert, für das UFO nicht.

Habe verschiedene Varianten der FAQ 4.2 Bezug auf Unterformular/bericht von DonKarl durchgespielt, ohne Erfolg. Der Name des Unterformulares ist fsub_UFO, ebenso wie der Name des Steuerelementes für das Unterformular im Hauptformular.

Hat jemand eine Idee warum das nicht klappt? Oder wie könnte ich sonst die Existenz des Steuerelementes im UFO prüfen (sollen später mehrere geprüft werden, nicht nur eines)?

Vielen Dank im voraus

Micha_S
rita2008
Im Profil kannst Du frei den Rang ändern


Verfasst am:
20. Jul 2007, 15:17
Rufname:
Wohnort: Berlin


AW: Existenz von Steuerelement im Unterformular - AW: Existenz von Steuerelement im Unterformular

Nach oben
       Version: Office 2k (2000)

Für das Unterformular musst Du die Funktion folgendermaßen aufrufen:
Code:
     Debug.Print fctFieldExists("Forms![Hauptformular]![fsub_UFO].Form", "FeldUFO")
Dabei muss fsub_UFO der Name des Unterformular-Steuerelements im HF sein.
_________________
mfg Rita

Antworten bitte hier im Forum, nicht als private Nachricht. Danke
Gast



Verfasst am:
23. Jul 2007, 11:50
Rufname:

AW: Existenz von Steuerelement im Unterformular - AW: Existenz von Steuerelement im Unterformular

Nach oben
       Version: Office 2k (2000)

Hallo Rita,

danke für Deine Antwort.

Leider klappt das auch mit der von Dir vorgeschlagenen Lösung nicht, ich bekomme weiterhin die Meldung:
Zitat:
Microsoft Access kann das Formular 'Forms![Hauptformular]![fsub_UFO].Form' nicht finden...
Der Name des Unterformular-Steuerelements im HF lautet wie das Unterformular selbst fsub_Info. Habe auch mal das Unterformular-Steuerelement umbenannt und auch diese Änderung in der Funktion durchgeführt, leider ebenso ohne Ergebnis.

Was mache ich falsch?

Vielen Dank für Deine Hilfe...
Gasth
Gast


Verfasst am:
23. Jul 2007, 12:55
Rufname:

AW: Existenz von Steuerelement im Unterformular - AW: Existenz von Steuerelement im Unterformular

Nach oben
       Version: Office 2k (2000)

Hallo,

ich vermute, du musst zuerst den Focus auf das Unterformular setzen
um auf die Steuerelemente zugreifen zu können.

Gruß kh
rita2008
Im Profil kannst Du frei den Rang ändern


Verfasst am:
23. Jul 2007, 14:28
Rufname:
Wohnort: Berlin

AW: Existenz von Steuerelement im Unterformular - AW: Existenz von Steuerelement im Unterformular

Nach oben
       Version: Office 2k (2000)

Ich fürchte, Du musst die Funktion etwas umschreiben, da ja Unterformulare nicht in der Forms-Auflistung enthalten sind. Wenn Du statt der Formularnamens die Form selber übergibst, sollte es gehen:
Code:
Public Function fctFieldExists(f As Form, Feldname As String) As Boolean
    Dim c As Control
   
    For Each c In f.Controls
        If c.Name = Feldname Then
            fctFieldExists = True
            Exit Function
        End If
    Next c
End Function
und der Aufruf:
Code:
Private Sub Form_Open(Cancel As Integer)
    If fctFieldExists(Me, "FeldHFO") Then
        MsgBox "FeldHFO vorhanden"
      Else
        MsgBox "FeldHFO fehlt!"
    End If
    If fctFieldExists(Me![fsub_UFO].Form, "FeldUFO") Then
        MsgBox "FeldUFO vorhanden"
      Else
        MsgBox "FeldUFO fehlt!"
    End If
End Sub
Hatte mir wohl das letzte mal Deine Code nicht genau genug angesehen.
_________________
mfg Rita

Antworten bitte hier im Forum, nicht als private Nachricht. Danke
Micha_S
Gast


Verfasst am:
23. Jul 2007, 15:58
Rufname:


AW: Existenz von Steuerelement im Unterformular - AW: Existenz von Steuerelement im Unterformular

Nach oben
       Version: Office 2k (2000)

Super!!!!

Das war's, funzt. Razz

Vielen Dank für die schnelle und kompente Hilfe, Rita!
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: Unterformular nach Zeitspanne filtern 2 Udosym 105 01. Dez 2013, 14:48
MaHumba Unterformular nach Zeitspanne filtern
Keine neuen Beiträge Access Tabellen & Abfragen: Berechnung in Unterformular 1 Bollerkohl 100 09. Okt 2012, 08:19
kyron9000 Berechnung in Unterformular
Keine neuen Beiträge Access Tabellen & Abfragen: Laufende Uhrzeit im Unterformular 3 Iron70 305 23. Sep 2012, 07:57
Iron70 Laufende Uhrzeit im Unterformular
Keine neuen Beiträge Access Tabellen & Abfragen: Unterformular Neuer Datensatz nicht am Schluss 1 chris374 389 03. März 2012, 10:56
KlausMz Unterformular Neuer Datensatz nicht am Schluss
Keine neuen Beiträge Access Tabellen & Abfragen: Unterformular per SQL füllen / Objekt geschlossen... 6 htc.zenit 513 15. Feb 2012, 18:12
Gast Unterformular per SQL füllen / Objekt geschlossen...
Keine neuen Beiträge Access Tabellen & Abfragen: Auf Unterformular zugreifen 1 Vermillion 181 12. Jan 2012, 18:38
MiLie Auf Unterformular zugreifen
Keine neuen Beiträge Access Tabellen & Abfragen: Unterformular für Artikelbestellung 5 JochenGAST 304 01. März 2011, 20:10
KlausMz Unterformular für Artikelbestellung
Keine neuen Beiträge Access Tabellen & Abfragen: Variabler Wert in einem Abhängigem Unterformular 7 Ogni 589 07. Feb 2011, 18:45
Bitsqueezer Variabler Wert in einem Abhängigem Unterformular
Keine neuen Beiträge Access Tabellen & Abfragen: Leere Abfrage wenn kein Wert im Unterformular??? 5 Gast 588 23. Dez 2010, 15:02
Willi Wipp Leere Abfrage wenn kein Wert im Unterformular???
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage in Unterformular 3 Hundshamer 302 25. Mai 2010, 11:22
blackoutNO Abfrage in Unterformular
Keine neuen Beiträge Access Tabellen & Abfragen: Abfragen im ungebundenem Steuerelement aktualisieren 6 Rotzlöffel 596 07. Mai 2009, 10:57
Gast Abfragen im ungebundenem Steuerelement aktualisieren
Keine neuen Beiträge Access Tabellen & Abfragen: Unterformular nach eingabe in Hauptformular aktualisieren 8 fossiebaer 3991 19. Jan 2009, 08:28
kosmix Unterformular nach eingabe in Hauptformular aktualisieren
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Excel Tricks