ich möchte die Hintergrundfarbe eines Controls bei Fokuserhalt eines
Datensatzes in einem Endlosformular ändern.
Ich denke, mein wesentliches Problem ist, daß ich nicht weiß wie ich in
einem Endlosformular, das dazu noch ein Unterformular ist, die einzelnen
Datensätze numerieren kann. Wenn ich das wüßte, könnte ich wahrscheinlich
mithilfe der CurrentRecordset Eigenschaft ein Ereignis einleiten, das dann
den Hintergrund andern würde.
Weiß jemand wie man Datensätze in Endlosformularen numerieren kann?
Wie immer würde ich mich über eine Antwort freuen.
Gruß Tim
--
-----
This Message was send via Microsoft Mail and News
Grüße Thomas
------------------------
kl...@freeaccess.de
www.freeaccess.de - Infos rund um MS-Access
Thomas Klahr EDV-Service
Dellplatz 9
47051 Duisburg
Phone: + 49 203 26554
Fax: +49 203 26564
Mario
Tim Neumann schrieb:
Ich frage mich allerdings, warum es so einfach nicht geht? Wo liegt bei
einem solch einfachen Verfahren der Fehler?
Gruß Tim
Du kannst die aktuelle Datensatznummer mit
x = Me.CurrentRecord auslesen
Das wird Dir aber zur Einstellung von Hintergrundfarben im Endlosformular nicht viel helfen.
Es gibt dazu einige Beispiele auf meiner HP wie man so etwas mit duchsichtigen
Textfeldern machen kann.
Bei vielen Farben ist das allerdings sehr mühsam und aufwendig.
So gibt es nun ein farbiges 'Endlosformular' von mir ohne diese durchsichtigen
Textfelder. Es können alle Farben der Palette je Feld! eingestellt werden.
Das Formular verfügt über 32 Felder und 20 Datensatzzeilen. In wählbaren Schritten
von 1 bis 19 kann vertikal unendlich gescrollt werden. Horizontal scrollen in
Monatsschritten (entspr. der Anwendung). Das Formular ist wesentlich schneller als
die Lösung mit mehreren Feldern.
In der nächsten Woche wird es auf meiner HP sein.
Bei Interesse sende mir bitte eine mail
Gruß
Günther
--
!!!!!!!!!!email bitte nur über gmx!!!!!!!!!!!!!!!
gri...@gmx.de
http://www.ostfrieslandweb.de/ kostenlose ACCESS-Beispiele
Tim Neumann schrieb in Nachricht <750i0c$7p0$1...@news.metronet.de>...
'
ModulDeklaration-----------------------------------------------------------
Private mblnChangeBackColor As Boolean
' PROZEDUREN----------------------------------------------------------
Private Sub Detailbereich_Print(Cancel As Integer, PrintCount As Integer)
If mblnChangeBackColor = True Then
Me.Detailbereich.BackColor = vbWhite
Else
Me.Detailbereich.BackColor = 14606046
End If
mblnChangeBackColor = Not mblnChangeBackColor
End Sub
Access müßte doch für die in einem Endlosformular angezeigten Datensätze
Indizes vergeben o.ä, die dann zu sortieren und zu zählen wären?
Deine Lösung klingt wirklich kompliziert, aber Du hast wenigstens eine.
Danke
Gruß Tim
Günther Ritter schrieb in Nachricht <751c92$im6$1...@news.vossnet.de>...