Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Datensatznumerierung in Endlosformular

164 views
Skip to first unread message

Tim Neumann

unread,
Dec 13, 1998, 3:00:00 AM12/13/98
to
Guten Tag,

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

Thomas Klahr

unread,
Dec 13, 1998, 3:00:00 AM12/13/98
to
Hallo,
in der knowhow.mdb gibt es da zum Thema aufsteigende nummerierung und zum
färben einzelner Elemente Informationen. Hinweis: es ist nicht so einfach
wie man sich das denkt, von wegen DS-Nr = 34 dann mach in dieser Zeile des
Unterforms den Button rot - und zwar nur in der Zeile. Vielleicht gibts es
da ja irgendwann mal echte Abhilfe von MS

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 Herger

unread,
Dec 13, 1998, 3:00:00 AM12/13/98
to
In den letzten Wochen wurde mehrmals dieses Thema hier besprochen. Unter
http://www.dejanews.com findest Du mit Deinen Stichworten sicherlich einiges,
das Dir helfen wird.

Mario

http://www.mherger.com

Tim Neumann schrieb:

Tim Neumann

unread,
Dec 13, 1998, 3:00:00 AM12/13/98
to

Vielen Dank für die Antworten.
Das Thema wurde offensichtlich tatsächlich ähnlich vor kurzer Zeit hier
diskutiert.

Ich frage mich allerdings, warum es so einfach nicht geht? Wo liegt bei
einem solch einfachen Verfahren der Fehler?

Gruß Tim


Günther Ritter

unread,
Dec 13, 1998, 3:00:00 AM12/13/98
to
Hallo 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>...

Wolfgang Klauke

unread,
Dec 13, 1998, 3:00:00 AM12/13/98
to
Um z.B. ein Layout mit abwechselnd grauen und weißen Zeilen zu erzeugen wird
beim Drucken des Detailbereiches einfach eine Variable die auf Modulebene
des Berichtes deklariert wurde zwischen
true und false hin und hergeschaltet das sieht dann so aus:


'
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

Wolfgang Klauke

unread,
Dec 13, 1998, 3:00:00 AM12/13/98
to
sorry habe mich verlesen ... war in Gedanken bei Berichten.

Tim Neumann

unread,
Dec 14, 1998, 3:00:00 AM12/14/98
to
Ja, aber ich suche eine Lösung für das Durchnumerieren von aktuell
angezeigten Datensätzen.

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>...

0 new messages