online 1
gast (50)

/ Forum / Datenbanken

DatenbankenDatenbanken

Fragevon Pydna vom 24.02.2022, 19:55 Options

Access: Textfeld variabel einer Zelle zuweisen

Hallo,

ich habe folgendes Problem:

Ich möchte via Dropdown-Menü einem Textfeld verschiede Zellen in einer Tabelle zuweisen.

Bsp: Ich wähle im Dropdown-Menü "Normalstunden" aus und das Textfeld1 hat nun den Bezug zur Zelle "Normalstunden" in der Tabelle "Arbeitszeit". Wähle ich "Wegestunden" aus, soll das Textfeld1 den Bezug auf die Zelle "Wegestunden" in der Tabelle "Arbeitszeit" haben etc...

Wie kann ich dies per VBA lösen?

Vorab danke für Eure Hilfe!

Greez
Steppl


Antwort schreiben

Antwort 1 von RaHi vom 26.02.2022, 18:34 Options

Hallo Steppl,

ich habe zwei Combo-Felder in meinem Formular definiert. "Kombinationsfeld0" hat ein Herkunftstyo "Werteliste" mit der Datensatzherkunft "Normalstunden";"Wegestunden" verpasst bekommen. Das "Kombinationsfeld2" hat den Herkunftstyp "Tabelle/Abfrage". Bei Ereignis "Nach Aktualisierung" beim Feld "Kombinationsfeld0" habe ich folgenen Code eingetragen:
Private Sub Kombinationsfeld0_AfterUpdate()

Select Case Kombinationsfeld0
Case "Normalstunden"
    Me!Kombinationsfeld2.RowSource = "SELECT Strasse from strTab1"
    
Case "Wegestunden"
    Me!Kombinationsfeld2.RowSource = "SELECT Strasse from strTab2"
Case Else
    Me!Kombinationsfeld2.RowSource = ""
End Select
Me!Kombinationsfeld2 = ""

End Sub 
Je nachdem welchen Wert du im ersten Kombi-Feld auswählst, wir das entsprechende SELECT zugeordnet. Du muss eigentlich nur noch die Select-Statements entsprechend deiner Anwendung anpassen. Geht das in die richtige Richtung?

Gruß
Ralf

Antwort 2 von Pydna vom 09.03.2022, 22:21 Options

Hallo,

ich habe mein Problem wie folgt gelöst:

In meiner Tabelle "Arbeitszeit" habe ich zwei weitere Spalten
hinzugefügt. Erste Splate "Stundenart" als DropDown-Menü mit den
Werten "Normalstunden";"Wegestunden"; etc. und die zweite Spalte
"Dummystunden".

Im Formular habe ich diese zwei neuen Spalten eingefügt und nach
Aktualisierung des Feldes "Dummystunden" starte ich eine if-Abfrage,
die wie folgt aussieht:

if me.stundenart = "Normalstunden" then
me.normalstunden = me.dummystunden
elseif me.stundenart = "Wegestunden" then
me.wegestunden = me.dummystunden
end if

Funktioniert wie gewollt :-)

Ähnliche Themen

Textfeld mit Abfrage befüllen
morpheus__85  19.09.2008 - 61 Hits - 3 Antworten

Statuszeilen Text in einem Textfeld
RalfH  06.11.2008 - 36 Hits - 26 Antworten

Bestimmten Zelleninhalt einer Variablen zuweisen (Access03)
FrankZillmer  15.01.2009 - 478 Hits - 1 Antwort

Wenn Dann Sonst in Textfeld
enzics  16.04.2009 - 168 Hits - 1 Antwort

Textfeld-Eigenschaft Kennwort
spaceman  02.11.2009 - 217 Hits - 2 Antworten

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..

Neue Einträge

Version: supportware 1.9.150 / 10.06.2022, Startzeit:Thu Jan 8 21:07:44 2026