visualizar datos de un solo dato...
Publicado por ainhoa (2 intervenciones) el 05/07/2004 13:01:49
hola a tod@s!
Lo que estoy haciendo es lo siguiente: en un formulario tengo 2 desplegables (proveedor y referencias) y un subformulario, lo que hago con estos es, seleccionar los datos en los desplegables y que en el subformulario me salgan los datos, bien, pero mi problema esta aqui, no es grave pero...
Un proveedor puede tener mas de una referencia. Yo necesito seleccionar un proveedor y que en el otro desplegable SOLO me aparezcan las referencias correspondientes a ese proveedor... he conseguido hacerlo cuando los desplegables vienen de una tabla en concreto, pero al ser independientes no lo consigo hacer... me podeis ayudar?
El codig que empleo es este:
Private Sub Proveedor_subcontratista_Click()
On Error Resume Next
Dim RS As Recordset
Set RS = CreateObject("ADODB.Recordset")
RS.Open "SELECT referencia FROM datos WHERE Proveedor_subcontratista='" & Proveedor_subcontratista.Value & "'", CurrentProject.Connection, 3, 3
If Not RS.EOF Then
referencia.Value = RS.Fields(0).Value
Else
referencia.Value = ""
End If
RS.Close
End Sub
Lo que estoy haciendo es lo siguiente: en un formulario tengo 2 desplegables (proveedor y referencias) y un subformulario, lo que hago con estos es, seleccionar los datos en los desplegables y que en el subformulario me salgan los datos, bien, pero mi problema esta aqui, no es grave pero...
Un proveedor puede tener mas de una referencia. Yo necesito seleccionar un proveedor y que en el otro desplegable SOLO me aparezcan las referencias correspondientes a ese proveedor... he conseguido hacerlo cuando los desplegables vienen de una tabla en concreto, pero al ser independientes no lo consigo hacer... me podeis ayudar?
El codig que empleo es este:
Private Sub Proveedor_subcontratista_Click()
On Error Resume Next
Dim RS As Recordset
Set RS = CreateObject("ADODB.Recordset")
RS.Open "SELECT referencia FROM datos WHERE Proveedor_subcontratista='" & Proveedor_subcontratista.Value & "'", CurrentProject.Connection, 3, 3
If Not RS.EOF Then
referencia.Value = RS.Fields(0).Value
Else
referencia.Value = ""
End If
RS.Close
End Sub
Valora esta pregunta
0