Forum des VBA-Tutorials

Textfeld unterschiedlich füllen (Access)

thomas, Freitag, 11. August 2017, 12:03 (vor 69 Tagen)

Guten Tag erstmal...
ich hab da ein Problem, ich würde gerne ein Textfeld unterschiedlich beschreiben.

Und zwar wie folgt:
In Textfeld 1 steht Firmenname
In Textfeld 2 steht wird ein Anschriftfeld (welches sich dann einfach Kopieren lässt die sich aus

Firma
Strasse Hausnummer
Postleitzahl und Ort

zusammensetzt.

Sieht Code mäßig wie folgt aus.


[Supplier_Firma] & Zchn(13) & Zchn(10) &
[Supplier_Strasse] & " " & [Supplier_Hausnummer] & Zchn(13) & Zchn(10) &
[Supplier_PLZ] & " " & [Supplier_Ort]

Jetzt würde ich gerne haben wollen, dass wenn zum Beispiel eine chinesische Firma ausgewählt wir sich die Textreihenfolge ändert, in...

[Supplier_Firma] & Zchn(13) & Zchn(10) & [Supplier_Strasse] & " " & [Supplier_Hausnummer] & Zchn(13) & Zchn(10) &
[Supplier_Ort]
[Supplier_Provinz1] & Zchn(13) & Zchn(10) &
[Supplier_Provinz2] & Zchn(13) & Zchn(10) &
[Supplier_PLZ] & ", " & [Supplier_Land]

Optisch sieht das dann so aus.

Firma
Strasse Hausnummer
Ort
Provinz1
Provinz2
PLZ Land

ich denke mal das müsste ein if else werden.... siehe unten.

If
[Supplier_Land] = "Deutschland" then
Me.Adressfeld = [Supplier_Firma] & Zchn(13) & Zchn(10) & [Supplier_Strasse] & " " &[Supplier_Hausnummer] & Zchn(13) & Zchn(10) & [Supplier_PLZ] & " " & [Supplier_Ort]
else
Me.Adressfeld = [Supplier_Firma] & Zchn(13) & Zchn(10) & [Supplier_Strasse] & " " &[Supplier_Hausnummer] & Zchn(13) & Zchn(10) &[Supplier_Ort] &[Supplier_Provinz1] & Zchn(13) & Zchn(10) &[Supplier_Provinz2] & Zchn(13) & Zchn(10) &[Supplier_PLZ] & ", " & [Supplier_Land]

Ich bekomme es in VBA aber irgendwie nicht umgesetzt... Kann mir da jemand behilflich sein ??


gesamter Thread:

 RSS-Feed dieser Diskussion

powered by my little forum