obtain value from listbox

[englisap]

in the following code i try to obtain the value in the first column of the selected row it works in different code elsewhere in the form but for some reason it returns the same value in this case please help i have spent the last 10 hours trying different methods to fix this.

Private Sub CallSearchResults_Click()
DoCmd.OpenForm "Call Info"
Forms![Call Info]![fnameTXT].Value = Forms![Customer Support Department]![fnametb].Value
Forms![Call Info]![lnameTXT].Value = Forms![Customer Support Department]![lnametb].Value
Forms![Call Info]![phonetxt].Value = Forms![Customer Support Department]![CallSearchResults].Column(3)
Forms![Call Info]![DateCallTXT].Value = Forms![Customer Support Department]![CallSearchResults].Column(1)
Forms![Call Info]![TimeCallTXT].Value = Forms![Customer Support Department]![CallSearchResults].Column(2)
Dim ID As Integer
ID = [CallSearchResults].[Column](0)
Forms![Call Info]![DepartmentTXT].Value = DLookup("[Department]", "[Call Search]", "ID = [ID]")
Forms![Call Info]![Remarkstxt].Value = DLookup("[Remarks]", "[Call Search]", "ID = [ID]")
End Sub

[ajetrumpet]

what line is the problem?

[englisap]

the ID = CallSearchResults.column(0) line no matter what selection i choose it has the same value

[ajetrumpet]

the ID = CallSearchResults.column(0) line no matter what selection i choose it has the same value

well first of all, that is not the syntax you posted. this is:

ID = [CallSearchResults].[Column](0)

That's more in line with javascript syntax. IMO, it should be:

ID = CallSearchResults.Column(0)

try that first. and as a practice, you should add "me." in front of those controls, although it's not necessary.

[englisap]

after making your changes it still is not working the id seems to be the same value every time no matter what is selected although other values in the list-box change when the selection changes. at least the display changes the way i want it to so it seems like the column 0 is only giving me the top row or lowest number

[ajetrumpet]

well do you realize that the code is in the same procedure as the opening of that actual form?

in other words, what I'm saying is that your form is opening AND your trying to grab a box value from a listbox ON that form in the same procedure. It doesn't make sense to me HOW you are able to change the value that is selected in the listbox anyway.

technically, when a form opens, listbox values shouldn't be selected. care to explain how you are performing these manipulations for testing purposes?

[ssanfu]

Try this:

Private Sub CallSearchResults_Click()
   DoCmd.OpenForm "Call Info"
   Forms![Call Info]![fnameTXT] = Forms![Customer Support Department]![fnametb]
   Forms![Call Info]![lnameTXT] = Forms![Customer Support Department]![lnametb]
   Forms![Call Info]![phonetxt] = Forms![Customer Support Department]![CallSearchResults].Column(3)
   Forms![Call Info]![DateCallTXT] = Forms![Customer Support Department]![CallSearchResults].Column(1)
   Forms![Call Info]![TimeCallTXT] = Forms![Customer Support Department]![CallSearchResults].Column(2)
   Dim intID As Integer
   intID = Forms![Customer Support Department]![CallSearchResults].Column(0)
   Forms![Call Info]![DepartmentTXT] = DLookup("[Department]", "[Call Search]", "ID = " & intID)
   Forms![Call Info]![Remarkstxt] = DLookup("[Remarks]", "[Call Search]", "ID = " & intID)
End Sub

Look at the DLOOKUP syntax....