AYUDA CON CUADRO DE LISTA
Publicado por Jose (1 intervención) el 26/08/2004 10:28:47
Antes de nada saludos a todos. Mi problema:
Tengo un cuadro de lista (lstPeticiones) que toma valores de una consulta (qrycomboPS) según el valor de un cuadro combinado (cboCliente). NO SOY CAPAZ DE QUE FUNCIONE Y NO SE QUE HAGO MAL, LLEVO DOS DIAS ENTEROS CON EL TEMA Y NO HAY MANERA, el codigo es:
Option Compare Database
Option Explicit
Const strSQL1 = "SELECT NumPeticion, Descripcion, CodPeticion " & _
" FROM qryComboPS WHERE NombreCliente = '"
Const strSQL2 = " ORDER by NumPeticion ASC;"
Private strSQL As String
Const strMsg1 = "Selecciona un Cliente de la lista"
Private Sub RellenarLista()
strSQL = strSQL1 & Me!cboCliente.Value & strSQL2
Me!lstPeticiones.RowSource = strSQL
Me!lstPeticiones.Requery
Me!lblLista.Caption = "Peticiones de Suministro de " & _
Me!cboCliente.Value
If Me!lstPeticiones.ListCount = 0 Then
Me!lblLista.Caption = "No " & Me!lblLista.Caption
End If
End Sub
Private Sub cboCliente_AfterUpdate()
Call RellenarLista
End Sub
Private Sub Form_Activate()
If Me!cboCliente.Value <> "" Then
Call RellenarLista
End If
End Sub
SI HAY ALGUN ALMA CARITATVA QUE ME PUEDA AYUDAR SE LO AGRADECERÍA.
GRACIAS DE ANTEMANO
Tengo un cuadro de lista (lstPeticiones) que toma valores de una consulta (qrycomboPS) según el valor de un cuadro combinado (cboCliente). NO SOY CAPAZ DE QUE FUNCIONE Y NO SE QUE HAGO MAL, LLEVO DOS DIAS ENTEROS CON EL TEMA Y NO HAY MANERA, el codigo es:
Option Compare Database
Option Explicit
Const strSQL1 = "SELECT NumPeticion, Descripcion, CodPeticion " & _
" FROM qryComboPS WHERE NombreCliente = '"
Const strSQL2 = " ORDER by NumPeticion ASC;"
Private strSQL As String
Const strMsg1 = "Selecciona un Cliente de la lista"
Private Sub RellenarLista()
strSQL = strSQL1 & Me!cboCliente.Value & strSQL2
Me!lstPeticiones.RowSource = strSQL
Me!lstPeticiones.Requery
Me!lblLista.Caption = "Peticiones de Suministro de " & _
Me!cboCliente.Value
If Me!lstPeticiones.ListCount = 0 Then
Me!lblLista.Caption = "No " & Me!lblLista.Caption
End If
End Sub
Private Sub cboCliente_AfterUpdate()
Call RellenarLista
End Sub
Private Sub Form_Activate()
If Me!cboCliente.Value <> "" Then
Call RellenarLista
End If
End Sub
SI HAY ALGUN ALMA CARITATVA QUE ME PUEDA AYUDAR SE LO AGRADECERÍA.
GRACIAS DE ANTEMANO
Valora esta pregunta
0