1 2 3 4 5 6 7 8 9 10
| SQL = "INSERT INTO EquipmentCharacteristics ( IDCharacteristic , IDEquipment ,CharacValue )"
SQL = SQL & " SELECT [CharacteristicsList].[IDCharacteristic], [Equipments].[IDEquipment], '*" & Me.txt_value & "*' "
SQL = SQL & " FROM CharacteristicsList, Equipments, EquipmentFamilies, EquipmentTypes"
SQL = SQL & " WHERE [Equipments].[IDEquipment] IN (SELECT [Equipments].[IDEquipment] FROM Equipments "
SQL = SQL & " WHERE [Equipments].[IDFamily] IN (SELECT [Equipments].[IDFamily] FROM Equipments "
SQL = SQL & " WHERE [Equipments]![IDEquipment] = "
SQL = SQL & cmb_IDEq & ") AND [Equipments].[IDType] IN (SELECT [Equipments].[IDType] FROM Equipments "
SQL = SQL & " WHERE [Equipments]![IDEquipment] = "
SQL = SQL & cmb_IDEq & ")) And [Equipments]![IDEquipment] != "
SQL = SQL & cmb_IDEq & ";" |
Partager