highlight current record in continious form

#11

On 11 aug, 14:29, "Jon Lewis" <jon.le... (AT) cutthespambtinternet (DOT) com>
wrote:

Quote:

"Co" <vonclausow... (AT) gmail (DOT) com> wrote in message

news:fcb34e27-9ff0-43d2-9838-85ce3e67ce25 (AT) z10g2000yqb (DOT) googlegroups.com...

On 11 aug, 13:08, "Jon Lewis" <jon.le... (AT) cutthespambtinternet (DOT) com
wrote:
"Co" <vonclausow... (AT) gmail (DOT) com> wrote in message

news:8aa6c107-53e6-470b-9deb-562166f79eeb (AT) y11g2000yqm (DOT) googlegroups.com...
On 11 aug, 12:36, "Jon Lewis" <jon.le... (AT) cutthespambtinternet (DOT) com
wrote:

"Co" <vonclausow... (AT) gmail (DOT) com> wrote in message

news:7224e501-64a9-4eaa-9d4d-8e4c590bbdc2 (AT) e15g2000yqo (DOT) googlegroups.com...
On 11 aug, 11:23, "Jon Lewis" <jon.le... (AT) cutthespambtinternet (DOT) com
wrote:

Try DoCmd.RunCommand acCmdSelectRecord in the continuous form's On
Activate
event.

Jon

"Co" <vonclausow... (AT) gmail (DOT) com> wrote in message

news:ae7efe9d-6f65-4427-b527-b372fdb05035 (AT) y11g2000yqm (DOT) googlegroups.com...

Hi All,

I know there are so many questions on this issue but mine is just a
little different.
What I am trying to establish is the following:
The user clicks Alt-Q which opens a form with a listbox with years
on
it.
When he chooses a year the form closes and in my continious form it
jumps to the
first record of that year. Now the little arrow in the
recordselector
shows which record
it is but I would like to have the whole record highlighted (like
when
you click with the
mouse on the recordselector).
How can I simulate the mouse click or highlight the record for that
matter?

My code:

Private Sub Keuzelijst1_AfterUpdate()

Dim int1 As Integer
Dim str1 As String
Dim lngTop As Long

int1 = 4
str1 = "Left([BriefNr]," & int1 & ")"

varJaar = Keuzelijst1.value

With Forms!FrmTabelTotaal!subFrmTabelTotaal.Form
lngTop = .SelTop
.RecordsetClone.FindLast (str1 & " = '" & varJaar & "'")
.SelTop = lngTop
If Not .RecordsetClone.NoMatch Then
.Bookmark = .RecordsetClone.Bookmark
End If
.Form_Click

End With
DoCmd.Close acForm, Me.Name, acSaveNo

End Sub

Regards
Marco
The Netherlands- Tekst uit oorspronkelijk bericht niet weergeven -

- Tekst uit oorspronkelijk bericht weergeven -

Jon thanks for the response.

There are two things. The form I use is not a continious one its
actually Datasheet, my mistake.
I put the code in the Current event because the On Active didn't work.

It does highlight the record now but when I try to scroll through the
records the highlight dissapears.

Marco

I've just tested this in the Current Event on a Datasheet and it seems
to
work fine. How are you scrolling through the records? I'm pressing the
Down Arrow and am getting each row highlighted as if a was pressing the
Record Selector. Maybe you have other code executing affecting this?

Jon- Tekst uit oorspronkelijk bericht niet weergeven -

- Tekst uit oorspronkelijk bericht weergeven -

I have a conditional formatting on a deadline field it checks the
date.
Maybe that's causing it highlight to dissapear.

Marco

Maybe - temporarily remove it and check.

Jon- Tekst uit oorspronkelijk bericht niet weergeven -

- Tekst uit oorspronkelijk bericht weergeven -

That doesn't change anything.

MArco

I would suggest that you create a new Datasheet form based on an existing
table and put DoCmd.RunCommand acCmdSelectRecord in its Current Event just
to prove that it works in your version/SP of Access, then examine the
differences in your real scenario to find out what the problem is.

Jon

I got it working in a new form, don't why it doesn't work in an
existing form...
How should I use this?

MArco

#12

Co wrote:

Quote:

On 11 aug, 18:39, Salad <sa... (AT) oilandvinegar (DOT) com> wrote:

Co wrote:

Jon thanks for the response.

There are two things. The form I use is not a continious one its
actually Datasheet, my mistake.
I put the code in the Current event because the On Active didn't work.

It does highlight the record now but when I try to scroll through the
records the highlight dissapears.

Marco

I created a Datasheet form. In the header, I dropped in a text box and
named it NewID. When opened, the textbox does not appear in the header.

In the OnCurrent event I entered
Me.NewID = Me.ID 'ID is the table id name

