Visual Basic - dbcombo

buena tengo un formulario inmueble conectado a una base de datos access 97 medianta un datacontrol y necesito q al seleccionar el nombre del vendero en el dbcombo_vendedor me aparezca el codigo del vendedor en el dbcombo_codvendedor o viseversa, x fa si alguien tiene idea de como hacerlo se lo agradeceria

Perdona que no sea capaz de darte una respuesta, pero es que no sé lo que es

- un formulario inmueble

- medianta

- el vendero

- o viseversa

- x fa

si nos lo pudieras explicar....

no te preopes hermano, te explico en un formulario tengo 2 dbcombo un primer dbcombo lo tengo asignado al nombre del vendedor y el segundo dbcombo lo tengo asigno al codigo del vendedor_ lo q deseo sabes si es posible que cuando yo vaya a guardar un nevo registro al yo seleccionar en el primer dbcombo el nombre del vendedor se aparezca en pantalla el codigo del vendedor en el segundo db combo.

Bueno....... Yo en especial trabajo los data control de esta forma..... he visto que otras personas usan las propiedades conect entre otras..... lo unico que tendrías que hacer es modificarlo a tu forma de trabajo.....

Esta es mi solucion propuesta:

Private Sub DBCombo1_Click(Area As Integer)
If DBCombo1.Text <> "" Then
x = "codigo_vendedor='" + DBCombo1.Text + "'"
Data5.Recordset.FindFirst x
If Not Data1.Recordset.NoMatch Then
DBCombo2.Text = Data1.Recordset("nombre_vendedor")
KeyAscii = 0 ' Para eliminar el beep al cambiar el foco a otro objeto
Text2.SetFocus
Else
j = MsgBox("Seleccione solo Vendedores de la Lista", vbExclamation, "Vendedor no Registrado")
DBCombo1.SetFocus
KeyAscii = 0
End If
End If
End Sub

Luego este mismo código lo usarias en el otro dbcombo intercambiando los datos.

En la linea done aparece x="codigo_vendedor='" Lo que sigue inmediatamente despues del signo igual es una comilla simple que hace referencia a que el codigo del vendedor en la Base de Datos es de tipo String, es decir, tipo texto. Por eso se agrega esta comilla simple ahi y al final de la sentencia encerrada en comillas dobles..... Te la voy a volver a escribir pero dejando espacios de pormedio solo para que la veas mejor

x="codigo_vendedor= ' " + DBCombo1.Text + " ' "

Espero que te sirva de ayuda...... Avisame como te va.....

Bueno....... Yo en especial trabajo los data control de esta forma..... he visto que otras personas usan las propiedades conect entre otras..... lo unico que tendrías que hacer es modificarlo a tu forma de trabajo.....

Esta es mi solucion propuesta:

Private Sub DBCombo1_Click(Area As Integer)
If DBCombo1.Text <> "" Then
x = "codigo_vendedor='" + DBCombo1.Text + "'"
Data5.Recordset.FindFirst x
If Not Data1.Recordset.NoMatch Then
DBCombo2.Text = Data1.Recordset("nombre_vendedor")
KeyAscii = 0 ' Para eliminar el beep al cambiar el foco a otro objeto
Text2.SetFocus
Else
j = MsgBox("Seleccione solo Vendedores de la Lista", vbExclamation, "Vendedor no Registrado")
DBCombo1.SetFocus
KeyAscii = 0
End If
End If
End Sub

Luego este mismo código lo usarias en el otro dbcombo intercambiando los datos.

En la linea done aparece x="codigo_vendedor='" Lo que sigue inmediatamente despues del signo igual es una comilla simple que hace referencia a que el codigo del vendedor en la Base de Datos es de tipo String, es decir, tipo texto. Por eso se agrega esta comilla simple ahi y al final de la sentencia encerrada en comillas dobles..... Te la voy a volver a escribir pero dejando espacios de pormedio solo para que la veas mejor

x="codigo_vendedor= ' " + DBCombo1.Text + " ' "

Espero que te sirva de ayuda...... Avisame como te va.....

muchas gracias ese codigo me sirvio mucho para lo q necesito