Auto display Text...Urgent one

[rajeshidea]

Hi I had Two Comboboxes

1) cboitemname
2) cboitemcode

I maintained Description of ItemCode & Corresponding Item Name in Access Named as Item_master

Problem : Suppose i select item Name Then Corressponding Item Code Should populate Automatically or Vice-Versa......

How do I Code that

Raj - IDEA Cellular Ltd.

[Maverick_Kumar]

There are two ways in which u could do it.... since the name and code must be in a single row of the database ....... the time they are added in the combobox they can be recognised by indexex......so once a name is clicked point the item code to the same index as that of the name.....

the other way u can do it is by simply searching the code combo for your required item.

[rahul.kul]

HI Raj.. !

I have done this type of code in my software already...see like this..

For doing this.. you have to fill first combo sorted on a autonumber field with the Item code. and then another one with Item Description also sorted with the same auto number field. so that Item code and Item Descriptions have same List indexes in both combo boxes..

Now write a Click event for both combo boxes.. and set the listindex equals to the other's Listindex.. so that if I select 4th Item In Item Code Combo, then it automatically selects the 4th Item iN Item Description..

 sub combo1_click() 

	   combo2.listindex = combo1.listIndex

end sub

sub combo2_click()

	   combo1.listindex = combo2.listIndex

end sub

and I hope it will helps you

Rahul Kulshreshtha
ABB

[manju_ambare]

HI Raj.. !

I have done this type of code in my software already...see like this..

For doing this.. you have to fill first combo sorted on a autonumber field with the Item code. and then another one with Item Description also sorted with the same auto number field. so that Item code and Item Descriptions have same List indexes in both combo boxes..

Now write a Click event for both combo boxes.. and set the listindex equals to the other's Listindex.. so that if I select 4th Item In Item Code Combo, then it automatically selects the 4th Item iN Item Description..

 sub combo1_click() 

	   combo2.listindex = combo1.listIndex

end sub

sub combo2_click()

	   combo1.listindex = combo2.listIndex

end sub

and I hope it will helps you

Rahul Kulshreshtha
ABB

Rahul is absolutely right! but one more thing is that u must set 'sort' property=false for combo boxes and u must fire the query with order by clause so that both combos will be having same order and whenever u'll assign listindexes of both combos they will give correct corresponding value...bye

[rajeshidea]

Thanks to Rahul & Manju......

Have a gr8 time.

[rahul.kul]

I agreed with Manju !!

[Silly Star]

if u have both the fileds (Itemcode and ItemName) in same table and want to fill both the combos as Form_Load event then use the following code......

'In Gerenal Section of Form Code
Dim Rsitem as Adodb.Recordset

Private Sub Form1_Load()
	  Set Rsitem=New Adodb.Recordset
	  Rsitem.open "Select Itemcode,Itemname from Tablename order   
				    			  by Itemcode",conn
	   cboitemcode.clear
	   cboitemname.clear
		while Rsitem.EOF=False
				cboitemcode.Additem (Rsitem!Itemcode)
				cboitemname.Additem (Rsitem!Itemname)
				Rsitem.MoveNext
		wend
End Sub
'The above code will make indexes of itemcode and itemname same in both the combos.

'now use the code for index changes done by Rahul

Rahul is absolutely right! but one more thing is that u must set 'sort' property=false for combo boxes and u must fire the query with order by clause so that both combos will be having same order and whenever u'll assign listindexes of both combos they will give correct corresponding value...bye