Then I set conditional formatting on the ID field (it's not hidden).
FieldValueIs EqualTo [NewID] and set some color.

Opened/ran. Does the trick. But doesn't maintain the color.

So maybe when you Alt-Q, set NewID to the value if when first year
record is found. You could use a DblClick event to set NewID as well
while in the form.

I am very curious how you do this because when I place the textbox in
the header
and call it NewID the form doesn't recognize it.

Marco

I don't know if I did anything special. I went the form wizard,
selected a table, selected a few fields, selected type Datasheet,
selected I wanted to modify it first b4 viewing, dragged the detail bar
down so I could drop in a textbox in the FormHeader band, and did so.
This is A2003. This capability was available in A97.

This is also a form with default type of Datasheet presentation. I
assume that is what you have since you mentioned you did conditional
formatting on it elsewhere.

#13

"Co" <vonclausowitz (AT) gmail (DOT) com> wrote

Quote:

On 11 aug, 14:29, "Jon Lewis" <jon.le... (AT) cutthespambtinternet (DOT) com
wrote:
"Co" <vonclausow... (AT) gmail (DOT) com> wrote in message

news:fcb34e27-9ff0-43d2-9838-85ce3e67ce25 (AT) z10g2000yqb (DOT) googlegroups.com...

On 11 aug, 13:08, "Jon Lewis" <jon.le... (AT) cutthespambtinternet (DOT) com
wrote:
"Co" <vonclausow... (AT) gmail (DOT) com> wrote in message

news:8aa6c107-53e6-470b-9deb-562166f79eeb (AT) y11g2000yqm (DOT) googlegroups.com...
On 11 aug, 12:36, "Jon Lewis" <jon.le... (AT) cutthespambtinternet (DOT) com
wrote:

"Co" <vonclausow... (AT) gmail (DOT) com> wrote in message

news:7224e501-64a9-4eaa-9d4d-8e4c590bbdc2 (AT) e15g2000yqo (DOT) googlegroups.com...
On 11 aug, 11:23, "Jon Lewis" <jon.le... (AT) cutthespambtinternet (DOT) com
wrote:

Try DoCmd.RunCommand acCmdSelectRecord in the continuous form's On
Activate
event.

Jon

"Co" <vonclausow... (AT) gmail (DOT) com> wrote in message

news:ae7efe9d-6f65-4427-b527-b372fdb05035 (AT) y11g2000yqm (DOT) googlegroups.com...

Hi All,

I know there are so many questions on this issue but mine is
just a
little different.
What I am trying to establish is the following:
The user clicks Alt-Q which opens a form with a listbox with
years
on
it.
When he chooses a year the form closes and in my continious form
it
jumps to the
first record of that year. Now the little arrow in the
recordselector
shows which record
it is but I would like to have the whole record highlighted
(like
when
you click with the
mouse on the recordselector).
How can I simulate the mouse click or highlight the record for
that
matter?

My code:

Private Sub Keuzelijst1_AfterUpdate()

Dim int1 As Integer
Dim str1 As String
Dim lngTop As Long

int1 = 4
str1 = "Left([BriefNr]," & int1 & ")"

varJaar = Keuzelijst1.value

With Forms!FrmTabelTotaal!subFrmTabelTotaal.Form
lngTop = .SelTop
.RecordsetClone.FindLast (str1 & " = '" & varJaar & "'")
.SelTop = lngTop
If Not .RecordsetClone.NoMatch Then
.Bookmark = .RecordsetClone.Bookmark
End If
.Form_Click

End With
DoCmd.Close acForm, Me.Name, acSaveNo

End Sub

Regards
Marco
The Netherlands- Tekst uit oorspronkelijk bericht niet
weergeven -

- Tekst uit oorspronkelijk bericht weergeven -

Jon thanks for the response.

There are two things. The form I use is not a continious one its
actually Datasheet, my mistake.
I put the code in the Current event because the On Active didn't
work.

It does highlight the record now but when I try to scroll through
the
records the highlight dissapears.

Marco

I've just tested this in the Current Event on a Datasheet and it
seems
to
work fine. How are you scrolling through the records? I'm pressing
the
Down Arrow and am getting each row highlighted as if a was pressing
the
Record Selector. Maybe you have other code executing affecting this?

Jon- Tekst uit oorspronkelijk bericht niet weergeven -

- Tekst uit oorspronkelijk bericht weergeven -

I have a conditional formatting on a deadline field it checks the
date.
Maybe that's causing it highlight to dissapear.

Marco

Maybe - temporarily remove it and check.

Jon- Tekst uit oorspronkelijk bericht niet weergeven -

- Tekst uit oorspronkelijk bericht weergeven -

That doesn't change anything.

MArco

I would suggest that you create a new Datasheet form based on an existing
table and put DoCmd.RunCommand acCmdSelectRecord in its Current Event
just
to prove that it works in your version/SP of Access, then examine the
differences in your real scenario to find out what the problem is.

Jon

I got it working in a new form, don't why it doesn't work in an
existing form...
How should I use this?

MArco

As far as I know, DoCmd.RunCommand acCmdSelectRecord is the only method for
doing what you want. You have seen that it works in a new Datasheet form.
Without seeing your database I can't really help any further. You need to
figure out why it won't work in your existing Form. Try making a copy of
the Form and then remove all code, events, controls etc. bit by bit to find
out what's stopping it working.

Jon

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

highlight current record in continious form

comp.databases.ms-access comp.databases.ms-access

Re: highlight current record in continious form - 08-11-2010 , 01:38 PM

Re: highlight current record in continious form - 08-11-2010 , 02:34 PM

Re: highlight current record in continious form - 08-12-2010 , 08:30 AM