Office: (Office 2016) Control an Sub übergeben

Hallo,

ich habe in einem Formular mehrere Textfelder, deren Eingabe auf Richtigkeit geprüft werden soll. Entspricht der Wert nicht den angegebenen Grenzen, soll eine Meldung erscheinen und der Focus auf das fehlerhafte Textfeld gesetzt werden.

Also habe ich die Prüfung in eine Sub ausgelagert.

Code:

Mein Problem ist die Übergabe des Controls. Mit
Code:

übergebe ich ja nur 2 mal den Wert des Textfeldes.
Wie mache ich es aber, dass das Textfeld angesprochen wird und eben nicht der Wert?

:)

 

Suche mal nach ActiveControl...

 

Möglichkeit 1: mach aus der Prozedur eine Funktion, die einen Rückgabewert liefert. Der könnte true oder false sein wenn die Prüfung erfolgreich war oder nicht. Alternativ kann es auch eine andere Wertart sein, die dann je nach Control einen definierten Wert zurück gibt.
Möglichkeit 2: wenn die Sub im Formular definiert ist, hast Du alle Controls mit Me!Name_des_Controls im Zugriff und kannst den Focus setzen.

Gruß
Fred

 

Moin,

ich verzweifle langsam...und das am frühen Morgen :-)

ich habe jetzt gefühlt jede Kombi Von ActiveControl in Verbindung mit Controls, Me.ctl etc. probiert aber das ist nichts anderes, als eine Ansammlung von hilflosen Versuchen, gekrönt von jeder Menge Fehler.

Nehmen wir z.B. das hier:
Code:

In dem Moment, in dem ich Set ctrl ausführe, wird ctrl der Wert von ActiveControl zugewiesen. Gleiches passiert mit
Code:

Offensichtlich habe ich da was noch nicht verstanden.

Was mich irritiert ist, dass ich im Netz Beispiele gefunden habe, in denen es ganz einfach zu funktionieren scheint.

Wie auch immer, ich habe es jetzt folgendermaßen gelöst:
Code:

 

Hallo,

Du kannst natürlich auch beim Ereignis BeforeUpdate bei jedem Control, das Du prüfen willst, eine entsprechende Prüfung durchführen und dann Cancel auf True oder False setzen und den Focus auf das entsprechende Control setzen.

Gruß
Fred

 

übergebe ich ja nur 2 mal den Wert des Textfeldes.
Wie mache ich es aber, dass das Textfeld angesprochen wird und eben nicht der Wert?

Hast du deinen obigen Code mal ausprobiert? - Er sollte exakt so funktionieren.

Die Übergabe an das Long-Argument funktioniert deshalb, weil die VBA Runtime merkt, dass das Control als solches nicht zu dem Datentyp Long passt und dann versucht etwas brauchbares daraus zu machen. Dabei findet es die Default-Property des Controls, diese ist Value. Ein Variant lässt sich bei geeignetem Inhalt (Ganzzahl) durchaus in einen Long konvertieren. Genau das passiert.

Für das zweite Argument (ctrl) ist keine Konvertierung nötig und es wird direkt das Control selbst übergeben.

Deutlicher erkennbar wird das Ganze, wenn du selbst schon deinen Code expliziter formulierst:
Call CheckPLZ(Me.txtWertUnten.Value, Me.txtWertUnten)

Trotzdem ist die Parameterübergabe noch redundant. Das Value des Controls kannst du jederzeit abrufen, du musst also nicht unbedingt beides übergeben, das Control selbst reicht völlig aus.

Code:

 

Natürlich habe ich es ausprobiert, sonst hätte es mich nicht hierher verschlagen :-)

Ich habe es jetzt auch mal mit deinem Code versucht und die einzelnen Werte im Direktbereich aufgerufen. (siehe Bild)

Im Formular steht der Cursor aber nach Ausführung im falschen Feld.

Irritierender Weise zeigt debug.print activecontrol.name als Ergebnis das gewünschte Feld. Das macht mich noch irre :-)

 

Benutzer: Drückt [TAB] oder klick woanders hin.
Access: Das aktuelle Feld wird aktualisiert. After_Update ausführen; incl SetFocus.
Access: OK, alles erledigt. Jetzt setzen wir den Focus dorthin, wo der Benutzer hin wollte.

Wenn du verhindern willst, dass das Feld verlassen wird, musst du das BeforeUpdate-Ereignis verwenden und die Aktualisierung ggfl. abbrechen (Cancel=True).

 

Na super :-)

Das hätte ich vorher wissen müssen. Nun habe ich es anders gelöst, weiss aber für die Zukunft Bescheid.
Danke.