On Current

  • Thread starter Thread starter Jacob
  • Start date Start date
J

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
 
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, 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.


Sandra Daigle said:
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
 
BINGO! Thank you Sandra.


Sandra Daigle said:
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.


Sandra Daigle said:
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
 
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.


Sandra Daigle said:
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
 
You're welcome!

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

BINGO! Thank you Sandra.


Sandra Daigle said:
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
 
Back
Top