Listbox values nt shown in textbox - AfterUpdate event

[technocraze]

Hi guys,

I encountered this error while using the AfterUpdate event for my listbox.
Error: Update or CancelUpdate without using AddNew or Edit. What i wanted to achieve is just to display the selected values from the listbox into the textboxes. I have bounded both my listbox and textbox to the controlSource of the field of my table. I have two combo boxes. One is getting the from the query and other is matching the corresponding values based on the first combo box and listbox values is based on the second combo boxes, which meant that teh sec cbox and listbox are populated. May i knw what can be done for the Afterupdate event to resolve this error. tks

[NeoPa]

Please look in this thread and consider adding those items necessary to give an answer.
(POSTING GUIDELINES: Please read carefully before posting to a forum)
I tried to read it and it was like swimming through treacle.

MODERATOR

[MMcCarthy]

Hi guys,

I encountered this error while using the AfterUpdate event for my listbox.
Error: Update or CancelUpdate without using AddNew or Edit. What i wanted to achieve is just to display the selected values from the listbox into the textboxes. I have bounded both my listbox and textbox to the controlSource of the field of my table. I have two combo boxes. One is getting the from the query and other is matching the corresponding values based on the first combo box and listbox values is based on the second combo boxes, which meant that teh sec cbox and listbox are populated. May i knw what can be done for the Afterupdate event to resolve this error. tks

Post the actual code that you are using in the After Update event.

[technocraze]

Private Sub ListBox1_AfterU pdate event()

Dim rs as Object

Set rs = RecordSet.Clone
rs.FindFirst "[Serialno] = " & Str(Nz(Me![ListBox1]))
if not rs.EOF then Me.Bookmark = rs.Bookmark
Me.Text1.Value = ListBox1.Column (0) (suspect this line is the main error)

Elaboration
Serial no = pk
Listbox1 = populated list
I am using MS Acess and visual basic, what i want to achieve is to display the selected value from the listbox and put in the textbox. But dnt get it why i always get this annoying error! Very much appreciated if u guys can assist me in pointing or highlighting out the error. Tks for any kind advice and assistance in advance.

Error: CancelUpdate or Update without AddNew or Edit.
Tks.

[MMcCarthy]

Try this ...

Private Sub ListBox1_AfterUpdate()
Dim rs as Object
 
   Set rs = RecordsetClone
   rs.FindFirst "[Serialno] = " & Str(Nz(Me![ListBox1]))
   if not rs.EOF then Me.Bookmark = rs.Bookmark
   Me.Text1 = "'" & Me.ListBox1 & "'"
   rs.Close
 
End Sub
 

Mary

[NeoPa]

I suspect that your fundamental problem lies in binding more than one control to the same field. That would cause this sort of clash.
Think about making one of the controls unbound.

[technocraze]

tks MAN! I will try this out and let u knw the outcome.

I suspect that your fundamental problem lies in binding more than one control to the same field. That would cause this sort of clash.
Think about making one of the controls unbound.

[technocraze]

tks mary
i will try that out!

Try this ...

Private Sub ListBox1_AfterUpdate()
Dim rs as Object
 
   Set rs = RecordsetClone
   rs.FindFirst "[Serialno] = " & Str(Nz(Me![ListBox1]))
   if not rs.EOF then Me.Bookmark = rs.Bookmark
   Me.Text1 = "'" & Me.ListBox1 & "'"
   rs.Close
 
End Sub
 

Mary