Row highlight on continuous form?

[McLaren]

I'm trying to get this to work with no luck. I would like something similar to how table view works, where you can click the row and have the whole thing highlight. I have tried:
http://www.lebans.com/conditionalformatting.htm
But I'm doing something wrong, because the best I can manage is the whole detail portion of my form disappears, and when I click a textbox I see all of my records flash in the background then disappear again.

I've also tried...Well, now I can't find the posts again, but I've searched the boards for "highlight" "color" "row color" with no luck.

Thanks in advance for any and all replies.

 

[Norie]

McLaren

The code in the link you posted relies heavily on the Windows API.

It works but in my opinion it seems like a lot of effort and would need to be adapted heavily for your own setup.

What exactly do you want to do?

 

[McLaren]

Well, here's what I've got so far:

If you press one of the three buttons on the upper right you will open up the file in the row you're on. I'm on row 13, and there's nothing there. But if I was on row 14 and clicked the "Program #" button it would open up "F0554.TAP". The problem is it's kinda difficult to see what row you're on with just a blinking cursor.

I also tried this with no luck.
Private Sub Form_Current()
DoCmd.RunCommand acCmdSelectRecord
Me.Refresh
End Sub

 

[McLaren]

Bump

 

[McLaren]

No thoughts on this one?

 

[Norie]

McLaren

Sorry for not answering.

Is the form in your image only one continuous form with the buttons as headers?

If it is then I could probably give you some ideas.

If you want a button to open a particular form based on the currently selected record then the best place for the button is actually in the detail section of the form.

It's hard to explain without pictures but I used to do it all the time.

Do you know anywhere I could upload an image and display it on the board?

I could send you an example database if you want, but it was written in Access 97, and I also split the data from the forms/code/etc.

 

[McLaren]

I appreciate the response Norie, thanks.

Yes, the buttons are in the form header, and it's one continuous form.
The buttons don't open forms, but actual files. Here's the entire contents of my code. While I've got your attention, do I have to specify the UCase for each field, or could I do it for the whole form at once?

Private Sub Form_Load()
fSetAccessWindow (SW_HIDE)
End Sub

Private Sub Part_Number_AfterUpdate()
Me.Part_Number = UCase(Me.Part_Number)
End Sub

Private Sub Operation_Description_AfterUpdate()
Me.Operation_Description = UCase(Me.Operation_Description)
End Sub

Private Sub Fixture_Location_AfterUpdate()
Me.Fixture_Location = UCase(Me.Fixture_Location)
End Sub

Private Sub Program___AfterUpdate()
Me.Program__ = UCase(Me.Program__)
End Sub

Private Sub Setup_Sheet_AfterUpdate()
Me.Setup_Sheet = UCase(Me.Setup_Sheet)
End Sub

Private Sub Drawing_AfterUpdate()
Me.Drawing = UCase(Me.Drawing)
End Sub

Private Sub Command1_Click()
Screen.PreviousControl.SetFocus
DoCmd.RunCommand acCmdFind
End Sub

Private Sub Command2_Click()
DoCmd.GoToRecord , , acNewRec
End Sub

Private Sub Command3_Click()
On Error Resume Next
If Program__ = "CALC" Then
LinkName = "\\fileserv\manufacturing\Fadal\Brad\Programs\Calculators.vbs"
Else
LinkName = "\\fileserv\manufacturing\Fadal\" & Program__
End If
Application.FollowHyperlink LinkName, , True, False
End Sub

Private Sub Command4_Click()
On Error Resume Next
LinkName = "\\fileserv\manufacturing\Fadal\Documentation\" & Setup_Sheet
Application.FollowHyperlink LinkName, , True, False
End Sub

Private Sub Command5_Click()
On Error Resume Next
LinkName = "\\fileserv\manufacturing\Fadal\" & Drawing
Application.FollowHyperlink LinkName, , True, False
End Sub

Private Sub Form_Unload(Cancel As Integer)
Application.Quit
End Sub

I guess for image hosting use www.imageshack.us

 

[McLaren]

nudge