Aktuellen Datensatz im Endlosformular hervorheben, Font "Terminal"
Michael König
in A2k versuche ich, die Beispiele aus FAQ 4.1 zu testen und hier
speziell das Beispiel von Dev Ashish (das Beispiel von Stephen Lebans
ist vermutlich das Elegantere, jedoch verstehe ich nicht, wie es
einzusetzen ist :-( ). Das Beispiel von Dev verwendet den Font
"Terminal". Das Beispiel habe ich soweit verstanden und auch in einer
Anwendung eingesetzt, jedoch erscheinen nicht die Rechtecke sondern das
Zeichen "ￜ" (Character 0219) selbst. Beim ￜberprￜfen stelle ich fest,
dass der Font "Terminal" nicht bei der Font-Auswahl (z.B. fï¿œr ein
Textfeld) erscheint. Auch in anderen Anwendungen (z.B. Word) ist dieser
Font nicht auswï¿œhlbar. Ist dieser Font immer verfï¿œgbar und wie kann ich
in meiner Anwendung erzwingen, dass nicht das Zeichen erscheint, sondern
das Rechteck?
Gruￜ
Michael
Michael König
Das getestete Formular ist ein Unterformular in einem Hauptformular.
Ruft man das UFo testweise einzeln auf, so erscheint die aktuelle Zeile
wie gewï¿œnscht. Ruft man das Hauptformular auf, so erscheint nur das
jeweils angeklickte Control mit Rechtecken unterlegt, bei allen anderen
Controls in der Zeile erscheint das Zeichen "ￜ". Seltsam, seltsam ;-)
Michael Kï¿œnig schrieb:
Karl Donaubauer
Die Trickserei mit Terminal funktionierte in Zeiten von A97
und den damaligen Win/Office-Versionen relativ zuverlï¿œssig.
Mit spï¿œteren Versionen aber nur hin und wieder, weil die
Schriftart nicht mehr vorhanden war bzw. anders ersetzt wurde
usw. Das haben wir damals oft in den NGs diskutiert (s. google).
Wenn die DB also auf unterschiedlichen Rechnern laufen soll,
dann vergiss diese Variante und setze besser die Bedingte
Formatierung ein.
--
Servus
Karl
****************
Access-FAQ: http://www.donkarl.com /// http://www.donkarl.com?NEK
.NET-Entwickler-Konferenz fï¿œr Accessler 27./28.2. + 20./21.3.2010
Michael König
Karl Donaubauer schrieb:
> Das haben wir damals oft in den NGs diskutiert (s. google).
Leider habe ich dies nicht gefunden, ich habe in mpda nicht nach "Font
Terminal" gegoogelt, jetzt habe ich's.
>
> Wenn die DB also auf unterschiedlichen Rechnern laufen soll,
> dann vergiss diese Variante und setze besser die Bedingte
> Formatierung ein.
>
Das habe ich vorher versucht, aber mir ist nicht gelungen, eine ganze
Zeile und nicht nur ein angeklicktes Control farblich hervorzuheben. Ich
habe hierzu fï¿œr alle Controls einer Zeile die bedingte Formatierung
angewendet ("hat Focus"), aber die wirkt ja nur auf das ausgewï¿œhlte
(=angeklickte) Control. Wie erreiche ich mit der bedingten Formatierung,
das die ganze Zeile hervorgehoben wird, egal welches Control angeklickt
wird oder wenn der Datensatzzeiger angeklickt wird?
Gruￜ Michael
Karl Donaubauer
Musst du wirklich alle Steuerelemente einfï¿œrben oder reicht die
Einfï¿œrbung des Formular-Hintergrundes?
Falls ersteres, dann musst du das u.a. auf alle Steuerelemente
anwenden, falls letzteres, dann fï¿œgst du ein ungebundenes und
deaktiviertes (aktiviert = Nein, gesperrt = Ja) Textfeld ein, das
so groￜ ist wie der komplette Detailbereich und per Menￜ
Format/In den Hintergrund wandert.
Wenn du nun z.B. ein eindeutiges Feld "Id" hast, dann kannst du
"Beim Anzeigen" des Formulares folgenden Code verwenden:
Me!DeinSteuerelement.FormatConditions.Delete
Me!DeinSteuerelement.FormatConditions.Add _
acExpression, acEqual, "id=" & Me!id
Me!DeinSteuerelement.FormatConditions(0).BackColor = vbRed
Alternativ kannst du die BF-Einstellungen auch zu Fuￜ im Dialog
einstellen und dann "Beim Anzeigen" ï¿œndern:
Me!DeinSteuerelement.FormatConditions(0).Modify _
acExpression, acEqual, "id=" & Me!id
Michael König
Karl Donaubauer schrieb:
>
> Musst du wirklich alle Steuerelemente einfï¿œrben oder reicht die
> Einfï¿œrbung des Formular-Hintergrundes?
Hintergrund reicht, ich krieg's aber (noch) nicht hin. Mein
Hintergrund-Element heiï¿œt "ctlBack" und dies ist der Code:
Private Sub Form_Current()
If IsSubForm(Me) Then
Me.Parent!txtConcId = Me!Id
Me!ctlBack.FormatConditions.Delete
Me!ctlBack.FormatConditions.Add acExpression, acEqual, "Id = " & Me!Id
Me!ctlBack.FormatConditions(0).BackColor = RGB(255, 255, 0)
End If
End Sub
"Id" ist das eindeutige Feld und txtConcId das Verknï¿œpfungs-Element
Es wird allerdings nur das angeklickte Element beim Anklicken farblich
unterlegt, wenn man den Datensatzmarkierer anklickt, passiert gar nix.
Die Elemente in der Zeile habe ich mit Hintergrundart Transparent versehen.
Jens Schilling
Michael K�nig wrote:
> Karl Donaubauer schrieb:
>>
>> Musst du wirklich alle Steuerelemente einf�rben oder reicht die
>> Einf�rbung des Formular-Hintergrundes?
Schau doch mal, ob Dir diese Demo hilft :
http://my.advisor.com/doc/19525
--
Gruss
Jens
Karl Donaubauer
> Karl Donaubauer schrieb:
>>
>> Musst du wirklich alle Steuerelemente einfï¿œrben oder reicht die
>> Einfï¿œrbung des Formular-Hintergrundes?
> Hintergrund reicht, ich krieg's aber (noch) nicht hin. Mein
> Hintergrund-Element heiï¿œt "ctlBack" und dies ist der Code:
> Private Sub Form_Current()
> If IsSubForm(Me) Then
> Me.Parent!txtConcId = Me!Id
> Me!ctlBack.FormatConditions.Delete
> Me!ctlBack.FormatConditions.Add acExpression, acEqual, "Id = "
> & Me!Id Me!ctlBack.FormatConditions(0).BackColor = RGB(255,
> 255, 0) End If
> End Sub
Hast du geprï¿œft, ob der Code durchlaufen wird?
Schlieï¿œlich hast du da oben eine Bedingung IsSubForm...
> "Id" ist das eindeutige Feld und txtConcId das Verknï¿œpfungs-Element
Was spielt das "Verknï¿œpfungs-Element" fï¿œr ein Rolle bei dieser Aktion?
D.h. wozu ist es im Code?
> Es wird allerdings nur das angeklickte Element beim Anklicken
> farblich unterlegt,
Welches "angeklickte Element"?
> wenn man den Datensatzmarkierer anklickt,
> passiert gar nix. Die Elemente in der Zeile habe ich mit Hintergrundart
> Transparent
> versehen.
ctlBack ist aber nicht auf Transparent eingestellt und auch nicht
vï¿œllig von den anderen Steuerelementen ï¿œberdeckt oder dergl.?
Karl Donaubauer
> Michael Kï¿œnig wrote:
>>> ...
>> Hintergrund reicht, ich krieg's aber (noch) nicht hin. Mein
>> Hintergrund-Element heiï¿œt "ctlBack" und dies ist der Code:
>> Private Sub Form_Current()
>> If IsSubForm(Me) Then
>> Me.Parent!txtConcId = Me!Id
>> Me!ctlBack.FormatConditions.Delete
>> Me!ctlBack.FormatConditions.Add acExpression, acEqual, "Id = "
>> & Me!Id Me!ctlBack.FormatConditions(0).BackColor = RGB(255,
>> 255, 0) End If
>> End Sub
>
> Hast du geprï¿œft, ob der Code durchlaufen wird?
> Schlieï¿œlich hast du da oben eine Bedingung IsSubForm...
Teste auch mal, ob die Sache klappt, wenn du die Bedingung
weglï¿œsst und das Formular nicht als UFo sondern eigenstï¿œndig ï¿œffnest.
Michael König
Karl Donaubauer schrieb:
>
> Hast du geprï¿œft, ob der Code durchlaufen wird?
> Schlieï¿œlich hast du da oben eine Bedingung IsSubForm...
>
der Code fï¿œr die BF ist mittlerweile aus der IsSubForm-Bedingung
>> "Id" ist das eindeutige Feld und txtConcId das Verknï¿œpfungs-Element
>
> Was spielt das "Verknï¿œpfungs-Element" fï¿œr ein Rolle bei dieser Aktion?
> D.h. wozu ist es im Code?
>
fï¿œr die Synchronisation mit einem 2. UFo
>> Es wird allerdings nur das angeklickte Element beim Anklicken
>> farblich unterlegt,
>
> Welches "angeklickte Element"?
ein beliebiges Textfeld, vergiss diesen Punkt
>
> ctlBack ist aber nicht auf Transparent eingestellt und auch nicht
> vï¿œllig von den anderen Steuerelementen ï¿œberdeckt oder dergl.?
>
also ein Stï¿œck weit klappt's jetzt: man muss aufpassen, dass wenn man
eine Farbe einstellt, danach die Hintergrundart von "Transparent" wieder
auf "Normal" gestellt wird (ist ja auch irgendwie logisch).
Stand der Dinge: Die Zeile wird - wie gewï¿œnscht - farblich unterlegt,
allerdings:
klickt man jetzt auf ein beliebiges Steuerelement im Detail-Bereich,
wird dieses nicht mehr farblich unterlegt (damit kï¿œnnte ich leben)
und
bei jedem Datensatz-Wechsel "flackert" jetzt das ganze UFo, das ist
weniger schï¿œn. Kann man dieses Flackern auch noch unterbinden?
Karl Donaubauer
> Karl Donaubauer schrieb:
> Stand der Dinge: Die Zeile wird - wie gewï¿œnscht - farblich
> unterlegt, allerdings:
> klickt man jetzt auf ein beliebiges Steuerelement im Detail-Bereich,
> wird dieses nicht mehr farblich unterlegt (damit kï¿œnnte ich leben)
Klar, transparente Steuerelemente werden immer intransparent,
wenn sie den Fokus haben.
Du kannst das ï¿œbertricksen, indem du fï¿œr die Steuerelemente als
Hintergrundfarbe dieselbe einstellst wie fï¿œr das einfï¿œrbende Textfeld
und dann ihre Hintergrundart wieder auf transparent zurï¿œckï¿œnderst.
> und bei jedem Datensatz-Wechsel "flackert" jetzt das ganze UFo
> , das ist weniger schï¿œn. Kann man dieses Flackern auch noch unterbinden?
Teste, ob die Voreinstellen+Modify-Variante weniger flackert,
die ich weiter oben erwï¿œhnt hatte. Normalerweise ist das Flackern
bei dieser Methode gering, aber das hï¿œngt natï¿œrlich auch von deinen
sonstigen Ablï¿œufen ab, mehrfaches Verknï¿œpfen, allg. Performance etc.
Michael König
>
> Teste, ob die Voreinstellen+Modify-Variante weniger flackert,
> die ich weiter oben erwï¿œhnt hatte. Normalerweise ist das Flackern
> bei dieser Methode gering, aber das hï¿œngt natï¿œrlich auch von deinen
> sonstigen Ablï¿œufen ab, mehrfaches Verknï¿œpfen, allg. Performance etc.
>
Ich kann keinen Unterschied zwischen der Add- bzw. der Modify-Variante
feststellen, beide flackern. Zu den "Ablï¿œufen": Das "flackernde" UFo hat
als Datenquelle eine Abfrage, das HFo hat/braucht keine Datenquelle, es
enthï¿œlt nur ein paar Schaltflï¿œchen.
Karl Donaubauer
Warum schickst du deine Nachrichten auch dauernd als Email?
> ...
Ist das Flackern gleich heftig, wenn du das Formular nicht als UFo
sondern eigenstï¿œndig ï¿œffnest?
Wenn nein, dann prï¿œfe, wie oft der Code ausgefï¿œhrt wird, z.B. mit
einem debug.print oder einer MsgBox. Falls mehrfach, kann
man evtl. gegensteuern, indem man zuerst die Bedingung prï¿œft.
Michael König
Karl Donaubauer schrieb:
> Warum schickst du deine Nachrichten auch dauernd als Email?
>
sorry, weil ich nicht aufpasse. Ich speichere mir die Antworten in einem
sep. Ordner ab, und verwende dummerweise zum Antworten versehentlich
nicht die NG, sondern diesen Ordner. Entschuldige bitte, ich gelobe
Besserung
>> ...
>>> Teste, ob die Voreinstellen+Modify-Variante weniger flackert,
>>> die ich weiter oben erwï¿œhnt hatte. Normalerweise ist das Flackern
>>> bei dieser Methode gering, aber das hï¿œngt natï¿œrlich auch von deinen
>>> sonstigen Ablï¿œufen ab, mehrfaches Verknï¿œpfen, allg. Performance
>>> etc.
>> Ich kann keinen Unterschied zwischen der Add- bzw. der
>> Modify-Variante feststellen, beide flackern. Zu den "Ablï¿œufen": Das
>> "flackernde" UFo hat als Datenquelle eine Abfrage, das HFo
>> hat/braucht keine Datenquelle, es enthï¿œlt nur ein paar
>> Schaltflï¿œchen.
>
> Ist das Flackern gleich heftig, wenn du das Formular nicht als UFo
> sondern eigenstï¿œndig ï¿œffnest?
>
> Wenn nein, dann prï¿œfe, wie oft der Code ausgefï¿œhrt wird, z.B. mit
> einem debug.print oder einer MsgBox. Falls mehrfach, kann
> man evtl. gegensteuern, indem man zuerst die Bedingung prï¿œft.
>
Das Flackern ist genauso heftig, wenn ich das UFo eigenstï¿œndig ï¿œffne.
Kï¿œnnte es vielleicht sein, dass das Flackern durch die Datenquelle
(=Abfrage) verursacht wird? Hier mal das SQL-Syntax der Abfrage:
SELECT tblPersonen.Id, qryAnreden.Anrede, qryVollerName.VollerName,
IIf(IstAktiv([tblPersonen].[Id]),"aktiv","") AS Aktiv, tblPersonen.Plz,
tblPersonen.Wohnort, tblPersonen.Telefon, tblPersonen.Mobil,
tblPersonen.Geburtsdatum
FROM (tblPersonen LEFT JOIN qryVollerName ON tblPersonen.Id =
qryVollerName.Id) LEFT JOIN qryAnreden ON tblPersonen.AnredeId =
qryAnreden.Id
ORDER BY qryVollerName.VollerName;
Dabei ist qryVollerName seinerseits wieder eine Abfrage mit folgender
SQL-Syntax:
SELECT tblPersonen.Id, [Nachname] & IIf(IsNothing([Vorname]),""," " &
[Vorname]) AS VollerName
FROM tblPersonen
ORDER BY [Nachname] & IIf(IsNothing([Vorname]),""," " & [Vorname]);
Gruￜ Michael
Karl Donaubauer
> ...
> Das Flackern ist genauso heftig, wenn ich das UFo eigenst�ndig �ffne.
> K�nnte es vielleicht sein, dass das Flackern durch die Datenquelle
> (=Abfrage) verursacht wird? Hier mal das SQL-Syntax der Abfrage:
>
> SELECT tblPersonen.Id, qryAnreden.Anrede, qryVollerName.VollerName,
> IIf(IstAktiv([tblPersonen].[Id]),"aktiv","") AS Aktiv,
> tblPersonen.Plz, tblPersonen.Wohnort, tblPersonen.Telefon,
> tblPersonen.Mobil, tblPersonen.Geburtsdatum
> FROM (tblPersonen LEFT JOIN qryVollerName ON tblPersonen.Id =
> qryVollerName.Id) LEFT JOIN qryAnreden ON tblPersonen.AnredeId =
> qryAnreden.Id
> ORDER BY qryVollerName.VollerName;
>
> Dabei ist qryVollerName seinerseits wieder eine Abfrage mit folgender
> SQL-Syntax:
>
> SELECT tblPersonen.Id, [Nachname] & IIf(IsNothing([Vorname]),""," " &
> [Vorname]) AS VollerName
> FROM tblPersonen
> ORDER BY [Nachname] & IIf(IsNothing([Vorname]),""," " & [Vorname]);
Das sieht allerdings nach einem Mordanschlag auf die arme kleine
Access-Performance aus. ;-)
Wieviele Datens�tze hat tblPersonen?
Was ist IsNothing? Was IstAktiv?
Fragen �ber Fragen. :-)
Teste mal, ob das weniger flackert:
SELECT tblPersonen.Id, qryAnreden.Anrede,
tblPersonen.VorName + " " & tblPersonen.Nachname AS VollerName,
IIf(IstAktiv([tblPersonen].[Id]),"aktiv") AS Aktiv, tblPersonen.Plz,
tblPersonen.Wohnort, tblPersonen.Telefon, tblPersonen.Mobil,
tblPersonen.Geburtsdatum
FROM tblPersonen LEFT JOIN qryAnreden ON tblPersonen.AnredeId =
qryAnreden.Id
ORDER BY tblPersonen.Nachname, tblPersonen.VorName;
--
Servus
Karl
****************
Access-FAQ: http://www.donkarl.com /// http://www.donkarl.com?NEK
.NET-Entwickler-Konferenz f�r Accessler 27./28.2. + 20./21.3.2010
Karl Donaubauer
> Michael K�nig wrote:
>> ...
>> [Vorname]) AS VollerName
>> FROM tblPersonen
>> ORDER BY [Nachname] & IIf(IsNothing([Vorname]),""," " & [Vorname]);
> SELECT tblPersonen.Id, qryAnreden.Anrede,
> tblPersonen.VorName + " " & tblPersonen.Nachname AS VollerName,
Ich sehe gerade, dass das verkehrt herum ist. Sollte hei�en:
tblPersonen.Nachname & " " + tblPersonen.Vorname AS VollerName,
Michael König
Karl Donaubauer schrieb:
>
> Das sieht allerdings nach einem Mordanschlag auf die arme kleine
> Access-Performance aus. ;-)
nett gesagt
> Wieviele Datensï¿œtze hat tblPersonen?
233
> Was ist IsNothing?
Selber "gestrickter" Ersatz fï¿œr IsNull, ich prï¿œfe mal, ob IsNull nicht
doch ausreicht
Was IstAktiv?
Eine separate Funktion, die anhand einer weiteren Tabelle ï¿œberprï¿œft, ob
eine Person "aktiver Sportler" oder "Fï¿œrderer" ist. Diese Tabelle ist
1:n verknï¿œpft mit tblPersonen, weil eine Person mehrere Eigenschaften
haben kann ("aktiver", "Vorstand", etc.)
> Teste mal, ob das weniger flackert:
>
> s.a. www.donkarl.com?FAQ2.12
>
Den Operator '+' kannte ich bisher gar nicht (man sollte doch die FAQ
auswendig lernen ;-) ), jedenfalls flackert es schon m.E. ein bisschen
weniger durch den Einsatz dieses Operators.
Gruￜ Michael
Karl Donaubauer
Der +Trick war hier noch die geringere Empfehlung, was die
Performance betrifft. Wichtiger ist, dass du
1. nicht mehrfach sortierst
2. nicht nach Ausdrï¿œcken sortierst, sondern nach Tabellenfeldern;
die Sortier-, Kriterien- und Verknï¿œpfungsfelder sollten indiziert sein
3. nicht unnï¿œtig zusï¿œtzliche Abfragen und JOINs drin hast,
insbesondere OUTER JOINs
4. nur unbedingt nï¿œtige VBA-Funktionen in der Abfrage einsetzt
Bei nur 233 Datensï¿œtzen sollte das Formular ohne Verzï¿œgerung
gefï¿œllt werden und das Formatieren mit einem minimalen Ruckeln
erfolgen. Wenn nicht, heiï¿œt es weiter optimieren. Auch weil Tabellen
zum Wachstum tendieren.
--
Servus
Karl
****************
Access-FAQ: http://www.donkarl.com /// http://www.donkarl.com?NEK