Access : Sql & VBA

Private Sub AddOutilNew_Click()

'requete d'ajout a la base
Dim Part1 As String

Part1 = "INSERT INTO Outils (numero_plan, type, produit, poste, disponibilite, facteur_charge, plage_couple, propriete_Etat," & _
            "date_commande, date_mise_en_service, prix, entreprise, designation, controle, etalonnage)" & _
            "VALUES (tbxNumPlan, cboType, cboProduit, cboPoste, cboDispo, tbxCharge, tbxCouple, cboEtat, tbxCommande, tbxService," & _
            "tbxPrix, tbxEntreprise, tbxdesignation, cboControle, tbxEtalon)" & _
        "INSERT INTO Localisation (ou)" & _
            "VALUES (tbxOu)" & _
            "WHERE (Outils.disponibilite=Disponibilite.disponibilite)" & _
            "AND (Disponibilite.intitule=Localisation.N°);"
                
        

DoCmd.RunSQL Part1
End Sub

SELECT Outils.numero_plan, Type.type, Produit.produit, Secteur.secteur, Poste.poste, Disponibilite.intitule, Controle.controle, Propriete_Etat.propriete, Immobilisation.immo

FROM Outils

INNER JOIN Type ON Outils.type=Type.N° (INNER JOIN Produit ON Outils.produit=Produit.N° (INNER JOIN Secteur ON Outils.secteur=Secteur.N° (INNER JOIN Propriete_Etat ON Outils.propriete_Etat.Propriete_Etat (INNER JOIN Immobilisation ON Outils.immobilisation=Immobilisation.N°))))
WHERE (((Outils.type)=[cboRechercheType])) OR (((Outils.produit)=[cboRechercheProduit])) OR (((Outils.secteur)=[cboRechercheSecteur])) OR (((Outils.poste)=[cboRecherchePoste])) OR (((Outils.disponibilite)=[cboRechercheDisponibilite])) OR (((Outils.controle)=[cboRechercheControle])) OR (((Outils.propriete_etat)=[cboRechercheEtat])) OR (((Outils.immobilisation)=[cboRechercheImmo]))

ORDER BY Outils.numero_plan;

SELECT NOM, PRENOM, AGE, MARQUE, COULEUR
FROM PERSONNES
INNER JOIN PERSONNE_VOITURE 
ON ID_PERSONNE = PERSONNE_ID 
INNER JOIN VOITURES 
ON ID_VOITURE = VOITURE_ID 
INNER JOIN COULEURS 
ON ID_COULEUR = COULEUR_ID 
WHERE ID_PERSONNE = 3