hola estoy tratando de hacer 1 control de una rentacar como trabajo para taller de programacion estoy recien empezando soy novato en esto asi ke sorry
la cuestion es ke tengo un combo box ke se llena con datos que saco de 1 tabla de mi base :
Tabla : Flota (los campos los he tenido que escribir hacia abajo por que como no pude adjuntar imagen sorry)
patente \
zx4466
rs5645
etc..
modelo \
nissan
toyota
lada
disponibilidad\
si
si
si
Mi combo solo muestra el campo "modelo" (nissan,toyota,lada)
cada vez que yo selecciono uno se van agregando a una Listbox que tengo en mi formulario de esta forma me da posibilidad de arrendar mas de 1 vehiculo por cliente
1.- Lo que me gustaria hacer es que despues de llenar todo el formulario y pinche el boton "aceptar" me cambie el campo "si" por un "no" en la columna "disponibilidad" de mi tabla flota (tercera columna) para llevar el control de la disponibilidad de los autos que tengo para arrendar teniendo en cuenta los valores que agregue a la LISTBOX
2.-Una vez que haya cambiado el estado de los autos a "no" y vuelva a abrir el formulario que al combo_box le aparescan solo los autos con estado "si" por que se supone ke los ke tienen "no" ya estan arrendados.
Este es el codigo ke tengo para el combo_box y me agrega todos los campos que estan en "modelo" sin filtrar los disponibles y los que no estan disponibles
.................................................. .............................................
Private Sub Form_Load()
Set base_rentacar = OpenDatabase("c:\base\rentacar.mdb")
Set tabla_rentacar = base_rentacar.OpenRecordset("flota")
Do
cmb_vehiculos.AddItem tabla_rentacar("modelo")
tabla_rentacar.MoveNext
Loop While Not tabla_rentacar.EOF
base_rentacar.Close
End Sub
.................................................. ............................................
Y aqui el codigo ke tengo para agregarle los valores desde el combo a la list
Private Sub cmb_vehiculos_Click()
lst_vehiculos.AddItem cmb_vehiculos
End Sub
.................................................. ................................................
AYUDA PORFA
