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):
SELECT qryPruefenGroup.InventarNr, qryPruefenGroup.Typ FROM qryPruefenGroup ORDER BY qryPruefenGroup.Typ;
Code der Abfrage "qryPruefenGroup" (Bild: tab1):
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
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;
Danke für die Hilfe,
nun habe ich aber das Problem das mein nachfolgender Code nicht mehr funktioniert:
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
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
Musste den Code leicht abändern (Herkunft von "InventarNR"),
SELECT qryPruefenGroup.InventarNr, Format([InventarNr],.....
aber jetzt funktionierts.
Herzlichen Dank
mad