Click here to Skip to main content
11,928,078 members (51,366 online)
Rate this:
Please Sign up or sign in to vote.
See more: VB6 Access ListView
Private Sub CmbItem_LostFocus()
If CmbItem = Empty Then Exit Sub
CmbCode.ListIndex = CmbItem.ListIndex
CmbUnit.ListIndex = CmbItem.ListIndex
End Sub

I'm using this code to set (Id) and (Unit) fields on selection of (Item) field.
[1] I can't use .itemdata coz it gives error "OVERFLOW"...(actually item field is loaded about 26000 records n have to show in combo datz y)

[2] I can't put(aid)in the text for each (item) it gives error "SYNTAX ERROR"...(many of items are like(ex. STEEL CUPBOARD 5') so
sql="SELECT *FROM [ASSET] WHERE Item = "'CmbItem.text'"
not working
so anybody is having any other way to do so I mean I want to add (Id) without displaying it...

Please help me...
Posted 16-May-13 1:03am

1 solution

Rate this: bad
Please Sign up or sign in to vote.

Solution 1

not sure what you're trying to do but....
sql="SELECT *FROM [ASSET] WHERE Item = "'CmbItem.text'" 
should be
sql="SELECT * FROM [ASSET] WHERE Item = '" & CmbItem.text & "'" 

Note the single quote and double quotes, plus the & is missing
Not sure if that was a typo or the problem with the sql statement.....

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

  Print Answers RSS
Top Experts
Last 24hrsThis month

Advertise | Privacy | Mobile
Web03 | 2.8.151126.1 | Last Updated 4 Jul 2013
Copyright © CodeProject, 1999-2015
All Rights Reserved. Terms of Service
Layout: fixed | fluid

CodeProject, 503-250 Ferrand Drive Toronto Ontario, M3C 3G8 Canada +1 416-849-8900 x 100