C
Chris
I have downloaded A2KConditionalFormattingVer27.mdb and imported the class
modules etc in order to try and have the datasheet view in a subform use
alternate row colors. I have renamed the appropiate text box in the code and
added the events to the form as well as used the mKeyControl.name fix
recommended on the site. Darned if I can get it to work.
Parts of the code I changed are
Private Sub Form_Load()
' startup our class
Set CF = New clsConditionalFormattingDataSheetView
' You must set a reference to a TextBox control
' that you have placed anywhere in the Detail section.
' Don't worry about the control's size or placement.
' The class will position, size and set it's properties as required.
CF.KeyFieldControl = Me.txtDuesID
Where txtDuesID is a text box in the detail section.
and
If mShowHighlightingAlternate = False Then
Set objFrc = ctl.FormatConditions.Add(acExpression, _
, "fCurrentRow([" & mKeyControl.name & "])")
Else
Set objFrc = ctl.FormatConditions.Add(acExpression, _
, "fAlternateRow([" & mKeyControl.name & "])")
End If
Stepped through the code and at a loss on how to make this work. I have also
imported the forms and tables from the A2K..... .mdb file and they work
within the database. Any pointers much appreciated as client really wants to
have alternate colored rows.
Thanks
Chris
modules etc in order to try and have the datasheet view in a subform use
alternate row colors. I have renamed the appropiate text box in the code and
added the events to the form as well as used the mKeyControl.name fix
recommended on the site. Darned if I can get it to work.
Parts of the code I changed are
Private Sub Form_Load()
' startup our class
Set CF = New clsConditionalFormattingDataSheetView
' You must set a reference to a TextBox control
' that you have placed anywhere in the Detail section.
' Don't worry about the control's size or placement.
' The class will position, size and set it's properties as required.
CF.KeyFieldControl = Me.txtDuesID
Where txtDuesID is a text box in the detail section.
and
If mShowHighlightingAlternate = False Then
Set objFrc = ctl.FormatConditions.Add(acExpression, _
, "fCurrentRow([" & mKeyControl.name & "])")
Else
Set objFrc = ctl.FormatConditions.Add(acExpression, _
, "fAlternateRow([" & mKeyControl.name & "])")
End If
Stepped through the code and at a loss on how to make this work. I have also
imported the forms and tables from the A2K..... .mdb file and they work
within the database. Any pointers much appreciated as client really wants to
have alternate colored rows.
Thanks
Chris