Click here to Skip to main content
11,577,475 members (61,555 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 DamithSL 180
1 Afzaal Ahmad Zeeshan 125
2 OriginalGriff 115
3 Richard MacCutchan 100
4 Abhinav S 90
0 OriginalGriff 820
1 Sergey Alexandrovich Kryukov 681
2 Abhinav S 528
3 F-ES Sitecore 420
4 Suvendu Shekhar Giri 375

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