HI Forum,
ich habe folgendes Problem. In meinem Hauptformular will ich eine Gesamtübersicht eines bestimmten Lieferanten haben.
Soweit funktioniert dies auch ganz gut. Nun möchte ich drei Textfelder farblich markieren, abhängig vom Lieferverhalten des Lieferanten.
Das kann man sich so vorstellen. Lieferung erfolgt innerhalb des Zeitraums vom 01 - 11 eines Monats. Textfeld (txtJan_gruen) soll grün eingefärbt werden. Vom 12-20 eines Monats. Textfeld txtJan_gelb) soll gelb eingefärbt werden. Und letztendlich für den Rest des Monats das selbe mit einem Textfeld (txtJan_rot) welches rot werden soll. Immer Abhängig vom Lieferverhalten des Vormonats.
Meine Abfrage dafür funktioniert soweit:
SELECT Switch(Day([Eingangsdatum])<11,1,Day([Eingangsdatum])<21,2,Day([Eingangsdatum])<=31,3) AS Gruppe, tblNW.SFID, tblNW.Lieferant, tblNW.Eingangsdatum
FROM tblNW
WHERE (((tblNW.Eingangsdatum)>=DateSerial(Year(Date()),Month(Date())-1,1) And (tblNW.Eingangsdatum)<=DateSerial(Year(Date()),Month(Date())-0,0)));
Aber wie binde ich das ins Formular mitein, und dann auch noch bezogen auf die drei Textfelder.
??? ??? ???
Vielleicht fällt jemandem eine bessere Lösung ein.
DAAAANKEE
Hallo,
bei einem Einzel-Formular kannst Du beim Ereignis "Form_Current" die Textfelder nach Belieben (nach Deinen Kriterien) per Code in der Ereignisprozedur einfärben.
Bei einem Endlosform kannst (musst) Du die Bedingte Formatierung ("Ausdruck") einsetzen, um die einzelnen Datensatz-Felder entspr. einzufärben.
Vielen Dank für die schnelle Antwort.
Was ich im FRM machen muss ist mir schon bewusst, aber wie beziehe ich die Abfrage da mit hinein?
Ich komme nicht dahinter wie ich dem Textfeld die qry Zuweise. "Steuerelementinhalt" funktioniert nicht, den da bekomme ich den Bezug zum jeweiligen Lieferanten nicht hin, als sprich der Lieferant der im aktuellen Formular angezeigt wird.
Irgendwie stelle ich mich zu blöd an, oder ich denke einfach zu kompliziert.
Hallo,
benutz (als Standard-Methode) die Dlookup()-Funktion (siehe VBA-Hilfe) oder (als Alternativ-Methode mit Möglichkeit der Angabe einer direkten SQL mit Where-Condition-Anpassung) einen Recordset, um das "Kriterium" (Gruppe: 1,2 oder 3) auszulesen und dazu zu verwenden, die Farbe einzustellen.
Hört sich super an, nur ohne Beispiel werde ich da keinen Meter vorankommen.
Hab noch nie DLookup funktionen benutzt.
Hallo,
naja, Beispiel hier:
ZitatDlookup()-Funktion (siehe VBA-Hilfe)
Viel geholfen hat es nicht. ???
Aber gut, werde mich dann wohl erstmal durch tausende Foren durchwühlen um zu verstehen wie DLookup funktioniert.
Vor allem wie ich meine Abfrage dort verwende. Trotzdem Danke.
Zitat von: DF6GL am Februar 17, 2012, 14:36:25
Hallo,
naja, Beispiel hier:
ZitatDlookup()-Funktion (siehe VBA-Hilfe)
HAllo,
Naja, wenn Du die VBA-Hilfe nicht verstehst, hilft Dir auch ein (anderes) Beispiel nichts, das versteht Du ja dann auch nicht, d. h. Du kannst es nicht an Deine Gegebenheiten anpassen. Und tausende anderer Foren werden Dir auch nichts anderes sagen. ::)
Du könntest ja die DB hier hochladen, dann ergäbe sich die Möglichkeit, dass man das konkret einbaut...
Ich befürchte halt dann trotzdem, dass Du beim nächsten Problem wieder nicht weiterkommst, wenn Du Dich nicht mit (VBA_) Grundlagen beschäftigst.
Hallo scoopman,
ZitatNun möchte ich drei Textfelder farblich markieren
Ist alles nicht ganz verständlich. Wenn Du doch DREI Felder hast, die
jedes sowieso für einen bestimmten Status bestimmt sind, brauchst
Du die doch nicht bedingt zu formatieren, - oder?
Ein Feld grün, eins gelb und eins rot, direkt per Eigenschaft BackColor
eingestellt, und gut ist.
gruss ekkehard
Hallo zusammen,
sorry, aber mich hatte die Grippe dahingerafft.
Aber zurück zu meinem Problem.
@Beaker s.a.:
Ich suche immer noch nach Lösungsvorschlägen. Das war nur ein Beispiel von mir wie ich es mir vorstellen könnte.
@DF6GL: Ich habe mir erst eine SQL Schulung gegönnt und die war nicht günstig. Bei meinem Chef brauche ich nicht wegen VBA zu fragen. Folglich muss ich halt mit diesen wiedrigkeiten leben. Ich habe die DB bereits in abgespeckter Version hochgeladen. War nur zu nem anderen Thema.
Grüße