Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Funktion: Existiert mein Steuerelement?
zurück: Alle Menüleisten deaktivieren weiter: Schnittstelle zu Bank (DATEV) einbauen Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Der_Andi1984
Fortgeschritten in Access mit VBA


Verfasst am:
29. Jun 2007, 09:12
Rufname:

Funktion: Existiert mein Steuerelement? - Funktion: Existiert mein Steuerelement?

Nach oben
       Version: Office 2003

Hallo,
ich versuche gerade eine Funktion zu schreiben, welche überprüft, ob ein benanntes Steuerelement existiert.
Ich gehe mit einer For Each-Schleife durch die Me.Section(acDetail).Controls-Auflistung. Aber der Name des Steuerelements ist nicht als Eigenschaft verfügbar.

Anbei mein Code. Ist mein Vorhaben überhaupt möglich?
Wenn ja, was übersehe ich?
Code:
Private Function ControlExists(name As String) As Boolean
    'Prüft, ob das benannte Steuerelement exisitiert
    Dim c As Control
   
    For Each c In Me.Controls
        If   (???)   Then
            ControlExists = True
            Exit Function
        End If
    Next c
    ControlExists = False
End Function

Gruß, Andreas
JörgG
Access-Team


Verfasst am:
29. Jun 2007, 09:53
Rufname:
Wohnort: b. Dresden

AW: Funktion: Existiert mein Steuerelement? - AW: Funktion: Existiert mein Steuerelement?

Nach oben
       Version: Office 2003

Hallo,

da c kein AC bekanntes Objekt ist, bekommst Du die übliche Autovervollständigung nicht angezeigt. c verfügt dennoch über alle Eigenschaften die das angesprochene Control auch hat, also --> c.Name liefert Dir den Namen des Steuerelementes.

_________________
MfG, Jörg Very Happy

Bitte das Feedback nicht vergessen.
Nouba
nicht ganz unwissend :)


Verfasst am:
29. Jun 2007, 16:49
Rufname:
Wohnort: Berlin


AW: Funktion: Existiert mein Steuerelement? - AW: Funktion: Existiert mein Steuerelement?

Nach oben
       Version: Office 2003

Hallo,

ich würde das dann eher so machen. Allerdings kenne ich in meinen Formularen auch alle Steuerelemente.

Code:
Private Function ControlExists(name As String) As Boolean
  Dim c As Control

  On Error Resume Next
  Set c = Me(name)
  ControlExists = Err = 0 'zur besseren Lesbarkeit auch CBool(Err.Number = 0)
End Function

_________________
mit freundlichen Grüssen Nouba

Wenn beim Lesen eines Beitrags der Eindruck entsteht, dass sich der Fragesteller wenig Mühe gegeben hat, so erhöht das nicht unbedingt die Motivation, eine Antwort zu verfassen.
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: Insert+replace funktion ueber Nummernfeld 1 galaxy 600 19. Sep 2007, 10:30
SGast Insert+replace funktion ueber Nummernfeld
Keine neuen Beiträge Access Tabellen & Abfragen: berechnetes Steuerelement abändern 22 lurchi 1918 17. Sep 2007, 09:34
lurchi berechnetes Steuerelement abändern
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage - Feld > Funktion Säubern? 12 Konrad H. 2213 11. Jul 2007, 10:53
Willi Wipp Abfrage - Feld > Funktion Säubern?
Keine neuen Beiträge Access Tabellen & Abfragen: SQL Abfrage einem Steuerelement zuweisen 1 dadoener 1399 15. März 2007, 11:57
rita2008 SQL Abfrage einem Steuerelement zuweisen
Keine neuen Beiträge Access Tabellen & Abfragen: Funktion Datum 4 iso 8280 26. Jan 2007, 14:07
Willi Wipp Funktion Datum
Keine neuen Beiträge Access Tabellen & Abfragen: ersetzen() Funktion 1 beemer 797 29. Nov 2006, 17:51
Nouba ersetzen() Funktion
Keine neuen Beiträge Access Tabellen & Abfragen: Problem mit der Funktion NZ 6 Gast Uli 582 01. Sep 2006, 15:21
Gast Uli Problem mit der Funktion NZ
Keine neuen Beiträge Access Tabellen & Abfragen: fehlermeldung makro2 existiert nicht... 2 bisse 503 20. Mai 2006, 17:37
bisse fehlermeldung makro2 existiert nicht...
Dieses Thema ist gesperrt, du kannst keine Beiträge editieren oder beantworten. Access Tabellen & Abfragen: Funktion MAX 1 johnwalton 897 20. Apr 2006, 12:48
c0bRa Funktion MAX
Keine neuen Beiträge Access Tabellen & Abfragen: Datum > Tag Funktion 1 mirco 695 08. Feb 2006, 16:00
steffen0815 Datum > Tag Funktion
Keine neuen Beiträge Access Tabellen & Abfragen: Count() Funktion in Abfrage funktioniert nicht 1 Nike 889 31. Jan 2006, 19:44
jens05 Count() Funktion in Abfrage funktioniert nicht
Keine neuen Beiträge Access Tabellen & Abfragen: Wenn Funktion bei Kriterien in einer Abfrage 2 Transputor 11390 13. Dez 2005, 17:37
Transputor Wenn Funktion bei Kriterien in einer Abfrage
 

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