Urgent 1

[Shailja]

Hello,

My Front End is VB and Back End is Access.
I have two tables in my Database. One is Company table other is Branch table. Company contains ComID as primary key and ComName fields. Branch contains ComID as foreign key.

I have combobox on my form. Combobox should display company names but when i select company name from combox , ID of that company should be stored in Branch table. It means Display field is company name and value field is comID.

how to do coding of this in Visual Basic. Plz tell me.

Thanks

[samycbe]

Dear Friend,

1. Just select the company names and display it in combo box.
2. Have one invisible textbox named txtinvcompid
3.on combo box click or change event write the code like
select compid from company where compname =' " & cbocomp & " ' "
4. store that value to the invisble text box


is it ok?

samy

[vijaydiwakar]

Hello,

My Front End is VB and Back End is Access.
I have two tables in my Database. One is Company table other is Branch table. Company contains ComID as primary key and ComName fields. Branch contains ComID as foreign key.

I have combobox on my form. Combobox should display company names but when i select company name from combox , ID of that company should be stored in Branch table. It means Display field is company name and value field is comID.

how to do coding of this in Visual Basic. Plz tell me.

Thanks

u have to use combobox's itemdata to store the id
its combobox's hidden property

[Shailja]

Dear Friend,

1. Just select the company names and display it in combo box.
2. Have one invisible textbox named txtinvcompid
3.on combo box click or change event write the code like
select compid from company where compname =' " & cbocomp & " ' "
4. store that value to the invisble text box


is it ok?

samy

No, I want complete coding.

[samycbe]

on form load......

1. create combobox named cbocomp
2. create text box txtinvcomp

cbocomp.clear
sql = " select compname from company order by compname"
rs.open,sql,constr
do while not rs.eof
cbocomp.additem rs!compname
rs.movenext
loop

on cbocomp_click
sql = " select compid from company where compname =' " & cbocomp &" ' "
rs.open sql,constr
if not rs.eof then
txtinvcomp = rs!compid
end if

still not clear call me 91 9944099800 or mail me
[e-mail] i will send file

samy

[Shailja]

on form load......

1. create combobox named cbocomp
2. create text box txtinvcomp

cbocomp.clear
sql = " select compname from company order by compname"
rs.open,sql,constr
do while not rs.eof
cbocomp.additem rs!compname
rs.movenext
loop

on cbocomp_click
sql = " select compid from company where compname =' " & cbocomp &" ' "
rs.open sql,constr
if not rs.eof then
txtinvcomp = rs!compid
end if

still not clear call me 91 9944099800 or mail me
[e-mail] i will send file

samy

Got it. Thanks a lot