hola amigos espero que me entiendan el problema y se que me ayudaran
bueno tengo 3 opciones de busqueda por codigo, fecha y nuemro de tienda, deseo tener una consulta de cada una de ellas...estuve realziando el siguiente codigo por la cual me resulta solo con la primera opcion , con el resto em sale en blanco.
Private Sub cmdbuscar_Click()
Select Case opcion
Case 0
Set rs = cn.Execute("SELECT salida_almacen.IDTIENDA, salida_almacen.IDPRODUCTO, salida_almacen.DESCRIPCION, salida_almacen.MODELO, salida_almacen.COLOR, salida_almacen.TALLAS, salida_almacen.CANTIDAD, salida_almacen.FECHA, salida_almacen.TIENDA_DESTINO, salida_almacen.PRECIO FROM salida_almacen where salida_almacen.fecha= '" & maskfecha.Text & "' ")
Set dat_repostock.DataSource = rs
Case 1
Set rs = cn.Execute("SELECT salida_almacen.IDTIENDA, salida_almacen.IDPRODUCTO, salida_almacen.DESCRIPCION, salida_almacen.MODELO, salida_almacen.COLOR, salida_almacen.TALLAS, salida_almacen.CANTIDAD, salida_almacen.FECHA, salida_almacen.TIENDA_DESTINO, salida_almacen.PRECIO FROM salida_almacen where salida_almacen.IDPRODUCTO= '" & txtcodigo.Text & "' ")
Set dat_repostock.DataSource = rs
Case 2
Set rs = cn.Execute("SELECT salida_almacen.IDTIENDA, salida_almacen.IDPRODUCTO, salida_almacen.DESCRIPCION, salida_almacen.MODELO, salida_almacen.COLOR, salida_almacen.TALLAS, salida_almacen.CANTIDAD, salida_almacen.FECHA, salida_almacen.TIENDA_DESTINO, salida_almacen.PRECIO FROM salida_almacen where salida_almacen.tienda_destino= '" & cmbtienda.Text & "' ")
Set dat_repostock.DataSource = rs
End Select
dat_repostock.Refresh
End Sub
***********************************
End Sub
Private Sub Option2_Click(Index As Integer)
opcion = Index
Select Case Index
Case 0
maskfecha.Enabled = True
cmbtienda.Enabled = False
txtcodigo.Enabled = False
Case 1
maskfecha.Enabled = False
cmbtienda.Enabled = False
txtcodigo.Enabled = True
Case 2
maskfecha.Enabled = False
cmbtienda.Enabled = True
txtcodigo.Enabled = False
End Select
End Sub
por favor en que estoy fallando y que debo de tomar en cuenta al trabaja r con botones de opcion..Gracias!!!!!!!!!11 hasta pronto
