On Current

[Jacob]

I am having a brain fart this morning. Can someone please advise me what is
wrong with this code???


Private Sub Form_Current()
Me.Caption = "You are viewing mfg. dates for " & Nz(Me.cmb.Column(0),
"Ultrasound Machines")
End Sub

 

[Sandra Daigle]

I don't see anything wrong other than the line-wrap (which I'm assuming is
the newsreader and not your code).

What happens or what error are you getting?

 

[Jacob]

Sandra, I do not have any line breaks. I think this is the email. What is
happening is when I select a different record in the combo box, it is not
updating the form caption. It stays at Ultrasound Machines. I would hope it
should change to something like Acuson.

I don't see anything wrong other than the line-wrap (which I'm assuming is
the newsreader and not your code).

What happens or what error are you getting?


--
Sandra Daigle [Microsoft Access MVP]
Please post all replies to the newsgroup.

I am having a brain fart this morning. Can someone please advise me
what is wrong with this code???


Private Sub Form_Current()
Me.Caption = "You are viewing mfg. dates for " & Nz(Me.cmb.Column(0),
"Ultrasound Machines")
End Sub

 

[Jacob]

BINGO! Thank you Sandra.

Duplicate this code in the AfterUpdate event of the Combo - the current
event only fires when you move to a different (or new ) record.

--
Sandra Daigle [Microsoft Access MVP]
Please post all replies to the newsgroup.

Sandra, I do not have any line breaks. I think this is the email.
What is happening is when I select a different record in the combo
box, it is not updating the form caption. It stays at Ultrasound
Machines. I would hope it should change to something like Acuson.

I don't see anything wrong other than the line-wrap (which I'm
assuming is the newsreader and not your code).

What happens or what error are you getting?


--
Sandra Daigle [Microsoft Access MVP]
Please post all replies to the newsgroup.


Jacob wrote:
I am having a brain fart this morning. Can someone please advise me
what is wrong with this code???


Private Sub Form_Current()
Me.Caption = "You are viewing mfg. dates for " &
Nz(Me.cmb.Column(0), "Ultrasound Machines")
End Sub

 

[Sandra Daigle]

Duplicate this code in the AfterUpdate event of the Combo - the current
event only fires when you move to a different (or new ) record.

--
Sandra Daigle [Microsoft Access MVP]
Please post all replies to the newsgroup.

Sandra, I do not have any line breaks. I think this is the email.
What is happening is when I select a different record in the combo
box, it is not updating the form caption. It stays at Ultrasound
Machines. I would hope it should change to something like Acuson.

I don't see anything wrong other than the line-wrap (which I'm
assuming is the newsreader and not your code).

What happens or what error are you getting?


--
Sandra Daigle [Microsoft Access MVP]
Please post all replies to the newsgroup.

I am having a brain fart this morning. Can someone please advise me
what is wrong with this code???


Private Sub Form_Current()
Me.Caption = "You are viewing mfg. dates for " &
Nz(Me.cmb.Column(0), "Ultrasound Machines")
End Sub

 

[Sandra Daigle]

You're welcome!

--
Sandra Daigle [Microsoft Access MVP]
Please post all replies to the newsgroup.

BINGO! Thank you Sandra.

Duplicate this code in the AfterUpdate event of the Combo - the
current event only fires when you move to a different (or new )
record.

--
Sandra Daigle [Microsoft Access MVP]
Please post all replies to the newsgroup.

Sandra, I do not have any line breaks. I think this is the email.
What is happening is when I select a different record in the combo
box, it is not updating the form caption. It stays at Ultrasound
Machines. I would hope it should change to something like Acuson.


I don't see anything wrong other than the line-wrap (which I'm
assuming is the newsreader and not your code).

What happens or what error are you getting?


--
Sandra Daigle [Microsoft Access MVP]
Please post all replies to the newsgroup.


Jacob wrote:
I am having a brain fart this morning. Can someone please advise
me what is wrong with this code???


Private Sub Form_Current()
Me.Caption = "You are viewing mfg. dates for " &
Nz(Me.cmb.Column(0), "Ultrasound Machines")
End Sub