Formatdarstellung Listenfeld

[mad]

Hallo Zusammen,

ich habe in einem Formular ein Listenfeld in dem eine Inventarnummer incl. entsprechenden Typbezeichung dargestellt wird. Nun wir aber die Inventarnummer nicht in der Formatierung dargestellt wie diese in der Tabelle und den Abfragen dargestellt wird.
Eingabeformat (Tabelle): 0.00.000.0000;;_

Datenherkunft für das Listenfeld (Bild: liste1):

Code [Auswählen] Erweitern

SELECT qryPruefenGroup.InventarNr, qryPruefenGroup.Typ FROM qryPruefenGroup ORDER BY qryPruefenGroup.Typ;

Code der Abfrage "qryPruefenGroup" (Bild: tab1):

Code [Auswählen] Erweitern

SELECT qryPruefenGroupBasis.InventarNr, qryPruefenGroupBasis.Typ, qryPruefenGroupBasis.Pruefer, qryPruefenGroupBasis.KfzKenn, qryPruefenGroupBasis.Wechselmodul, qryPruefenGroupBasis.Geraeteraum, qryPruefenGroupBasis.Ausmusterzeit, qryPruefenGroupBasis.Prüf_M_J, qryPruefenGroupBasis.Ausmusterdat, qryPruefenGroupBasis.Beschaffkosten, qryPruefenGroupBasis.Beschaffdat, qryPruefenGroupBasis.BjHerstelldat, qryPruefenGroupBasis.Hersteller, qryPruefenGroupBasis.Seriennummer, qryPruefenGroupBasis.Typenschild, qryPruefenGroupBasis.Pruefintervall, qryPruefenGroupBasis.Ausgemustert, qryPruefenGroupBasis.Prüf_M_J, qryPruefenGroupBasis.frm_rptNr
FROM qryPruefenGroupBasis
GROUP BY qryPruefenGroupBasis.InventarNr, qryPruefenGroupBasis.Typ, qryPruefenGroupBasis.Pruefer, qryPruefenGroupBasis.KfzKenn, qryPruefenGroupBasis.Wechselmodul, qryPruefenGroupBasis.Geraeteraum, qryPruefenGroupBasis.Ausmusterzeit, qryPruefenGroupBasis.Ausmusterdat, qryPruefenGroupBasis.Beschaffkosten, qryPruefenGroupBasis.Beschaffdat, qryPruefenGroupBasis.BjHerstelldat, qryPruefenGroupBasis.Hersteller, qryPruefenGroupBasis.Seriennummer, qryPruefenGroupBasis.Typenschild, qryPruefenGroupBasis.Pruefintervall, qryPruefenGroupBasis.Ausgemustert, qryPruefenGroupBasis.Prüf_M_J, qryPruefenGroupBasis.frm_rptNr
HAVING (((Max(qryPruefenGroupBasis.[Nächste Prüfung Jahr]))=Year(Date())));


Wie/Wo muß ich was ändern damit meine Inventarnummern im Listenfeld richtig formatiert (mit Trennpunkten) angezeigt werden.

Hätte jemand einen Tipp/Lösung.


Danke
mad

[DF6GL]

Hallo,

nutze die Format-Funktion in der Select-Liste:

SELECT Format(InventarNr,"0\.00\.000\.0000") As InvNr, qryPruefenGroup.Typ FROM qryPruefenGroup ORDER BY qryPruefenGroup.Typ;

[mad]

Danke für die Hilfe,

nun habe ich aber das Problem das mein nachfolgender Code nicht mehr funktioniert:

Code [Auswählen] Erweitern

Private Sub lstAusgemustert_DblClick(Cancel As Integer)
Me.Recordset.FindFirst "InventarNr = '" & Me!lstAusgemustert & "'"
End Sub
Wie hängt das mit der Formatierung zusammen?

Gruss
mad

[DF6GL]

Hallo,

das grundsätzliche Problem ist, dass Du nicht mit Primärschlüsseln (Autowert, Zahl, Long) arbeitest.


Mach es so:

SELECT InventarNr,  Format(InventarNr,"0\.00\.000\.0000") As InvNr, qryPruefenGroup.Typ FROM qryPruefenGroup ORDER BY qryPruefenGroup.Typ;

und stelle das Listenfeld um:

Spaltenanzahl: 3
Soaltenbreiten: 0cm; 2cm;4cm

[mad]

Musste den Code leicht abändern (Herkunft von "InventarNR"),

SELECT qryPruefenGroup.InventarNr, Format([InventarNr],.....

aber jetzt funktionierts.


Herzlichen Dank
mad