Thanks Crystal, why do you say, " however, you want the Click event to ALSO open another form"?
Giorgio
--- In MS_Access_Professionals@yahoogroups.com, Crystal <strive4peace2008@...> wrote:
>
> Hi Giorgio,
>
> the conditional formatting is on HighlightBox ... but it uses an Expression that is dependent on 2 other controls (not its own value because there isn't one ... although, come to think of it, I could have made it hold the current RecordID since it is a textbox ... ):
>
> - RecordID_current (updated by form current event and form BeforeInsert event)
> - RecordID (this is whatever YOUR record ID is ... CustomerID, SampleID, PartId, InvoiceID, ...)
>
> where you see references to
>
> me.RecordID
> change them to the name of your ID control.
>
>
>
> 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: giorgio_rovelli
>
> I see in both the Current and the BeforeInsert event you set Me.RecordID_current = IIf([NewRecord], 0, [RecordID])
> and
> Me.RecordID_current = me.RecordID
> but that's not the HighlightBox textbox so is the code to set the HighlightBox missing?
>
> Giorgio
>
>
> --- Crystal <strive4peace> wrote:
> >
> > Hi Giorgio,
> >
> > The Highlightbox is unbound (no ControlSource). Its value is set by the cuttent event or the BeforeInsert event
> > 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: giorgio_rovelli
> >
> > Hi Crystal, what's the control source of the HighlightBox textbox?
> > Giorgio
> >
> > --- Crystal <strive4peace> 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]
> >
>
>
>
>
> ------------------------------------
>
> Yahoo! Groups Links
>
>
>
> [Non-text portions of this message have been removed]
>
Tidak ada komentar:
Posting Komentar