Anzeigen bestimmter Text basierend auf Datenauswahl

Question

Ich mache ein Formular, das alle Teile in unserer Datenbank zeigt (aus unserer Master-Komponenten-Tabelle namens TAGS). Alle Werte werden ordnungsgemäß angezeigt, da sie aus der TAG-Tabelle abgerufen werden. Die Sache ist, als die Tabelle erstellt wurde, haben sie nie die Beschreibungen jedes Komponententyps eingegeben.

Zum Beispiel sollte TagLabel "CON" in der Tabelle die Beschreibung "Condensers" aus Gründen der Klarheit im Bericht haben (einige der Etiketten sind nicht sehr intuitiv).

Ich versuche, VBA-Code zu verwenden, um eine Textbox (TagDescription) neben der TagLabel-Box zu formatieren, die die Beschreibungen basierend auf dem TagLabel anzeigt. Die "einfache", aber fürchterlich langweilige Lösung besteht darin, die TAG-Tabelle durchzugehen und manuell eine Beschreibungsspalte hinzuzufügen.

Ich versuche, so etwas zu tun, das zu vermeiden:

Private Sub Report_Page() 
If Me.TagLabel = "CON" Then 
    Set Me.TagDescription = "Condensers" 
End If 
End Sub 

Ich bin sicher, es ist nur eine einfache Syntax fix, aber ich habe ein paar Dinge ausprobiert, die nicht arbeiten, so als .value und .text bis zum Ende Me.TagLabel usw. hinzufügen Vielen Dank für Ihre Hilfe im Voraus!

Answer 1

Dies ist wahrscheinlich die Syntax, die Sie suchen, aber ich bin mir sicher, wenn Sie den gewünschten Effekt erhalten. Es klingt wie eine sehr hässliche Lösung.

Private Sub Report_Page() 
    If TagLabel = "CON" Then 
     TagDescription = "Condensers" 
    End If 
End Sub 

Wenn Sie einen großen all die Mühe des Aufbaus IF-Block für jede mögliche TagLabel gehen gehen, sollten Sie wahrscheinlich den sauren Apfel beißen und tun es der richtige Weg mit einer Lookup-Tabelle.

Erstellen Sie einfach eine neue Spalte in einer Tags-Nachschlagetabelle und aktualisieren Sie die Tags - viel weniger tippen Sie dann den gesamten Code, über den Sie sprechen. Dann ist es einfach, die Tabelle mit der Berichtabfrage zu verbinden und Ihr Textfeld wird automatisch ausgefüllt.