Access-o-Mania

Access-Forum (Deutsch/German) => Access Programmierung => Thema gestartet von: tobias.vetter am Oktober 09, 2020, 10:40:02

Titel: [Gelöst] MsgBox mit Listeneintrag
Beitrag von: tobias.vetter am Oktober 09, 2020, 10:40:02
Guten Morgen liebes Forum.

Folgender Sachverhalt:
Beim clicken auf einen Listenwerd soll folgende Messagebox erscheinen:

Titel: Rechnung bearbeiten
Meldung: Rechnung vom "ausgewählte Rechnung des Listenfelds aus Abfragewert [rech_lang] bearbeiten

Mein Versuch:
CODE: ALLES AUSWÄHLEN
Private Sub list_rechnung_alle_Click()
'  <---- msgbox ---->
    Dim Meldung As Long
    Meldung = MsgBox("Rechnung vom" & vbCrLf & Me![rech_lang] & vbCrLf & "bearbeiten?", vbYesNo, "Rechnung bearbeiten")
    If Meldung = vbYes Then
'                          <---- Ereignisbefehle---->
    Else
'                          <---- Ereignisbefehle---->
    End If


Leider sagt mir nun Access, dass es das Feld [rech_lang] nicht findet.
Die MsgBox funktioniert mit Listenfeldern welche im Formular eingebettet sind.
Leider enthalten diese Felder nur Fremdschlüssel und nicht den "realen Wert"

Das Listenfeld in dem alle Rechnungen angezeigt werden heißt list_rechnungen_alle

Danke schon einmal für eure Hilfe.

Änderung:

http://www.office-loesung.de/p/viewtopic.php?f=167&t=847596

In meinem X-Post wurde das Thema gelöst.

Grüße