Highlight Current Row
in [Forms]
|
From: Stephen Lebans on 21 Sep 2006 15:51 Only 4 and 6 are valid inputs. Where did you come up with 5? -- HTH Stephen Lebans http://www.lebans.com Access Code, Tips and Tricks Please respond only to the newsgroups so everyone can benefit. "RexAbandon via AccessMonster.com" <u14151(a)uwe> wrote in message news:66a2a763bed4f(a)uwe... > Hi Stephen, > > I basically took the AlternateColor form in your downloaded and added a > line > at the end of the form load procedure as follows: > fbc.HighlightRoworControlOrColumn = 5 > > I also changed the FrameHighlight default value to 5 and the OptionValue > for > Option34 to 5 in the same form. > > If the underlying class is left as is, all the rows highlight, not the > current row. > > The code behind the form is: > > Option Compare Database > Option Explicit > ' Copyright Lebans Holdings 1999 Ltd. > ' Alternate Colors for each row of the Detail Section. > > > ' Var of type our class > Private fbc As clsAlternateColor > > ' Temp var for the Class > Dim blRet As Boolean > > > Private Sub Form_Load() > If Me.RecordSelectors = False Then > DoCmd.MoveSize 0, 0, 8200, 5350 > Else > DoCmd.MoveSize 0, 0, 8500, 5350 > End If > > ' Create a new instance of our AlternateColor class > Set fbc = New clsAlternateColor > > ' You MUST set the Form prop > fbc.SetForm Me > fbc.HighlightRoworControlOrColumn = 5 'Added > > End Sub > > Private Sub Form_Resize() > If Not fbc Is Nothing Then > ' We have resized. Create a New Bitmap > ' to match our new Detail size. > fbc.Create > fbc.UpdateScreen > End If > > End Sub > > Private Sub Form_Unload(Cancel As Integer) > ' Release our reference to the class > Set fbc = Nothing > End Sub > > > Private Sub FrameHighlight_AfterUpdate() > ' Do we highlight or not? > fbc.HighlightRoworControlOrColumn = FrameHighlight > ' Redraw the screen for our new setting to take effect > fbc.UpdateScreen > End Sub > > > > Private Sub cmdColor_Click() > On Error GoTo Err_cmdColor_Click > > ' Call the API Color Dialog > fbc.HighlightColor = ShowColorDialog(fbc.HighlightColor) > ' Update the display > fbc.UpdateScreen > > > Exit_cmdColor_Click: > Exit Sub > > Err_cmdColor_Click: > MsgBox Err.Description > Resume Exit_cmdColor_Click > > End Sub >
From: RexAbandon via AccessMonster.com on 21 Sep 2006 16:39 The code in the clsAlternateClass module appeared to support highlighting the current row if HighlightRoworControlorColumn was equal to 5. Public Property Let HighlightRoworControlOrColumn(x As Long) ' 1 is Highlight Control only.(Default in Class Initialize) ' 2 is Highlight the entire row ' 3 is the entire Column as set in the HighlightColumn prop ' 4 is Highlight the entire row but alternately ' 5 is Highlight the Current row only m_HighlightRoworControlOrColumn = x End Property Stephen Lebans wrote: >Only 4 and 6 are valid inputs. Where did you come up with 5? > >> Hi Stephen, >> >[quoted text clipped - 77 lines] >> >> End Sub -- Message posted via AccessMonster.com http://www.accessmonster.com/Uwe/Forums.aspx/access-formscoding/200609/1
From: Stephen Lebans on 21 Sep 2006 18:47 Rex I clearly state at in the comments at the top of the source code that I am only using parts of the underlying class copied from another solution of mine. This implementation clearly states that is an AlternateRow highlighting solution, not a CurrentRow highlighting solution. To highlight the current row see: http://www.lebans.com/conditionalformatting.htm -- HTH Stephen Lebans http://www.lebans.com Access Code, Tips and Tricks Please respond only to the newsgroups so everyone can benefit. "RexAbandon via AccessMonster.com" <u14151(a)uwe> wrote in message news:66a383003fd0c(a)uwe... > The code in the clsAlternateClass module appeared to support highlighting > the current row if HighlightRoworControlorColumn was equal to 5. > > Public Property Let HighlightRoworControlOrColumn(x As Long) > ' 1 is Highlight Control only.(Default in Class Initialize) > ' 2 is Highlight the entire row > ' 3 is the entire Column as set in the HighlightColumn prop > ' 4 is Highlight the entire row but alternately > ' 5 is Highlight the Current row only > m_HighlightRoworControlOrColumn = x > End Property > > > Stephen Lebans wrote: >>Only 4 and 6 are valid inputs. Where did you come up with 5? >> >>> Hi Stephen, >>> >>[quoted text clipped - 77 lines] >>> >>> End Sub > > -- > Message posted via AccessMonster.com > http://www.accessmonster.com/Uwe/Forums.aspx/access-formscoding/200609/1 >
From: RexAbandon via AccessMonster.com on 22 Sep 2006 08:24 Sorry, missed that note. I won't bother you with anymore postings. Stephen Lebans wrote: >Rex I clearly state at in the comments at the top of the source code that I >am only using parts of the underlying class copied from another solution of >mine. This implementation clearly states that is an AlternateRow >highlighting solution, not a CurrentRow highlighting solution. > >To highlight the current row see: >http://www.lebans.com/conditionalformatting.htm > >> The code in the clsAlternateClass module appeared to support highlighting >> the current row if HighlightRoworControlorColumn was equal to 5. >[quoted text clipped - 15 lines] >>>> >>>> End Sub -- Message posted via http://www.accessmonster.com
From: Stephen Lebans on 22 Sep 2006 19:47
You were not bothering me as I enjoy my time in the NG's. -- HTH Stephen Lebans http://www.lebans.com Access Code, Tips and Tricks Please respond only to the newsgroups so everyone can benefit. "RexAbandon via AccessMonster.com" <u14151(a)uwe> wrote in message news:66abc3aae83ba(a)uwe... > Sorry, missed that note. I won't bother you with anymore postings. > > > > Stephen Lebans wrote: >>Rex I clearly state at in the comments at the top of the source code that >>I >>am only using parts of the underlying class copied from another solution >>of >>mine. This implementation clearly states that is an AlternateRow >>highlighting solution, not a CurrentRow highlighting solution. >> >>To highlight the current row see: >>http://www.lebans.com/conditionalformatting.htm >> >>> The code in the clsAlternateClass module appeared to support >>> highlighting >>> the current row if HighlightRoworControlorColumn was equal to 5. >>[quoted text clipped - 15 lines] >>>>> >>>>> End Sub > > -- > Message posted via http://www.accessmonster.com > |