Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Ereignis?
Autor: Jochen
Datum: 12.04.02 11:33
Hallo an Alle, Folgender Programmausschnitt ist zum Problem geworden. Mit "listenfeld_color" soll die untenstehende Prozedur aufgerufen werden, was mir jedoch nicht gelingt. Frage: Ist die zweite Prozedur "listenfeld_SetColor" ein Ereignis was auswählbar ist. Also wie z. B. "listenfeld_click", ist dieses "SetColor" auch auszuwählen? Oder ist das ein freivergebener Name? Wenn ich momentan versuche die Prozedur auszuführen meldet er: "Argument ist nicht optional" und makiert "listenfeld_color". Vielen Dank für Eure Hilfe im voraus. Gruß Jochen ________________________________________________________ Private Sub Form_Current() Me.comJahr = Format(Date, "yyyy") Me.optStatus = 1 DoCmd.OpenForm "FRM_Filter", , , , , acHidden listenfeld_SetColor regBasis_Change End Sub _____________________________________________________ Public Sub listenfeld_SetColor(ByVal lcolor As Long, ByVal lcolumn As Long, ByVal lrow As Long) Dim listenfeld As ListView Dim itemx As Listitem Dim icols As Integer Dim i As Integer icols = listenfeld.columnheaders.Count If lrow > 0 Then If lrow <= listenfeld.listitems.Count Then Set itemx = listenfeld.listitems(lrow) If lcolumn = 0 Then itemx.ForeColor = lcolor For i = 1 To icols - 1 itemx.listsubitems(i).ForeColor = lcolor Next i Else If lcolumn = 1 Then itemx.ForeColor = lcolor Else subitem itemx.listsubnitems(lcolumn - 1).ForeColor = lcolor End If End If End If End Sub

Ereignis?	48	Jochen	12.04.02 11:33
Re: Ereignis?	32	keine Frage	12.04.02 13:11
Re: Ereignis?	29	Blacky	12.04.02 13:41
Re: Ereignis?	32	Jochen	12.04.02 13:48

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen