Click here to Skip to main content
11,641,222 members (67,059 online)
Rate this: bad
Please Sign up or sign in to vote.
See more: VB6 ListView MS-Access

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 0: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
0 Mika Wendelius 400
1 OriginalGriff 205
2 DamithSL 203
3 CPallini 185
4 Afzaal Ahmad Zeeshan 129

Advertise | Privacy | Mobile
Web03 | 2.8.150731.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