Click here to Skip to main content
Rate this: bad
good
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 1:03am
surkhi623

1 solution

Rate this: bad
good
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.....
  Permalink  

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



Advertise | Privacy | Mobile
Web04 | 2.8.150302.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