Hi Crystal, what's the control source of the HighlightBox textbox?
Giorgio
--- In MS_Access_Professionals@yahoogroups.com, Crystal <strive4peace2008@...> wrote:
>
> Hi Marius,
>
> the row can be highlighted using conditional formatting and a control to keep track of the primary key (PK), which is set on the form current event.
>
> TO HIGHLIGHT THE CURRENT RECORD IN A CONTINUOUS FORM
>
> put the following textbox control on your form (I usually put it in the footer since there is often more unused space)
>
> name --> RecordID_current
> visible --> no
>
> make the following textbox control in the detail section of your form:
>
> name --> HighlightBox
> left --> 0
> top --> 0
> width --> width of detail section
> height --> height of detail section, like 0.2
> enabled --> false
> locked --> true
> tabstop --> false
>
> send this control to the back so it is behind all the other controls in the section (right-click on it and choose Position, Send to Back)
>
> in the design view of the form, select HighlightBox
>
> since HighlightBox is behind everything, you may need to select it using the object drop-down (1st icon on the formatting toolbar)
>
> conditional formatting
> condition 1 --> Expression Is
> --> [RecordID] = [RecordID_current]
>
> example to also highlight a new record:
> [RecordID_current] = nz([RecordID],RecordID_current)
>
> change fill/back color to LIGHT YELLOW or light gray
> or whatever color you want for your highlight
>
> If my detail section background is White, I like to use light yellow for a highlight
>
> WHERE
> RecordID is the name of your primary key field
>
> then, in the form OnCurrent event, assign a value to the unbound RecordID_current
> being unbound, it will have the same value on every record
>
> '~~~~~~~~~~~~~~~~~~~~~~~~~
> Private Sub Form_Current()
> Me.RecordID_current = IIf([NewRecord], 0, [RecordID])
> End Sub
> '~~~~~~~~~~~~~~~~~~~~~~~~~
> '~~~~~~~~~~~~~~~~~~~~~~~~~
> 'weird change needed since Access 2007
> Private Sub Form_BeforeInsert()
> Me.RecordID_current = me.RecordID
> End Sub
> '~~~~~~~~~~~~~~~~~~~~~~~~~
>
> where [RecordID] is the controlname (or fieldname) corresponding to your primary key.
>
> ~~~
> I also put a click event on the highlight box to SetFocus to another control -- because, even though it is not enabled, it will come to the front and cover everything up if it is clicked on!
>
> ... however, you want the Click event to ALSO open another form (first setFocus, then open the form)
>
> since HighlightBox spans your entire detail section, you can put a click event on that control.
>
> be sure to save the record (if it needs it) before setting focus somewhere else.
>
> ~~~
> Me.NewRecord is true if the form is on a new record. Throwing this in means that a new record will also be highlighted ... otherwise, in 2007/2010, it will not. I had to create the BeforeInsert event to make it work as well ... maybe this was a temporary bug and the extra steps are no longer necessary
>
> I used to use
> nz(RecordID,0)
>
> but I changed to
> IIf([NewRecord], 0, [RecordID])
> for 2007/2010 as well
>
>
> ~~~
> I also put a click event on the highlight box to SetFocus to another control -- because, even though it is not enabled, it will come to the front and cover everything up if it is clicked on!
>
> ~~~~~~~~~
>
> If you are using a datasheet, I believe you will need to set up conditional formatting for each control as you can't use a control that spans the whole line as you can in a continuous form
>
>
>
> Warm Regards,
> Crystal
>
> Microsoft MVP
> remote programming and training
>
> Access Basics by Crystal
> http://www.AccessMVP.com/strive4peace
> Free 100-page book that covers essentials in Access
>
> *
> (: have an awesome day :)
> *
>
>
>
> ________________________________
> From: marius
>
> On Access, in a continuous form, if you click a row, it doesn't highligt
> that record. And this is very annoying when you are thousands of
> records.
>
> How can I do to resolve that problem?
>
> I find a way to to this, but it doesn't work in every form and I don't
> know why. This way is to use a text box over the record, and a little
> code and conditional formating for that text box.
>
> Unfortunately, I get OLE server and activX errors all the time.
>
> The annoying thing is that I make many formulars in that way, and some
> works, some d0n't.
>
> Is there a better way to do this?
>
> [Non-text portions of this message have been removed]
>
Tidak ada komentar:
Posting Komentar