ComboBox
Publicado por JULIOESCOBAR (58 intervenciones) el 29/06/2007 01:59:10
Amigos: Tengo 2 combos al seleccionar el primero quiero que me pase un resultado en el segun, ejemplo, de una base de datos Clientes el cual contiene los campos NombreClientes y MesFactura, en el primer combo me aparece el cliente y en el segundo quiero que me aparescan los meses de factura de ese cliente, ya que posiblemente un mes no se le facturo al cliente (quiero que aparesca nada mas el mes que tiene facturas), esto es lo que hago, diganme en que estoy mal por favor:
Cuando abro el formulario le doy la instruccion para que me aparescan los clientes en el combo1 y esta instruccion se la estoy dando en un boton
Dim dbs As Database, rst As Recordset
Set dbs = OpenDatabase("C:\Facturas.MDB")
Dim sql As String
sql = "SELECT mesfactura FROM NombreClientes, where cliente= '" & Combo1 & "'"
Set rst = dbs.OpenRecordset(sql, dbOpenSnapshot)
Do While Not rst.EOF
Combo2.AddItem rst!mes
rst.MoveNext
Loop
Me da el error "3131 en tiempo de ejecucion, error de sintaxis en la clausula FROM"
Cuando abro el formulario le doy la instruccion para que me aparescan los clientes en el combo1 y esta instruccion se la estoy dando en un boton
Dim dbs As Database, rst As Recordset
Set dbs = OpenDatabase("C:\Facturas.MDB")
Dim sql As String
sql = "SELECT mesfactura FROM NombreClientes, where cliente= '" & Combo1 & "'"
Set rst = dbs.OpenRecordset(sql, dbOpenSnapshot)
Do While Not rst.EOF
Combo2.AddItem rst!mes
rst.MoveNext
Loop
Me da el error "3131 en tiempo de ejecucion, error de sintaxis en la clausula FROM"
Valora esta pregunta


0