SoloCodigo

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:baserentacar.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