✔ Dynamische Controls auf Existenz abfragen

[hbrauchl]

Hallo zusammen!

Ist es möglich dynamisch erstelle Controls auf ihre Existenz zu überprüfen?

Folgendes würde ich gerne realisieren

Pseudocode:

If Label1(ix).Exists = True Then
Load Label1(ix)
End If

Wobei das mit Exists leider nicht funktioniert.

--> Es soll nur dann ein neues Label erstellt werden, wenn keines mit dieser ID
existiert.


Danke im voraus.


LG,
Hans

 

[Shakie]

Man kann einfach versuchen auf das Control zuzugreifen. Entsteht dabei ein Fehler, dann weiß man, dass das Control nicht existiert!
Hier Beispiel mit Command1 als Control:

On Error Resume Next
Dim blnDummy As Boolean
blnDummy = (Command1(ix).Index = ix)
If Err.Number <> 0 Then
	Err.Clear
	MsgBox "Control existiert nicht!"
End If

Die Variable "blnDummy" wird hier nur verwendet, um auf das Control zuzugreifen.

 

[hbrauchl]

Super! Genau das wollte ich!

Vielen Dank

LG,
Hans

 

[deusfalsus]

Hallo,
wie kann ich denn die Existens eines mit CreateControl erzeugten Steuerelementes abfragen?
Ich durchlaufe ein Recordset, welches Ergebnisse einer SQL-Abfrage enthält.
Beim ersten Durchlauf sollen als Spaltenüberschriften Label erzeugt werden. Um dies nicht bei jedem Durchlauf zu tun wollte ich abfragen, ob bereits ein Label mit der Bezeichnung, die sich hinter rs.Fields(i).name verbirgt existiert.

strFeld = rs.Fields(i).name
strDummy = frm.strFeld.Caption
If Err.Number <> 0 Then
       Err.Clear
       Set ctlLabel = CreateControl(frm.name, acLabel, acPageHeader, _
       , rs.Fields(i).name, intLabelX, intLabelY)

das mit dem Dummy funktioniert aber nur, wenn ich da wo jetzt "strFeld" steht, den tatsächlichen Feldnamen eingebe, was in einer Schleife natürlich nicht geht.

Für hilfreiche Tipps wäre ich sehr dankbar.