UPDATE : limite du nombre de critères
SandrillonC
Messages postés
22
Date d'inscription
Statut
Membre
Dernière intervention
-
blux Messages postés 27147 Date d'inscription Statut Modérateur Dernière intervention -
blux Messages postés 27147 Date d'inscription Statut Modérateur Dernière intervention -
Bonjour à tous,
Je programme actuellement une base de données pour mon entreprise, qui, dans le même temps, réalise un inventaire technique afin d'alimenter ma base.
Je recois cet inventaire sous forme d'un fichier Excel de 355 colonnes par enregistrement.
Ce fichier Excel, c'est moi qui l'ait fourni, il est le fruit de requetes SELECT en VBA suivi d'une automation Excel. Le point important est qu'il contient tous les enregistrements de ma base.
J'arrive à importer le tout en VBA en deux fois (Limite de 255 colonnes pour Access) mais je me pose des questions quant à la mise à jour de mes 15 tables d'origine avec ces deux tables de MAJ.
Etant donné que l'inventaire évolue chaque semaine, je recois donc des fichiers Excel de plus en plus complets (Contenant donc tous les enregistrements de ma table mais de moins en moins de champs vides) et je souhaite mettre à jour uniquement les enregistrements non vides pour ne pas écraser certains enregistrements par les valeurs vides que les fichiers contiennent.
Dans une requete UPDATE, cela se traduirait par un critère de type "Est pas Null".
Mais combien de critères de type "OU" puis-je insérer au maximum pour spécifier que je souhaite mettre à jour chaque champ de chaque enregistrement si ce champ de mise à jour est non nul ? 8? 9?
J'ai plus de 350 champs à mettre à jour, ce qui impliquerait que je devrais créer près de 40 requêtes updates en VBA pour mettre tout à jour ?
N'y a-t-il pas une solution plus économique ?
Par avance merci de vos conseils avisés.
Cordialement
Je programme actuellement une base de données pour mon entreprise, qui, dans le même temps, réalise un inventaire technique afin d'alimenter ma base.
Je recois cet inventaire sous forme d'un fichier Excel de 355 colonnes par enregistrement.
Ce fichier Excel, c'est moi qui l'ait fourni, il est le fruit de requetes SELECT en VBA suivi d'une automation Excel. Le point important est qu'il contient tous les enregistrements de ma base.
J'arrive à importer le tout en VBA en deux fois (Limite de 255 colonnes pour Access) mais je me pose des questions quant à la mise à jour de mes 15 tables d'origine avec ces deux tables de MAJ.
Etant donné que l'inventaire évolue chaque semaine, je recois donc des fichiers Excel de plus en plus complets (Contenant donc tous les enregistrements de ma table mais de moins en moins de champs vides) et je souhaite mettre à jour uniquement les enregistrements non vides pour ne pas écraser certains enregistrements par les valeurs vides que les fichiers contiennent.
Dans une requete UPDATE, cela se traduirait par un critère de type "Est pas Null".
Mais combien de critères de type "OU" puis-je insérer au maximum pour spécifier que je souhaite mettre à jour chaque champ de chaque enregistrement si ce champ de mise à jour est non nul ? 8? 9?
J'ai plus de 350 champs à mettre à jour, ce qui impliquerait que je devrais créer près de 40 requêtes updates en VBA pour mettre tout à jour ?
N'y a-t-il pas une solution plus économique ?
Par avance merci de vos conseils avisés.
Cordialement
A voir également:
- UPDATE : limite du nombre de critères
- Windows update bloqué - Guide
- Winget update - Guide
- Asus live update - Télécharger - Utilitaires
- Wsus offline update - Télécharger - Systèmes d'exploitation
- Nettoyage windows update - Guide
3 réponses
Bonjour,
Dans les anciennes versions Access (98-2000), MS disait qu'on pouvait entrer 15 critères pour chacun des contrôles, (15 lignes en mode graphique ou mode "Création").
Pour les versions plus récentes il faudrait que tu cherches dans le didacticiel du programmeur.
Bonne suite
Dans les anciennes versions Access (98-2000), MS disait qu'on pouvait entrer 15 critères pour chacun des contrôles, (15 lignes en mode graphique ou mode "Création").
Pour les versions plus récentes il faudrait que tu cherches dans le didacticiel du programmeur.
Bonne suite
Bonjour Blux,
Tu m'as Aidé il y a 2 ans déjà sur un autre sujet :)
Content de voir que tu aportes toujours ton aide précieuse aux internautes.
Je cherche à mettre à jour des champs de mes enregistrements pour lesquels la table de mise à jour contient des champs non vides.
En attendant je réalise juste plusieurs UPDATES successifs pour mettre à jour ma table, mais des champs non vides se retrouvent effacés durant la MAJ car ma table de MAJ contient certains champs vides.
Mon code actuel un peu indigeste:
Dim Chemin As String
Dim mysql As String
Dim db As Database
Chemin = (OuvrirUnFichier(Application.hWndAccessApp, "Abrir una carpeta Excel", 1, , , "C:\"))
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12Xml, "MAJ", Chemin, True, "A1:HX2000"
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12Xml, "MAJ2", Chemin, True, "HY1:MT2000"
mysql = "UPDATE [1_Datos generales] INNER JOIN MAJ ON [1_Datos generales].[Número Estación] = MAJ.[1_Datos generales_Número Estación] SET [1_Datos generales].[Nombre Estacion (SCADA)] = [MAJ].[Nombre Estacion (SCADA)], [1_Datos generales].[Nombre ERM] = [MAJ].[Nombre ERM], [1_Datos generales].Domicilio = [MAJ].[Domicilio], [1_Datos generales].[Entre Calles] = [MAJ].[Entre Calles], [1_Datos generales].Colonia = [MAJ].[Colonia], [1_Datos generales].[Codigo Postal] = [MAJ].[Codigo Postal], [1_Datos generales].Municipio = [MAJ].[Municipio], [1_Datos generales].[Tipo de Distribución] = [MAJ].[Tipo de Distribución], [1_Datos generales].Contacto = [MAJ].[Contacto], [1_Datos generales].[Operación en Horas] = [MAJ].[Operación en Horas], [1_Datos generales].[Operación en Días] = [MAJ].[Operación en Días], [1_Datos generales].[Status de la estación] = [MAJ].[Status de la estación];"
Set db = CurrentDb
DoCmd.SetWarnings False
DoCmd.RunSQL (mysql)
mysql = "UPDATE [3_Parametros de Diseño] INNER JOIN MAJ ON [3_Parametros de Diseño].[Número Estación] = MAJ.[1_Datos generales_Número Estación]"
mysql = mysql & " SET [3_Parametros de Diseño].[Tipo de Estación] = [MAJ].[Tipo de Estación], [3_Parametros de Diseño].[By Pass a la Estación] = [MAJ].[By Pass a la Estación], [3_Parametros de Diseño].Línea = [MAJ].[Línea], [3_Parametros de Diseño].[Díametro a la Acometida] = [MAJ].[Díametro a la Acometida], [3_Parametros de Diseño].[Unidades Acomedita] = [MAJ].[Unidades Acomedita], [3_Parametros de Diseño].[Díametro de Entrada ERM] = [MAJ].[Díametro de Entrada ERM], [3_Parametros de Diseño].[ANSI de Entrada] = [MAJ].[ANSI de Entrada],"
mysql = mysql & " [3_Parametros de Diseño].[Díametro de Salida ERM] = [MAJ].[Díametro de Salida ERM], [3_Parametros de Diseño].[ANSI de Salida] = [MAJ].[ANSI de Salida], [3_Parametros de Diseño].[Elem Aislante a la Entrada] = [MAJ].[Elem Aislante a la Entrada], [3_Parametros de Diseño].[Elem Aislante a la Salida] = [MAJ].[Elem Aislante a la Salida], [3_Parametros de Diseño].[Tipo de Conexión] = [MAJ].[Tipo de Conexión], [3_Parametros de Diseño].[Presión de Entrada] = [MAJ].[Presión de Entrada], [3_Parametros de Diseño].[Unidades Presión de Entrada] = [MAJ].[Unidades Presión de Entrada], [3_Parametros de Diseño].[Presión de Salida] = [MAJ].[Presión de Salida], [3_Parametros de Diseño].[Unidades Presión de Salida] = [MAJ].[Unidades Presión de Salida], [3_Parametros de Diseño].[Notas Parámetros de Diseño] = [MAJ].[Notas Parámetros de Diseño];"
Set db = CurrentDb
DoCmd.SetWarnings False
DoCmd.RunSQL (mysql)
mysql = "UPDATE [4_Medición] INNER JOIN MAJ ON [4_Medición].[Número Estación] = MAJ.[1_Datos generales_Número Estación]"
mysql = mysql & " SET [4_Medición].[Marca Medidor] = [MAJ].[Marca Medidor], [4_Medición].[Capacidad Medidor] = [MAJ].[Capacidad Medidor], [4_Medición].[Tipo Medidor] = [MAJ].[Tipo Medidor], [4_Medición].[Serie Medidor] = [MAJ].[Serie Medidor], [4_Medición].[Año de Fabricación Medidor] = [MAJ].[Año de Fabricación Medidor], [4_Medición].[Diámetro Medidor] = [MAJ].[Diámetro Medidor], [4_Medición].[ANSI Medidor] = [MAJ].[ANSI Medidor], [4_Medición].[Tipo de Conexión Medidor] = [MAJ].[Tipo de Conexión Medidor], [4_Medición].[Emisor de Pulsos] = [MAJ].[Emisor de Pulsos], [4_Medición].[By Pass para el Medidor] = [MAJ].[By Pass para el Medidor], [4_Medición].[Q max (m3/hr)] = [MAJ].[Q max (m3/hr)], [4_Medición].[Q min (m3/hr)] = [MAJ].[Q min (m3/hr)], [4_Medición].[P max (bar)] = [MAJ].[P max (bar)], [4_Medición].[Condiciones Medidor] = [MAJ].[Condiciones Medidor];"
Set db = CurrentDb
DoCmd.SetWarnings False
DoCmd.RunSQL (mysql)
mysql = "UPDATE [5_Computador de flujo] INNER JOIN MAJ ON [5_Computador de flujo].[Número Estación] = MAJ.[1_Datos generales_Número Estación]"
mysql = mysql & " SET [5_Computador de flujo].[Marca Computador] = [MAJ].[Marca Computador], [5_Computador de flujo].[Modelo Computador] = [MAJ].[Modelo Computador], [5_Computador de flujo].[Serie Computador] = [MAJ].[Serie Computador], [5_Computador de flujo].[Corrector volumetrico Computador] = [MAJ].[Corrector volumetrico Computador], [5_Computador de flujo].[Cable para pulsos Computador] = [MAJ].[Cable para pulsos Computador], [5_Computador de flujo].[Connexion al termopozo Computador] = [MAJ].[Connexion al termopozo Computador],"
mysql = mysql & " [5_Computador de flujo].[Telemetria Computador] = [MAJ].[Telemetria Computador], [5_Computador de flujo].[Modem Computador] = [MAJ].[Modem Computador], [5_Computador de flujo].[N° serie modem] = [MAJ].[N° serie modem], [5_Computador de flujo].[Panel Solar Computador] = [MAJ].[Panel Solar Computador], [5_Computador de flujo].[Sistema SCADA Computador] = [MAJ].[Sistema SCADA Computador], [5_Computador de flujo].[Transductor Computador] = [MAJ].[Transductor Computador], [5_Computador de flujo].Rango = [MAJ].[Rango], [5_Computador de flujo].[Condiciones Computador] = [MAJ].[Condiciones Computador], [5_Computador de flujo].[Notas Computador] = [MAJ].[Notas Computador];"
Set db = CurrentDb
DoCmd.SetWarnings False
DoCmd.RunSQL (mysql)
mysql = "UPDATE [6_Valvulas] INNER JOIN MAJ ON [6_Valvulas].[Número Estación] = MAJ.[1_Datos generales_Número Estación]"
mysql = mysql & " SET [6_Valvulas].[Marca Válvulas de Entrada] = [MAJ].[Marca Válvulas de Entrada], [6_Valvulas].[Tipo Válvulas de Entrada] = [MAJ].[Tipo Válvulas de Entrada], [6_Valvulas].[ANSI Válvulas de Entrada] = [MAJ].[ANSI Válvulas de Entrada],"
mysql = mysql & " [6_Valvulas].[Diámetro Válvulas de Entrada] = [MAJ].[Diámetro Válvulas de Entrada], [6_Valvulas].[Número de Válvulas de Entrada] = [MAJ].[Número de Válvulas de Entrada], [6_Valvulas].[Condiciones Válvula Entrada] = [MAJ].[Condiciones Válvula Entrada], [6_Valvulas].[Marca Válvulas de Salida] = [MAJ].[Marca Válvulas de Salida], [6_Valvulas].[Tipo Válvulas de Salida] = [MAJ].[Tipo Válvulas de Salida], [6_Valvulas].[ANSI Válvulas de Salida] = [MAJ].[ANSI Válvulas de Salida], [6_Valvulas].[Diámetro Válvulas de Salida] = [MAJ].[Diámetro Válvulas de Salida], [6_Valvulas].[Número de Válvulas de Salida] = [MAJ].[Número de Válvulas de Salida], [6_Valvulas].[Condiciones Válvula Salida] = [MAJ].[Condiciones Válvula Salida], [6_Valvulas].[Marca Válvulas Principal de Salida] = [MAJ].[Marca Válvulas Principal de Salida], [6_Valvulas].[Tipo Válvulas Principal de Salida] = [MAJ].[Tipo Válvulas Principal de Salida],"
mysql = mysql & " [6_Valvulas].[ANSI Válvulas Principal de Salida] = [MAJ].[ANSI Válvulas Principal de Salida], [6_Valvulas].[Diámetro Válvulas Principal de Salida] = [MAJ].[Diámetro Válvulas Principal de Salida], [6_Valvulas].[Número de Válvulas Principal de Salida] = [MAJ].[Número de Válvulas Principal de Salida], [6_Valvulas].[Condiciones Válvula Principal Salida] = [MAJ].[Condiciones Válvula Principal Salida], [6_Valvulas].[Marca Válvulas de Señales] = [MAJ].[Marca Válvulas de Señales], [6_Valvulas].[Tipo Válvulas de Señales] = [MAJ].[Tipo Válvulas de Señales], [6_Valvulas].[ANSI Válvulas de Señales] = [MAJ].[ANSI Válvulas de Señales], [6_Valvulas].[Diámetro Válvulas de Señales] = [MAJ].[Diámetro Válvulas de Señales], [6_Valvulas].[Número de Válvulas de Señales] = [MAJ].[Número de Válvulas de Señales], [6_Valvulas].[Condiciones Válvula Señales] = [MAJ].[Condiciones Válvula Señales], [6_Valvulas].[Marca Válvulas de Manómetros] = [MAJ].[Marca Válvulas de Manómetros],"
mysql = mysql & " [6_Valvulas].[Tipo Válvulas de Manómetros] = [MAJ].[Tipo Válvulas de Manómetros], [6_Valvulas].[ANSI Válvulas de Manómetros] = [MAJ].[ANSI Válvulas de Manómetros], [6_Valvulas].[Diámetro Válvulas de Manómetros] = [MAJ].[Diámetro Válvulas de Manómetros], [6_Valvulas].[Número de Válvulas de Manómetros] = [MAJ].[Número de Válvulas de Manómetros], [6_Valvulas].[Condiciones Válvulas Manómetros] = [MAJ].[Condiciones Válvulas Manómetros], [6_Valvulas].[Marca Válvulas de Purga Antes del Reg] = [MAJ].[Marca Válvulas de Purga Antes del Reg], [6_Valvulas].[Tipo Válvulas de Purga Antes del Reg] = [MAJ].[Tipo Válvulas de Purga Antes del Reg], [6_Valvulas].[ANSI Válvulas de Purga Antes del Reg] = [MAJ].[ANSI Válvulas de Purga Antes del Reg],"
mysql = mysql & " [6_Valvulas].[Diámetro Válvulas de Purga Antes del Reg] = [MAJ].[Diámetro Válvulas de Purga Antes del Reg], [6_Valvulas].[Número de Válvulas de Purga Antes del Reg] = [MAJ].[Número de Válvulas de Purga Antes del Reg], [6_Valvulas].[Condiciones Válvulas Purga Antes del Reg] = [MAJ].[Condiciones Válvulas Purga Antes del Reg], [6_Valvulas].[Marca Válvulas de Purga Desp del Reg] = [MAJ].[Marca Válvulas de Purga Desp del Reg], [6_Valvulas].[Tipo Válvulas de Purga Desp del Reg] = [MAJ].[Tipo Válvulas de Purga Desp del Reg], [6_Valvulas].[ANSI Válvulas de Purga Desp del Reg] = [MAJ].[ANSI Válvulas de Purga Desp del Reg], [6_Valvulas].[Diámetro Válvulas de Purga Desp del Reg] = [MAJ].[Diámetro Válvulas de Purga Desp del Reg], [6_Valvulas].[Número de Válvulas de Purga Desp del Reg] = [MAJ].[Número de Válvulas de Purga Desp del Reg], [6_Valvulas].[Condiciones Válvulas Purga Desp de Reg] = [MAJ].[Condiciones Válvulas Purga Desp de Reg],"
mysql = mysql & " [6_Valvulas].[Diámetro Válvula de Seccionamiento] = [MAJ].[Diámetro Válvula de Seccionamiento], [6_Valvulas].[Material Válvula de Seccionamiento] = [MAJ].[Material Válvula de Seccionamiento], [6_Valvulas].[Condiciones Válvula Seccionamiento] = [MAJ].[Condiciones Válvula Seccionamiento], [6_Valvulas].Ubicación = [MAJ].[Ubicación], [6_Valvulas].Tipo = [MAJ].[Tipo];"
Set db = CurrentDb
DoCmd.SetWarnings False
DoCmd.RunSQL (mysql)
mysql = "UPDATE [7_Tierras fisicas] INNER JOIN MAJ ON [7_Tierras fisicas].[Número Estación] = MAJ.[1_Datos generales_Número Estación]"
mysql = mysql & " SET [7_Tierras fisicas].[Tierra física en las bridas de Ent y Sal] = [MAJ].[Tierra física en las bridas de Ent y Sal], [7_Tierras fisicas].[Tierra física en la parte central] = [MAJ].[Tierra física en la parte central], [7_Tierras fisicas].[Tierra física al corrector] = [MAJ].[Tierra física al corrector], [7_Tierras fisicas].[Condiciones de la Tierra Física] = [MAJ].[Condiciones de la Tierra Física], [7_Tierras fisicas].[Notas Tierras físicas] = [MAJ].[Notas Tierras físicas];"
Set db = CurrentDb
DoCmd.SetWarnings False
DoCmd.RunSQL (mysql)
mysql = "UPDATE [8_Accesorios de la estación] INNER JOIN MAJ ON [8_Accesorios de la estación].[Número Estación] = MAJ.[1_Datos generales_Número Estación]"
mysql = mysql & " SET [8_Accesorios de la estación].Cerradura = [MAJ].[Cerradura],"
mysql = mysql & " [8_Accesorios de la estación].[Condiciones Cerradura] = [MAJ].[Condiciones Cerradura], [8_Accesorios de la estación].[Oreja Porta Candado] =[MAJ].[Oreja Porta Candado], [8_Accesorios de la estación].[Condiciones Oreja Porta Candado] = [MAJ].[Condiciones Oreja Porta Candado], [8_Accesorios de la estación].[Candado Maestreado] = [MAJ].[Candado Maestreado], [8_Accesorios de la estación].[Tipo de Candado] = [MAJ].[Tipo de Candado], [8_Accesorios de la estación].[Rejillas de Venteo] = [MAJ].[Rejillas de Venteo], [8_Accesorios de la estación].[Condiciones Rejillas Venteo] = [MAJ].[Condiciones Rejillas Venteo], [8_Accesorios de la estación].[Energía Eléctrica] = [MAJ].[Energía Eléctrica],"
mysql = mysql & " [8_Accesorios de la estación].[Condiciones Energía Eléctrica] = [MAJ].[Condiciones Energía Eléctrica], [8_Accesorios de la estación].[Instalación elect Clase 1 Divición 2] = [MAJ].[Instalación elect Clase 1 Divición 2], [8_Accesorios de la estación].[Condiciones Clase 1 División 2] = [MAJ].[Condiciones Clase 1 División 2], [8_Accesorios de la estación].[Toma de Agua] = [MAJ].[Toma de Agua], [8_Accesorios de la estación].[Condiciones Toma de Agua] = [MAJ].[Condiciones Toma de Agua], [8_Accesorios de la estación].Extintor = [MAJ].[Extintor], [8_Accesorios de la estación].[Condiciones Extintor] = [MAJ].[Condiciones Extintor], [8_Accesorios de la estación].[Línea telefónica] = [MAJ].[Línea telefónica], [8_Accesorios de la estación].[Condiciones Línea Telefónica] = [MAJ].[Condiciones Línea Telefónica], [8_Accesorios de la estación].[Acceso Directo] = [MAJ].[Acceso Directo],"
mysql = mysql & " [8_Accesorios de la estación].[Condiciones Acceso Directo] = [MAJ].[Condiciones Acceso Directo], [8_Accesorios de la estación].[Puerta Acceso] = [MAJ].[Puerta Acceso], [8_Accesorios de la estación].[Condiciones Puerta Acceso] = [MAJ].[Condiciones Puerta Acceso];"
Set db = CurrentDb
DoCmd.SetWarnings False
DoCmd.RunSQL (mysql)
mysql = "UPDATE [9_Manómetros] INNER JOIN MAJ ON [9_Manómetros].[Número Estación] = MAJ.[1_Datos generales_Número Estación]"
mysql = mysql & " SET [9_Manómetros].[Marca Manómetro de Entrada] = [MAJ].[Marca Manómetro de Entrada], [9_Manómetros].[Tipo Manómetro de Entrada] = [MAJ].[Tipo Manómetro de Entrada], [9_Manómetros].[Seco/Glicerina Manómetro de Entrada] = [MAJ].[Seco/Glicerina Manómetro de Entrada], [9_Manómetros].[Rango Manómetro de Entrada] = [MAJ].[Rango Manómetro de Entrada], [9_Manómetros].[Montaje Manómetro de Entrada] = [MAJ].[Montaje Manómetro de Entrada], [9_Manómetros].[Conexión Manómetro de Entrada] = [MAJ].[Conexión Manómetro de Entrada],"
mysql = mysql & " [9_Manómetros].[Número de Manómetros de Entrada] = [MAJ].[Número de Manómetros de Entrada], [9_Manómetros].[Condiciones del Manómetro de Entrada] = [MAJ].[Condiciones del Manómetro de Entrada], [9_Manómetros].[Unidades Manómetro de Entrada] = [MAJ].[Unidades Manómetro de Entrada], [9_Manómetros].[Marca Manómetro de Control] = [MAJ].[Marca Manómetro de Control], [9_Manómetros].[Tipo Manómetro de Control] = [MAJ].[Tipo Manómetro de Control], [9_Manómetros].[Seco/Glicerina Manómetro de Control] = [MAJ].[Seco/Glicerina Manómetro de Control], [9_Manómetros].[Rango Manómetro de Control] = [MAJ].[Rango Manómetro de Control], [9_Manómetros].[Montaje Manómetro de Control] = [MAJ].[Montaje Manómetro de Control], [9_Manómetros].[Conexión Manómetro de Control] = [MAJ].[Conexión Manómetro de Control], [9_Manómetros].[Número de Manómetros de Control] = [MAJ].[Número de Manómetros de Control],"
mysql = mysql & " [9_Manómetros].[Condiciones del Manómetro de Control] = [MAJ].[Condiciones del Manómetro de Control], [9_Manómetros].[Unidades Manómetro de Control] = [MAJ].[Unidades Manómetro de Control], [9_Manómetros].[Marca Manómetro de Salida] = [MAJ].[Marca Manómetro de Salida], [9_Manómetros].[Tipo Manómetro de Salida] = [MAJ].[Tipo Manómetro de Salida], [9_Manómetros].[Seco/Glicerina Manómetro de Salida] = [MAJ].[Seco/Glicerina Manómetro de Salida], [9_Manómetros].[Rango Manómetro de Salida] = [MAJ].[Rango Manómetro de Salida], [9_Manómetros].[Montaje Manómetro de Salida] = [MAJ].[Montaje Manómetro de Salida], [9_Manómetros].[Conexión Manómetro de Salida] = [MAJ].[Conexión Manómetro de Salida], [9_Manómetros].[Número de Manómetros de Salida] = [MAJ].[Número de Manómetros de Salida], [9_Manómetros].[Condiciones del Manómetro de Salida] = [MAJ].[Condiciones del Manómetro de Salida], [9_Manómetros].[Unidades Manómetro de Salida] = [MAJ].[Unidades Manómetro de Salida];"
Set db = CurrentDb
DoCmd.SetWarnings False
DoCmd.RunSQL (mysql)
mysql = "UPDATE [91_Filtro] INNER JOIN MAJ ON [91_Filtro].[Número Estación] = MAJ.[1_Datos generales_Número Estación]"
mysql = mysql & " SET [91_Filtro].[Marca del Filtro] = [MAJ].[Marca del Filtro], [91_Filtro].[Numero de parte del Filtro] = [MAJ].[Numero de parte del Filtro], [91_Filtro].[Numero de elementos de Filtración] = [MAJ].[Numero de elementos de Filtración], [91_Filtro].[ANSI del Filtro] = [MAJ].[ANSI del Filtro], [91_Filtro].[Tipo del Filtro] = [MAJ].[Tipo del Filtro], [91_Filtro].[Tipo de conexion del Filtro] = [MAJ].[Tipo de conexion del Filtro], [91_Filtro].[Caudal de Diseño Filtro {3(N)/h}] = [MAJ].[Caudal de Diseño Filtro {3(N)/h}], [91_Filtro].[Presión de Diseño del Filtro (bar)] = [MAJ].[Presión de Diseño del Filtro (bar)], [91_Filtro].[Manómetro diferencial de presión] = [MAJ].[Manómetro diferencial de presión], [91_Filtro].[Aguja de Arrastre] = [MAJ].[Aguja de Arrastre], [91_Filtro].[Diámetro del Filtro] = [MAJ].[Diámetro del Filtro], [91_Filtro].[Orientación del Filtro] = [MAJ].[Orientación del Filtro], [91_Filtro].[Condiciones del Filtro] = [MAJ].[Condiciones del Filtro];"
Set db = CurrentDb
DoCmd.SetWarnings False
DoCmd.RunSQL (mysql)
mysql = "UPDATE [92_Acabados y pintura] INNER JOIN MAJ ON [92_Acabados y pintura].[Número Estación] = MAJ.[1_Datos generales_Número Estación]"
mysql = mysql & " SET [92_Acabados y pintura].[Color del Gabinete] = [MAJ].[Color del Gabinete], [92_Acabados y pintura].[Condiciones del Color Gabinete] = [MAJ].[Condiciones del Color Gabinete], [92_Acabados y pintura].[Color de Tubería] = [MAJ].[Color de Tubería], [92_Acabados y pintura].[Condiciones Color de Tubería] = [MAJ].[Condiciones Color de Tubería], [92_Acabados y pintura].[Condiciones Color de Instrumentación] = [MAJ].[Condiciones Color de Instrumentación], [92_Acabados y pintura].[Color de Instrumentación] = [MAJ].[Color de Instrumentación], [92_Acabados y pintura].[Muros y malla ciclonica] = [MAJ].[Muros y malla ciclonica], [92_Acabados y pintura].[Condiciones Muros y Malla] = [MAJ].[Condiciones Muros y Malla], [92_Acabados y pintura].Recinto = [MAJ].[Recinto], [92_Acabados y pintura].[Condiciones Recinto] = [MAJ].[Condiciones Recinto], [92_Acabados y pintura].Gabinete = [MAJ].[Gabinete],"
mysql = mysql & " [92_Acabados y pintura].[Condiciones Gabinete] = [MAJ].[Condiciones Gabinete], [92_Acabados y pintura].Caseta = [MAJ].[Caseta], [92_Acabados y pintura].[Condiciones Caseta] = [MAJ].[Condiciones Caseta], [92_Acabados y pintura].Otro = [MAJ].[Otro], [92_Acabados y pintura].[Condiciones de Otro] = [MAJ].[Condiciones de Otro], [92_Acabados y pintura].[Notas acabados] = [MAJ].[Notas acabados];"
Set db = CurrentDb
DoCmd.SetWarnings False
DoCmd.RunSQL (mysql)
mysql = "UPDATE [93_Otros] INNER JOIN MAJ2 ON [93_Otros].[Número Estación] = MAJ2.[10_Regulación_Número Estación]"
mysql = mysql & " SET [93_Otros].[Espárragos de Acero al carbón B7] = [MAJ2].[Espárragos de Acero al carbón B7], [93_Otros].[Condiciones de Esparragos] = [MAJ2].[Condiciones de Esparragos],"
mysql = mysql & " [93_Otros].[Tuercas de Acero al carbón 2H] = [MAJ2].[Tuercas de Acero al carbón 2H], [93_Otros].[Condiciones de las Tuercas] = [MAJ2].[Condiciones de las Tuercas], [93_Otros].[Tres hilos por encima de las tuercas] = [MAJ2].[Tres hilos por encima de las tuercas], [93_Otros].[Condiciones de las tres hilos] = [MAJ2].[Condiciones de las tres hilos], [93_Otros].[Observaciones generales] = [MAJ2].[Observaciones generales], [93_Otros].[Link of the picture1] = [MAJ2].[93_Otros_Link of the picture1], [93_Otros].[Link of the picture2] = [MAJ2].[93_Otros_Link of the picture2], [93_Otros].[Link of the picture3] = [MAJ2].[Link of the picture3];"
Set db = CurrentDb
DoCmd.SetWarnings False
DoCmd.RunSQL (mysql)
mysql = "UPDATE 11_Mantenimiento INNER JOIN MAJ2 ON [11_Mantenimiento].[Número Estación] = MAJ2.[10_Regulación_Número Estación]"
mysql = mysql & " SET [11_Mantenimiento].[Clase del ERM] = [MAJ2].[Clase del ERM], [11_Mantenimiento].[Clase cambiado manualmente] = [MAJ2].[Clase cambiado manualmente], [11_Mantenimiento].[Numeros Mto Major] = [MAJ2].[Numeros Mto Major], [11_Mantenimiento].[Numeros Mto Menor] = [MAJ2].[Numeros Mto Menor], [11_Mantenimiento].[Numeros inspección y control rápido] = [MAJ2].[Numeros inspección y control rápido], [11_Mantenimiento].[Número de visitas al año] = [MAJ2].[Número de visitas al año], [11_Mantenimiento].PES = [MAJ2].[PES], [11_Mantenimiento].[Último Mto Major 1] = [MAJ2].[Último Mto Major 1], [11_Mantenimiento].[Último Mto Major 2] = [MAJ2].[Último Mto Major 2], [11_Mantenimiento].[Último Mto Major 3] = [MAJ2].[Último Mto Major 3], [11_Mantenimiento].[Último Mto Menor 1] = [MAJ2].[Último Mto Menor 1], [11_Mantenimiento].[Último Mto Menor 2] = [MAJ2].[Último Mto Menor 2],"
mysql = mysql & " [11_Mantenimiento].[Último Mto Menor 3] = [MAJ2].[Último Mto Menor 3], [11_Mantenimiento].[Próximo Mto Major 1] = [MAJ2].[Próximo Mto Major 1], [11_Mantenimiento].[Fecha Mto Major cambiado] = [MAJ2].[Fecha Mto Major cambiado], [11_Mantenimiento].[Fecha Mto Menor cambiado] = [MAJ2].[Fecha Mto Menor cambiado],"
mysql = mysql & " [11_Mantenimiento].[Próximo Mto Menor 1] = [MAJ2].[Próximo Mto Menor 1], [11_Mantenimiento].[Fecha ultima de calibración de medidor] = [MAJ2].[Fecha ultima de calibración de medidor], [11_Mantenimiento].[Fecha proxima de calibración de medidor] = [MAJ2].[Fecha proxima de calibración de medidor], [11_Mantenimiento].[Informe Mto Major 1] = [MAJ2].[Informe Mto Major 1], [11_Mantenimiento].[Informe Mto Major 2] = [MAJ2].[Informe Mto Major 2], [11_Mantenimiento].[Informe Mto Major 3] = [MAJ2].[Informe Mto Major 3], [11_Mantenimiento].[Informe Mto Menor 1] = [MAJ2].[Informe Mto Menor 1], [11_Mantenimiento].[Informe Mto Menor 2] = [MAJ2].[Informe Mto Menor 2], [11_Mantenimiento].[Informe Mto Menor 3] = [MAJ2].[Informe Mto Menor 3],"
mysql = mysql & " [11_Mantenimiento].Orden_trabajo_Major = [MAJ2].[Orden_trabajo_Major], [11_Mantenimiento].Orden_trabajo_Menor = [MAJ2].[Orden_trabajo_Menor];"
Set db = CurrentDb
DoCmd.SetWarnings False
DoCmd.RunSQL (mysql)
mysql = "UPDATE 10_Regulación INNER JOIN MAJ2 ON [10_Regulación].[Número Estación] = MAJ2.[10_Regulación_Número Estación]"
mysql = mysql & " SET [10_Regulación].[Tipo de Regulación]=[MAJ2].[Tipo de Regulación], [10_Regulación].[Tipo de Conexión Regulador]=[MAJ2].[Tipo de Conexión Regulador], [10_Regulación].[ANSI de Reguladores]=[MAJ2].[ANSI de Reguladores], [10_Regulación].[N° de lineas de Regulación]=[MAJ2].[N° de lineas de Regulación], [10_Regulación].[Filosofía de operación]=[MAJ2].[Filosofía de operación],"
mysql = mysql & " [10_Regulación].[P ent Regulador 1]=[MAJ2].[P ent Regulador 1], [10_Regulación].[P sal Regulador 1]=[MAJ2].[P sal Regulador 1], [10_Regulación].[Marca Regulador 1]=[MAJ2].[Marca Regulador 1], [10_Regulación].[Modelo Regulador 1]=[MAJ2].[Modelo Regulador 1], [10_Regulación].[Serie Regulador 1]=[MAJ2].[Serie Regulador 1], [10_Regulación].[Diámetro Regulador 1]=[MAJ2].[Diámetro Regulador 1], [10_Regulación].[P ent max Regulador 1]=[MAJ2].[P ent max Regulador 1], [10_Regulación].[Conditiones R1]=[MAJ2].[Conditiones R1], [10_Regulación].[P ent Regulador 2]=[MAJ2].[P ent Regulador 2], [10_Regulación].[P sal Regulador 2]=[MAJ2].[P sal Regulador 2], [10_Regulación].[Marca Regulador 2]=[MAJ2].[Marca Regulador 2], [10_Regulación].[Modelo Regulador 2]=[MAJ2].[Modelo Regulador 2], [10_Regulación].[Serie Regulador 2]=[MAJ2].[Serie Regulador 2], [10_Regulación].[Diámetro Regulador 2]=[MAJ2].[Diámetro Regulador 2],"
mysql = mysql & " [10_Regulación].[P ent max Regulador 2]=[MAJ2].[P ent max Regulador 2], [10_Regulación].[Conditiones R2]=[MAJ2].[Conditiones R2], [10_Regulación].[P ent Regulador 3]=[MAJ2].[P ent Regulador 3], [10_Regulación].[P sal Regulador 3]=[MAJ2].[P sal Regulador 3], [10_Regulación].[Marca Regulador 3]=[MAJ2].[Marca Regulador 3], [10_Regulación].[Modelo Regulador 3]=[MAJ2].[Modelo Regulador 3], [10_Regulación].[Serie Regulador 3]=[MAJ2].[Serie Regulador 3], [10_Regulación].[Diámetro Regulador 3]=[MAJ2].[Diámetro Regulador 3], [10_Regulación].[P ent max Regulador 3]=[MAJ2].[P ent max Regulador 3], [10_Regulación].[Conditiones R3]=[MAJ2].[Conditiones R3], [10_Regulación].[P ent Regulador 4]=[MAJ2].[P ent Regulador 4],"
mysql = mysql & " [10_Regulación].[P sal Regulador 4]=[MAJ2].[P sal Regulador 4], [10_Regulación].[Marca Regulador 4]=[MAJ2].[Marca Regulador 4], [10_Regulación].[Modelo Regulador 4]=[MAJ2].[Modelo Regulador 4], [10_Regulación].[Serie Regulador 4]=[MAJ2].[Serie Regulador 4], [10_Regulación].[Diámetro Regulador 4]=[MAJ2].[Diámetro Regulador 4], [10_Regulación].[Conditiones R4]=[MAJ2].[Conditiones R4], [10_Regulación].[Marca Piloto 1]=[MAJ2].[Marca Piloto 1], [10_Regulación].[Modelo Piloto 1]=[MAJ2].[Modelo Piloto 1], [10_Regulación].[Serie Piloto 1]=[MAJ2].[Serie Piloto 1], [10_Regulación].[WA 1]=[MAJ2].[WA 1], [10_Regulación].[Conditiones P1]=[MAJ2].[Conditiones P1], [10_Regulación].[Marca Piloto 2]=[MAJ2].[Marca Piloto 2], [10_Regulación].[Modelo Piloto 2]=[MAJ2].[Modelo Piloto 2], [10_Regulación].[Serie Piloto 2]=[MAJ2].[Serie Piloto 2], [10_Regulación].[WA 2]=[MAJ2].[WA 2], [10_Regulación].[Conditiones P2]=[MAJ2].[Conditiones P2],"
mysql = mysql & " [10_Regulación].[Marca Piloto 3]=[MAJ2].[Marca Piloto 3], [10_Regulación].[Modelo Piloto 3]=[MAJ2].[Modelo Piloto 3], [10_Regulación].[Serie Piloto 3]=[MAJ2].[Serie Piloto 3], [10_Regulación].[WA 3]=[MAJ2].[WA 3], [10_Regulación].[Conditiones P3]=[MAJ2].[Conditiones P3], [10_Regulación].[Marca Piloto 4]=[MAJ2].[Marca Piloto 4], [10_Regulación].[Modelo Piloto 4]=[MAJ2].[Modelo Piloto 4], [10_Regulación].[Serie Piloto 4]=[MAJ2].[Serie Piloto 4], [10_Regulación].[WA 4]=[MAJ2].[WA 4], [10_Regulación].[Conditiones P4]=[MAJ2].[Conditiones P4], [10_Regulación].[Dispositivo de Seguridad]=[MAJ2].[Dispositivo de Seguridad],"
mysql = mysql & " [10_Regulación].[Modelo del Dispositivo de Seguridad]=[MAJ2].[Modelo del Dispositivo de Seguridad], [10_Regulación].[Serie Dispositivo de Seguridad 1]=[MAJ2].[Serie Dispositivo de Seguridad 1], [10_Regulación].[Clase Dispositivo de Seguridad 1]=[MAJ2].[Clase Dispositivo de Seguridad 1], [10_Regulación].[Diámetro Dispositivo de Seguridad 1]=[MAJ2].[Diámetro Dispositivo de Seguridad 1], [10_Regulación].[Serie Dispositivo de Seguridad 2]=[MAJ2].[Serie Dispositivo de Seguridad 2], [10_Regulación].[Clase Dispositivo de Seguridad 2]=[MAJ2].[Clase Dispositivo de Seguridad 2],"
mysql = mysql & " [10_Regulación].[Diámetro Dispositivo de Seguridad 2]=[MAJ2].[Diámetro Dispositivo de Seguridad 2], [10_Regulación].[Serie Dispositivo de Seguridad 3]=[MAJ2].[Serie Dispositivo de Seguridad 3], [10_Regulación].[Clase Dispositivo de Seguridad 3]=[MAJ2].[Clase Dispositivo de Seguridad 3], [10_Regulación].[Diámetro Dispositivo de Seguridad 3]=[MAJ2].[Diámetro Dispositivo de Seguridad 3], [10_Regulación].[Serie Dispositivo de Seguridad 4]=[MAJ2].[Serie Dispositivo de Seguridad 4], [10_Regulación].[Clase Dispositivo de Seguridad 4]=[MAJ2].[Clase Dispositivo de Seguridad 4], [10_Regulación].[Diámetro Dispositivo de Seguridad 4]=[MAJ2].[Diámetro Dispositivo de Seguridad 4], [10_Regulación].[Condiciones de los Disp de Seg]=[MAJ2].[Condiciones de los Disp de Seg], [10_Regulación].[Señales de Control]=[MAJ2].[Señales de Control], [10_Regulación].[Condiciones de Señales]=[MAJ2].[Condiciones de Señales];"
Set db = CurrentDb
DoCmd.SetWarnings False
DoCmd.RunSQL (mysql)
MsgBox "Terminado !", vbInformation
Tu m'as Aidé il y a 2 ans déjà sur un autre sujet :)
Content de voir que tu aportes toujours ton aide précieuse aux internautes.
Je cherche à mettre à jour des champs de mes enregistrements pour lesquels la table de mise à jour contient des champs non vides.
En attendant je réalise juste plusieurs UPDATES successifs pour mettre à jour ma table, mais des champs non vides se retrouvent effacés durant la MAJ car ma table de MAJ contient certains champs vides.
Mon code actuel un peu indigeste:
Dim Chemin As String
Dim mysql As String
Dim db As Database
Chemin = (OuvrirUnFichier(Application.hWndAccessApp, "Abrir una carpeta Excel", 1, , , "C:\"))
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12Xml, "MAJ", Chemin, True, "A1:HX2000"
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12Xml, "MAJ2", Chemin, True, "HY1:MT2000"
mysql = "UPDATE [1_Datos generales] INNER JOIN MAJ ON [1_Datos generales].[Número Estación] = MAJ.[1_Datos generales_Número Estación] SET [1_Datos generales].[Nombre Estacion (SCADA)] = [MAJ].[Nombre Estacion (SCADA)], [1_Datos generales].[Nombre ERM] = [MAJ].[Nombre ERM], [1_Datos generales].Domicilio = [MAJ].[Domicilio], [1_Datos generales].[Entre Calles] = [MAJ].[Entre Calles], [1_Datos generales].Colonia = [MAJ].[Colonia], [1_Datos generales].[Codigo Postal] = [MAJ].[Codigo Postal], [1_Datos generales].Municipio = [MAJ].[Municipio], [1_Datos generales].[Tipo de Distribución] = [MAJ].[Tipo de Distribución], [1_Datos generales].Contacto = [MAJ].[Contacto], [1_Datos generales].[Operación en Horas] = [MAJ].[Operación en Horas], [1_Datos generales].[Operación en Días] = [MAJ].[Operación en Días], [1_Datos generales].[Status de la estación] = [MAJ].[Status de la estación];"
Set db = CurrentDb
DoCmd.SetWarnings False
DoCmd.RunSQL (mysql)
mysql = "UPDATE [3_Parametros de Diseño] INNER JOIN MAJ ON [3_Parametros de Diseño].[Número Estación] = MAJ.[1_Datos generales_Número Estación]"
mysql = mysql & " SET [3_Parametros de Diseño].[Tipo de Estación] = [MAJ].[Tipo de Estación], [3_Parametros de Diseño].[By Pass a la Estación] = [MAJ].[By Pass a la Estación], [3_Parametros de Diseño].Línea = [MAJ].[Línea], [3_Parametros de Diseño].[Díametro a la Acometida] = [MAJ].[Díametro a la Acometida], [3_Parametros de Diseño].[Unidades Acomedita] = [MAJ].[Unidades Acomedita], [3_Parametros de Diseño].[Díametro de Entrada ERM] = [MAJ].[Díametro de Entrada ERM], [3_Parametros de Diseño].[ANSI de Entrada] = [MAJ].[ANSI de Entrada],"
mysql = mysql & " [3_Parametros de Diseño].[Díametro de Salida ERM] = [MAJ].[Díametro de Salida ERM], [3_Parametros de Diseño].[ANSI de Salida] = [MAJ].[ANSI de Salida], [3_Parametros de Diseño].[Elem Aislante a la Entrada] = [MAJ].[Elem Aislante a la Entrada], [3_Parametros de Diseño].[Elem Aislante a la Salida] = [MAJ].[Elem Aislante a la Salida], [3_Parametros de Diseño].[Tipo de Conexión] = [MAJ].[Tipo de Conexión], [3_Parametros de Diseño].[Presión de Entrada] = [MAJ].[Presión de Entrada], [3_Parametros de Diseño].[Unidades Presión de Entrada] = [MAJ].[Unidades Presión de Entrada], [3_Parametros de Diseño].[Presión de Salida] = [MAJ].[Presión de Salida], [3_Parametros de Diseño].[Unidades Presión de Salida] = [MAJ].[Unidades Presión de Salida], [3_Parametros de Diseño].[Notas Parámetros de Diseño] = [MAJ].[Notas Parámetros de Diseño];"
Set db = CurrentDb
DoCmd.SetWarnings False
DoCmd.RunSQL (mysql)
mysql = "UPDATE [4_Medición] INNER JOIN MAJ ON [4_Medición].[Número Estación] = MAJ.[1_Datos generales_Número Estación]"
mysql = mysql & " SET [4_Medición].[Marca Medidor] = [MAJ].[Marca Medidor], [4_Medición].[Capacidad Medidor] = [MAJ].[Capacidad Medidor], [4_Medición].[Tipo Medidor] = [MAJ].[Tipo Medidor], [4_Medición].[Serie Medidor] = [MAJ].[Serie Medidor], [4_Medición].[Año de Fabricación Medidor] = [MAJ].[Año de Fabricación Medidor], [4_Medición].[Diámetro Medidor] = [MAJ].[Diámetro Medidor], [4_Medición].[ANSI Medidor] = [MAJ].[ANSI Medidor], [4_Medición].[Tipo de Conexión Medidor] = [MAJ].[Tipo de Conexión Medidor], [4_Medición].[Emisor de Pulsos] = [MAJ].[Emisor de Pulsos], [4_Medición].[By Pass para el Medidor] = [MAJ].[By Pass para el Medidor], [4_Medición].[Q max (m3/hr)] = [MAJ].[Q max (m3/hr)], [4_Medición].[Q min (m3/hr)] = [MAJ].[Q min (m3/hr)], [4_Medición].[P max (bar)] = [MAJ].[P max (bar)], [4_Medición].[Condiciones Medidor] = [MAJ].[Condiciones Medidor];"
Set db = CurrentDb
DoCmd.SetWarnings False
DoCmd.RunSQL (mysql)
mysql = "UPDATE [5_Computador de flujo] INNER JOIN MAJ ON [5_Computador de flujo].[Número Estación] = MAJ.[1_Datos generales_Número Estación]"
mysql = mysql & " SET [5_Computador de flujo].[Marca Computador] = [MAJ].[Marca Computador], [5_Computador de flujo].[Modelo Computador] = [MAJ].[Modelo Computador], [5_Computador de flujo].[Serie Computador] = [MAJ].[Serie Computador], [5_Computador de flujo].[Corrector volumetrico Computador] = [MAJ].[Corrector volumetrico Computador], [5_Computador de flujo].[Cable para pulsos Computador] = [MAJ].[Cable para pulsos Computador], [5_Computador de flujo].[Connexion al termopozo Computador] = [MAJ].[Connexion al termopozo Computador],"
mysql = mysql & " [5_Computador de flujo].[Telemetria Computador] = [MAJ].[Telemetria Computador], [5_Computador de flujo].[Modem Computador] = [MAJ].[Modem Computador], [5_Computador de flujo].[N° serie modem] = [MAJ].[N° serie modem], [5_Computador de flujo].[Panel Solar Computador] = [MAJ].[Panel Solar Computador], [5_Computador de flujo].[Sistema SCADA Computador] = [MAJ].[Sistema SCADA Computador], [5_Computador de flujo].[Transductor Computador] = [MAJ].[Transductor Computador], [5_Computador de flujo].Rango = [MAJ].[Rango], [5_Computador de flujo].[Condiciones Computador] = [MAJ].[Condiciones Computador], [5_Computador de flujo].[Notas Computador] = [MAJ].[Notas Computador];"
Set db = CurrentDb
DoCmd.SetWarnings False
DoCmd.RunSQL (mysql)
mysql = "UPDATE [6_Valvulas] INNER JOIN MAJ ON [6_Valvulas].[Número Estación] = MAJ.[1_Datos generales_Número Estación]"
mysql = mysql & " SET [6_Valvulas].[Marca Válvulas de Entrada] = [MAJ].[Marca Válvulas de Entrada], [6_Valvulas].[Tipo Válvulas de Entrada] = [MAJ].[Tipo Válvulas de Entrada], [6_Valvulas].[ANSI Válvulas de Entrada] = [MAJ].[ANSI Válvulas de Entrada],"
mysql = mysql & " [6_Valvulas].[Diámetro Válvulas de Entrada] = [MAJ].[Diámetro Válvulas de Entrada], [6_Valvulas].[Número de Válvulas de Entrada] = [MAJ].[Número de Válvulas de Entrada], [6_Valvulas].[Condiciones Válvula Entrada] = [MAJ].[Condiciones Válvula Entrada], [6_Valvulas].[Marca Válvulas de Salida] = [MAJ].[Marca Válvulas de Salida], [6_Valvulas].[Tipo Válvulas de Salida] = [MAJ].[Tipo Válvulas de Salida], [6_Valvulas].[ANSI Válvulas de Salida] = [MAJ].[ANSI Válvulas de Salida], [6_Valvulas].[Diámetro Válvulas de Salida] = [MAJ].[Diámetro Válvulas de Salida], [6_Valvulas].[Número de Válvulas de Salida] = [MAJ].[Número de Válvulas de Salida], [6_Valvulas].[Condiciones Válvula Salida] = [MAJ].[Condiciones Válvula Salida], [6_Valvulas].[Marca Válvulas Principal de Salida] = [MAJ].[Marca Válvulas Principal de Salida], [6_Valvulas].[Tipo Válvulas Principal de Salida] = [MAJ].[Tipo Válvulas Principal de Salida],"
mysql = mysql & " [6_Valvulas].[ANSI Válvulas Principal de Salida] = [MAJ].[ANSI Válvulas Principal de Salida], [6_Valvulas].[Diámetro Válvulas Principal de Salida] = [MAJ].[Diámetro Válvulas Principal de Salida], [6_Valvulas].[Número de Válvulas Principal de Salida] = [MAJ].[Número de Válvulas Principal de Salida], [6_Valvulas].[Condiciones Válvula Principal Salida] = [MAJ].[Condiciones Válvula Principal Salida], [6_Valvulas].[Marca Válvulas de Señales] = [MAJ].[Marca Válvulas de Señales], [6_Valvulas].[Tipo Válvulas de Señales] = [MAJ].[Tipo Válvulas de Señales], [6_Valvulas].[ANSI Válvulas de Señales] = [MAJ].[ANSI Válvulas de Señales], [6_Valvulas].[Diámetro Válvulas de Señales] = [MAJ].[Diámetro Válvulas de Señales], [6_Valvulas].[Número de Válvulas de Señales] = [MAJ].[Número de Válvulas de Señales], [6_Valvulas].[Condiciones Válvula Señales] = [MAJ].[Condiciones Válvula Señales], [6_Valvulas].[Marca Válvulas de Manómetros] = [MAJ].[Marca Válvulas de Manómetros],"
mysql = mysql & " [6_Valvulas].[Tipo Válvulas de Manómetros] = [MAJ].[Tipo Válvulas de Manómetros], [6_Valvulas].[ANSI Válvulas de Manómetros] = [MAJ].[ANSI Válvulas de Manómetros], [6_Valvulas].[Diámetro Válvulas de Manómetros] = [MAJ].[Diámetro Válvulas de Manómetros], [6_Valvulas].[Número de Válvulas de Manómetros] = [MAJ].[Número de Válvulas de Manómetros], [6_Valvulas].[Condiciones Válvulas Manómetros] = [MAJ].[Condiciones Válvulas Manómetros], [6_Valvulas].[Marca Válvulas de Purga Antes del Reg] = [MAJ].[Marca Válvulas de Purga Antes del Reg], [6_Valvulas].[Tipo Válvulas de Purga Antes del Reg] = [MAJ].[Tipo Válvulas de Purga Antes del Reg], [6_Valvulas].[ANSI Válvulas de Purga Antes del Reg] = [MAJ].[ANSI Válvulas de Purga Antes del Reg],"
mysql = mysql & " [6_Valvulas].[Diámetro Válvulas de Purga Antes del Reg] = [MAJ].[Diámetro Válvulas de Purga Antes del Reg], [6_Valvulas].[Número de Válvulas de Purga Antes del Reg] = [MAJ].[Número de Válvulas de Purga Antes del Reg], [6_Valvulas].[Condiciones Válvulas Purga Antes del Reg] = [MAJ].[Condiciones Válvulas Purga Antes del Reg], [6_Valvulas].[Marca Válvulas de Purga Desp del Reg] = [MAJ].[Marca Válvulas de Purga Desp del Reg], [6_Valvulas].[Tipo Válvulas de Purga Desp del Reg] = [MAJ].[Tipo Válvulas de Purga Desp del Reg], [6_Valvulas].[ANSI Válvulas de Purga Desp del Reg] = [MAJ].[ANSI Válvulas de Purga Desp del Reg], [6_Valvulas].[Diámetro Válvulas de Purga Desp del Reg] = [MAJ].[Diámetro Válvulas de Purga Desp del Reg], [6_Valvulas].[Número de Válvulas de Purga Desp del Reg] = [MAJ].[Número de Válvulas de Purga Desp del Reg], [6_Valvulas].[Condiciones Válvulas Purga Desp de Reg] = [MAJ].[Condiciones Válvulas Purga Desp de Reg],"
mysql = mysql & " [6_Valvulas].[Diámetro Válvula de Seccionamiento] = [MAJ].[Diámetro Válvula de Seccionamiento], [6_Valvulas].[Material Válvula de Seccionamiento] = [MAJ].[Material Válvula de Seccionamiento], [6_Valvulas].[Condiciones Válvula Seccionamiento] = [MAJ].[Condiciones Válvula Seccionamiento], [6_Valvulas].Ubicación = [MAJ].[Ubicación], [6_Valvulas].Tipo = [MAJ].[Tipo];"
Set db = CurrentDb
DoCmd.SetWarnings False
DoCmd.RunSQL (mysql)
mysql = "UPDATE [7_Tierras fisicas] INNER JOIN MAJ ON [7_Tierras fisicas].[Número Estación] = MAJ.[1_Datos generales_Número Estación]"
mysql = mysql & " SET [7_Tierras fisicas].[Tierra física en las bridas de Ent y Sal] = [MAJ].[Tierra física en las bridas de Ent y Sal], [7_Tierras fisicas].[Tierra física en la parte central] = [MAJ].[Tierra física en la parte central], [7_Tierras fisicas].[Tierra física al corrector] = [MAJ].[Tierra física al corrector], [7_Tierras fisicas].[Condiciones de la Tierra Física] = [MAJ].[Condiciones de la Tierra Física], [7_Tierras fisicas].[Notas Tierras físicas] = [MAJ].[Notas Tierras físicas];"
Set db = CurrentDb
DoCmd.SetWarnings False
DoCmd.RunSQL (mysql)
mysql = "UPDATE [8_Accesorios de la estación] INNER JOIN MAJ ON [8_Accesorios de la estación].[Número Estación] = MAJ.[1_Datos generales_Número Estación]"
mysql = mysql & " SET [8_Accesorios de la estación].Cerradura = [MAJ].[Cerradura],"
mysql = mysql & " [8_Accesorios de la estación].[Condiciones Cerradura] = [MAJ].[Condiciones Cerradura], [8_Accesorios de la estación].[Oreja Porta Candado] =[MAJ].[Oreja Porta Candado], [8_Accesorios de la estación].[Condiciones Oreja Porta Candado] = [MAJ].[Condiciones Oreja Porta Candado], [8_Accesorios de la estación].[Candado Maestreado] = [MAJ].[Candado Maestreado], [8_Accesorios de la estación].[Tipo de Candado] = [MAJ].[Tipo de Candado], [8_Accesorios de la estación].[Rejillas de Venteo] = [MAJ].[Rejillas de Venteo], [8_Accesorios de la estación].[Condiciones Rejillas Venteo] = [MAJ].[Condiciones Rejillas Venteo], [8_Accesorios de la estación].[Energía Eléctrica] = [MAJ].[Energía Eléctrica],"
mysql = mysql & " [8_Accesorios de la estación].[Condiciones Energía Eléctrica] = [MAJ].[Condiciones Energía Eléctrica], [8_Accesorios de la estación].[Instalación elect Clase 1 Divición 2] = [MAJ].[Instalación elect Clase 1 Divición 2], [8_Accesorios de la estación].[Condiciones Clase 1 División 2] = [MAJ].[Condiciones Clase 1 División 2], [8_Accesorios de la estación].[Toma de Agua] = [MAJ].[Toma de Agua], [8_Accesorios de la estación].[Condiciones Toma de Agua] = [MAJ].[Condiciones Toma de Agua], [8_Accesorios de la estación].Extintor = [MAJ].[Extintor], [8_Accesorios de la estación].[Condiciones Extintor] = [MAJ].[Condiciones Extintor], [8_Accesorios de la estación].[Línea telefónica] = [MAJ].[Línea telefónica], [8_Accesorios de la estación].[Condiciones Línea Telefónica] = [MAJ].[Condiciones Línea Telefónica], [8_Accesorios de la estación].[Acceso Directo] = [MAJ].[Acceso Directo],"
mysql = mysql & " [8_Accesorios de la estación].[Condiciones Acceso Directo] = [MAJ].[Condiciones Acceso Directo], [8_Accesorios de la estación].[Puerta Acceso] = [MAJ].[Puerta Acceso], [8_Accesorios de la estación].[Condiciones Puerta Acceso] = [MAJ].[Condiciones Puerta Acceso];"
Set db = CurrentDb
DoCmd.SetWarnings False
DoCmd.RunSQL (mysql)
mysql = "UPDATE [9_Manómetros] INNER JOIN MAJ ON [9_Manómetros].[Número Estación] = MAJ.[1_Datos generales_Número Estación]"
mysql = mysql & " SET [9_Manómetros].[Marca Manómetro de Entrada] = [MAJ].[Marca Manómetro de Entrada], [9_Manómetros].[Tipo Manómetro de Entrada] = [MAJ].[Tipo Manómetro de Entrada], [9_Manómetros].[Seco/Glicerina Manómetro de Entrada] = [MAJ].[Seco/Glicerina Manómetro de Entrada], [9_Manómetros].[Rango Manómetro de Entrada] = [MAJ].[Rango Manómetro de Entrada], [9_Manómetros].[Montaje Manómetro de Entrada] = [MAJ].[Montaje Manómetro de Entrada], [9_Manómetros].[Conexión Manómetro de Entrada] = [MAJ].[Conexión Manómetro de Entrada],"
mysql = mysql & " [9_Manómetros].[Número de Manómetros de Entrada] = [MAJ].[Número de Manómetros de Entrada], [9_Manómetros].[Condiciones del Manómetro de Entrada] = [MAJ].[Condiciones del Manómetro de Entrada], [9_Manómetros].[Unidades Manómetro de Entrada] = [MAJ].[Unidades Manómetro de Entrada], [9_Manómetros].[Marca Manómetro de Control] = [MAJ].[Marca Manómetro de Control], [9_Manómetros].[Tipo Manómetro de Control] = [MAJ].[Tipo Manómetro de Control], [9_Manómetros].[Seco/Glicerina Manómetro de Control] = [MAJ].[Seco/Glicerina Manómetro de Control], [9_Manómetros].[Rango Manómetro de Control] = [MAJ].[Rango Manómetro de Control], [9_Manómetros].[Montaje Manómetro de Control] = [MAJ].[Montaje Manómetro de Control], [9_Manómetros].[Conexión Manómetro de Control] = [MAJ].[Conexión Manómetro de Control], [9_Manómetros].[Número de Manómetros de Control] = [MAJ].[Número de Manómetros de Control],"
mysql = mysql & " [9_Manómetros].[Condiciones del Manómetro de Control] = [MAJ].[Condiciones del Manómetro de Control], [9_Manómetros].[Unidades Manómetro de Control] = [MAJ].[Unidades Manómetro de Control], [9_Manómetros].[Marca Manómetro de Salida] = [MAJ].[Marca Manómetro de Salida], [9_Manómetros].[Tipo Manómetro de Salida] = [MAJ].[Tipo Manómetro de Salida], [9_Manómetros].[Seco/Glicerina Manómetro de Salida] = [MAJ].[Seco/Glicerina Manómetro de Salida], [9_Manómetros].[Rango Manómetro de Salida] = [MAJ].[Rango Manómetro de Salida], [9_Manómetros].[Montaje Manómetro de Salida] = [MAJ].[Montaje Manómetro de Salida], [9_Manómetros].[Conexión Manómetro de Salida] = [MAJ].[Conexión Manómetro de Salida], [9_Manómetros].[Número de Manómetros de Salida] = [MAJ].[Número de Manómetros de Salida], [9_Manómetros].[Condiciones del Manómetro de Salida] = [MAJ].[Condiciones del Manómetro de Salida], [9_Manómetros].[Unidades Manómetro de Salida] = [MAJ].[Unidades Manómetro de Salida];"
Set db = CurrentDb
DoCmd.SetWarnings False
DoCmd.RunSQL (mysql)
mysql = "UPDATE [91_Filtro] INNER JOIN MAJ ON [91_Filtro].[Número Estación] = MAJ.[1_Datos generales_Número Estación]"
mysql = mysql & " SET [91_Filtro].[Marca del Filtro] = [MAJ].[Marca del Filtro], [91_Filtro].[Numero de parte del Filtro] = [MAJ].[Numero de parte del Filtro], [91_Filtro].[Numero de elementos de Filtración] = [MAJ].[Numero de elementos de Filtración], [91_Filtro].[ANSI del Filtro] = [MAJ].[ANSI del Filtro], [91_Filtro].[Tipo del Filtro] = [MAJ].[Tipo del Filtro], [91_Filtro].[Tipo de conexion del Filtro] = [MAJ].[Tipo de conexion del Filtro], [91_Filtro].[Caudal de Diseño Filtro {3(N)/h}] = [MAJ].[Caudal de Diseño Filtro {3(N)/h}], [91_Filtro].[Presión de Diseño del Filtro (bar)] = [MAJ].[Presión de Diseño del Filtro (bar)], [91_Filtro].[Manómetro diferencial de presión] = [MAJ].[Manómetro diferencial de presión], [91_Filtro].[Aguja de Arrastre] = [MAJ].[Aguja de Arrastre], [91_Filtro].[Diámetro del Filtro] = [MAJ].[Diámetro del Filtro], [91_Filtro].[Orientación del Filtro] = [MAJ].[Orientación del Filtro], [91_Filtro].[Condiciones del Filtro] = [MAJ].[Condiciones del Filtro];"
Set db = CurrentDb
DoCmd.SetWarnings False
DoCmd.RunSQL (mysql)
mysql = "UPDATE [92_Acabados y pintura] INNER JOIN MAJ ON [92_Acabados y pintura].[Número Estación] = MAJ.[1_Datos generales_Número Estación]"
mysql = mysql & " SET [92_Acabados y pintura].[Color del Gabinete] = [MAJ].[Color del Gabinete], [92_Acabados y pintura].[Condiciones del Color Gabinete] = [MAJ].[Condiciones del Color Gabinete], [92_Acabados y pintura].[Color de Tubería] = [MAJ].[Color de Tubería], [92_Acabados y pintura].[Condiciones Color de Tubería] = [MAJ].[Condiciones Color de Tubería], [92_Acabados y pintura].[Condiciones Color de Instrumentación] = [MAJ].[Condiciones Color de Instrumentación], [92_Acabados y pintura].[Color de Instrumentación] = [MAJ].[Color de Instrumentación], [92_Acabados y pintura].[Muros y malla ciclonica] = [MAJ].[Muros y malla ciclonica], [92_Acabados y pintura].[Condiciones Muros y Malla] = [MAJ].[Condiciones Muros y Malla], [92_Acabados y pintura].Recinto = [MAJ].[Recinto], [92_Acabados y pintura].[Condiciones Recinto] = [MAJ].[Condiciones Recinto], [92_Acabados y pintura].Gabinete = [MAJ].[Gabinete],"
mysql = mysql & " [92_Acabados y pintura].[Condiciones Gabinete] = [MAJ].[Condiciones Gabinete], [92_Acabados y pintura].Caseta = [MAJ].[Caseta], [92_Acabados y pintura].[Condiciones Caseta] = [MAJ].[Condiciones Caseta], [92_Acabados y pintura].Otro = [MAJ].[Otro], [92_Acabados y pintura].[Condiciones de Otro] = [MAJ].[Condiciones de Otro], [92_Acabados y pintura].[Notas acabados] = [MAJ].[Notas acabados];"
Set db = CurrentDb
DoCmd.SetWarnings False
DoCmd.RunSQL (mysql)
mysql = "UPDATE [93_Otros] INNER JOIN MAJ2 ON [93_Otros].[Número Estación] = MAJ2.[10_Regulación_Número Estación]"
mysql = mysql & " SET [93_Otros].[Espárragos de Acero al carbón B7] = [MAJ2].[Espárragos de Acero al carbón B7], [93_Otros].[Condiciones de Esparragos] = [MAJ2].[Condiciones de Esparragos],"
mysql = mysql & " [93_Otros].[Tuercas de Acero al carbón 2H] = [MAJ2].[Tuercas de Acero al carbón 2H], [93_Otros].[Condiciones de las Tuercas] = [MAJ2].[Condiciones de las Tuercas], [93_Otros].[Tres hilos por encima de las tuercas] = [MAJ2].[Tres hilos por encima de las tuercas], [93_Otros].[Condiciones de las tres hilos] = [MAJ2].[Condiciones de las tres hilos], [93_Otros].[Observaciones generales] = [MAJ2].[Observaciones generales], [93_Otros].[Link of the picture1] = [MAJ2].[93_Otros_Link of the picture1], [93_Otros].[Link of the picture2] = [MAJ2].[93_Otros_Link of the picture2], [93_Otros].[Link of the picture3] = [MAJ2].[Link of the picture3];"
Set db = CurrentDb
DoCmd.SetWarnings False
DoCmd.RunSQL (mysql)
mysql = "UPDATE 11_Mantenimiento INNER JOIN MAJ2 ON [11_Mantenimiento].[Número Estación] = MAJ2.[10_Regulación_Número Estación]"
mysql = mysql & " SET [11_Mantenimiento].[Clase del ERM] = [MAJ2].[Clase del ERM], [11_Mantenimiento].[Clase cambiado manualmente] = [MAJ2].[Clase cambiado manualmente], [11_Mantenimiento].[Numeros Mto Major] = [MAJ2].[Numeros Mto Major], [11_Mantenimiento].[Numeros Mto Menor] = [MAJ2].[Numeros Mto Menor], [11_Mantenimiento].[Numeros inspección y control rápido] = [MAJ2].[Numeros inspección y control rápido], [11_Mantenimiento].[Número de visitas al año] = [MAJ2].[Número de visitas al año], [11_Mantenimiento].PES = [MAJ2].[PES], [11_Mantenimiento].[Último Mto Major 1] = [MAJ2].[Último Mto Major 1], [11_Mantenimiento].[Último Mto Major 2] = [MAJ2].[Último Mto Major 2], [11_Mantenimiento].[Último Mto Major 3] = [MAJ2].[Último Mto Major 3], [11_Mantenimiento].[Último Mto Menor 1] = [MAJ2].[Último Mto Menor 1], [11_Mantenimiento].[Último Mto Menor 2] = [MAJ2].[Último Mto Menor 2],"
mysql = mysql & " [11_Mantenimiento].[Último Mto Menor 3] = [MAJ2].[Último Mto Menor 3], [11_Mantenimiento].[Próximo Mto Major 1] = [MAJ2].[Próximo Mto Major 1], [11_Mantenimiento].[Fecha Mto Major cambiado] = [MAJ2].[Fecha Mto Major cambiado], [11_Mantenimiento].[Fecha Mto Menor cambiado] = [MAJ2].[Fecha Mto Menor cambiado],"
mysql = mysql & " [11_Mantenimiento].[Próximo Mto Menor 1] = [MAJ2].[Próximo Mto Menor 1], [11_Mantenimiento].[Fecha ultima de calibración de medidor] = [MAJ2].[Fecha ultima de calibración de medidor], [11_Mantenimiento].[Fecha proxima de calibración de medidor] = [MAJ2].[Fecha proxima de calibración de medidor], [11_Mantenimiento].[Informe Mto Major 1] = [MAJ2].[Informe Mto Major 1], [11_Mantenimiento].[Informe Mto Major 2] = [MAJ2].[Informe Mto Major 2], [11_Mantenimiento].[Informe Mto Major 3] = [MAJ2].[Informe Mto Major 3], [11_Mantenimiento].[Informe Mto Menor 1] = [MAJ2].[Informe Mto Menor 1], [11_Mantenimiento].[Informe Mto Menor 2] = [MAJ2].[Informe Mto Menor 2], [11_Mantenimiento].[Informe Mto Menor 3] = [MAJ2].[Informe Mto Menor 3],"
mysql = mysql & " [11_Mantenimiento].Orden_trabajo_Major = [MAJ2].[Orden_trabajo_Major], [11_Mantenimiento].Orden_trabajo_Menor = [MAJ2].[Orden_trabajo_Menor];"
Set db = CurrentDb
DoCmd.SetWarnings False
DoCmd.RunSQL (mysql)
mysql = "UPDATE 10_Regulación INNER JOIN MAJ2 ON [10_Regulación].[Número Estación] = MAJ2.[10_Regulación_Número Estación]"
mysql = mysql & " SET [10_Regulación].[Tipo de Regulación]=[MAJ2].[Tipo de Regulación], [10_Regulación].[Tipo de Conexión Regulador]=[MAJ2].[Tipo de Conexión Regulador], [10_Regulación].[ANSI de Reguladores]=[MAJ2].[ANSI de Reguladores], [10_Regulación].[N° de lineas de Regulación]=[MAJ2].[N° de lineas de Regulación], [10_Regulación].[Filosofía de operación]=[MAJ2].[Filosofía de operación],"
mysql = mysql & " [10_Regulación].[P ent Regulador 1]=[MAJ2].[P ent Regulador 1], [10_Regulación].[P sal Regulador 1]=[MAJ2].[P sal Regulador 1], [10_Regulación].[Marca Regulador 1]=[MAJ2].[Marca Regulador 1], [10_Regulación].[Modelo Regulador 1]=[MAJ2].[Modelo Regulador 1], [10_Regulación].[Serie Regulador 1]=[MAJ2].[Serie Regulador 1], [10_Regulación].[Diámetro Regulador 1]=[MAJ2].[Diámetro Regulador 1], [10_Regulación].[P ent max Regulador 1]=[MAJ2].[P ent max Regulador 1], [10_Regulación].[Conditiones R1]=[MAJ2].[Conditiones R1], [10_Regulación].[P ent Regulador 2]=[MAJ2].[P ent Regulador 2], [10_Regulación].[P sal Regulador 2]=[MAJ2].[P sal Regulador 2], [10_Regulación].[Marca Regulador 2]=[MAJ2].[Marca Regulador 2], [10_Regulación].[Modelo Regulador 2]=[MAJ2].[Modelo Regulador 2], [10_Regulación].[Serie Regulador 2]=[MAJ2].[Serie Regulador 2], [10_Regulación].[Diámetro Regulador 2]=[MAJ2].[Diámetro Regulador 2],"
mysql = mysql & " [10_Regulación].[P ent max Regulador 2]=[MAJ2].[P ent max Regulador 2], [10_Regulación].[Conditiones R2]=[MAJ2].[Conditiones R2], [10_Regulación].[P ent Regulador 3]=[MAJ2].[P ent Regulador 3], [10_Regulación].[P sal Regulador 3]=[MAJ2].[P sal Regulador 3], [10_Regulación].[Marca Regulador 3]=[MAJ2].[Marca Regulador 3], [10_Regulación].[Modelo Regulador 3]=[MAJ2].[Modelo Regulador 3], [10_Regulación].[Serie Regulador 3]=[MAJ2].[Serie Regulador 3], [10_Regulación].[Diámetro Regulador 3]=[MAJ2].[Diámetro Regulador 3], [10_Regulación].[P ent max Regulador 3]=[MAJ2].[P ent max Regulador 3], [10_Regulación].[Conditiones R3]=[MAJ2].[Conditiones R3], [10_Regulación].[P ent Regulador 4]=[MAJ2].[P ent Regulador 4],"
mysql = mysql & " [10_Regulación].[P sal Regulador 4]=[MAJ2].[P sal Regulador 4], [10_Regulación].[Marca Regulador 4]=[MAJ2].[Marca Regulador 4], [10_Regulación].[Modelo Regulador 4]=[MAJ2].[Modelo Regulador 4], [10_Regulación].[Serie Regulador 4]=[MAJ2].[Serie Regulador 4], [10_Regulación].[Diámetro Regulador 4]=[MAJ2].[Diámetro Regulador 4], [10_Regulación].[Conditiones R4]=[MAJ2].[Conditiones R4], [10_Regulación].[Marca Piloto 1]=[MAJ2].[Marca Piloto 1], [10_Regulación].[Modelo Piloto 1]=[MAJ2].[Modelo Piloto 1], [10_Regulación].[Serie Piloto 1]=[MAJ2].[Serie Piloto 1], [10_Regulación].[WA 1]=[MAJ2].[WA 1], [10_Regulación].[Conditiones P1]=[MAJ2].[Conditiones P1], [10_Regulación].[Marca Piloto 2]=[MAJ2].[Marca Piloto 2], [10_Regulación].[Modelo Piloto 2]=[MAJ2].[Modelo Piloto 2], [10_Regulación].[Serie Piloto 2]=[MAJ2].[Serie Piloto 2], [10_Regulación].[WA 2]=[MAJ2].[WA 2], [10_Regulación].[Conditiones P2]=[MAJ2].[Conditiones P2],"
mysql = mysql & " [10_Regulación].[Marca Piloto 3]=[MAJ2].[Marca Piloto 3], [10_Regulación].[Modelo Piloto 3]=[MAJ2].[Modelo Piloto 3], [10_Regulación].[Serie Piloto 3]=[MAJ2].[Serie Piloto 3], [10_Regulación].[WA 3]=[MAJ2].[WA 3], [10_Regulación].[Conditiones P3]=[MAJ2].[Conditiones P3], [10_Regulación].[Marca Piloto 4]=[MAJ2].[Marca Piloto 4], [10_Regulación].[Modelo Piloto 4]=[MAJ2].[Modelo Piloto 4], [10_Regulación].[Serie Piloto 4]=[MAJ2].[Serie Piloto 4], [10_Regulación].[WA 4]=[MAJ2].[WA 4], [10_Regulación].[Conditiones P4]=[MAJ2].[Conditiones P4], [10_Regulación].[Dispositivo de Seguridad]=[MAJ2].[Dispositivo de Seguridad],"
mysql = mysql & " [10_Regulación].[Modelo del Dispositivo de Seguridad]=[MAJ2].[Modelo del Dispositivo de Seguridad], [10_Regulación].[Serie Dispositivo de Seguridad 1]=[MAJ2].[Serie Dispositivo de Seguridad 1], [10_Regulación].[Clase Dispositivo de Seguridad 1]=[MAJ2].[Clase Dispositivo de Seguridad 1], [10_Regulación].[Diámetro Dispositivo de Seguridad 1]=[MAJ2].[Diámetro Dispositivo de Seguridad 1], [10_Regulación].[Serie Dispositivo de Seguridad 2]=[MAJ2].[Serie Dispositivo de Seguridad 2], [10_Regulación].[Clase Dispositivo de Seguridad 2]=[MAJ2].[Clase Dispositivo de Seguridad 2],"
mysql = mysql & " [10_Regulación].[Diámetro Dispositivo de Seguridad 2]=[MAJ2].[Diámetro Dispositivo de Seguridad 2], [10_Regulación].[Serie Dispositivo de Seguridad 3]=[MAJ2].[Serie Dispositivo de Seguridad 3], [10_Regulación].[Clase Dispositivo de Seguridad 3]=[MAJ2].[Clase Dispositivo de Seguridad 3], [10_Regulación].[Diámetro Dispositivo de Seguridad 3]=[MAJ2].[Diámetro Dispositivo de Seguridad 3], [10_Regulación].[Serie Dispositivo de Seguridad 4]=[MAJ2].[Serie Dispositivo de Seguridad 4], [10_Regulación].[Clase Dispositivo de Seguridad 4]=[MAJ2].[Clase Dispositivo de Seguridad 4], [10_Regulación].[Diámetro Dispositivo de Seguridad 4]=[MAJ2].[Diámetro Dispositivo de Seguridad 4], [10_Regulación].[Condiciones de los Disp de Seg]=[MAJ2].[Condiciones de los Disp de Seg], [10_Regulación].[Señales de Control]=[MAJ2].[Señales de Control], [10_Regulación].[Condiciones de Señales]=[MAJ2].[Condiciones de Señales];"
Set db = CurrentDb
DoCmd.SetWarnings False
DoCmd.RunSQL (mysql)
MsgBox "Terminado !", vbInformation
En dehors du fait que tu décrives et remplisses une variable db dont tu ne te sers pas, j'entrevois le problème et, peut-être, une solution.
Comment fais-tu pour répartir les champs des deux tables MAJ et MAJ2 dans les différentes tables ? Y-a-t-il une règle qui soit automatisable ? En fonction de ta réponse, ça sera plus ou moins facile voire pas possible (je n'ai rien testé, mais je pense à quelque chose qui peut marcher).
Comment fais-tu pour répartir les champs des deux tables MAJ et MAJ2 dans les différentes tables ? Y-a-t-il une règle qui soit automatisable ? En fonction de ta réponse, ça sera plus ou moins facile voire pas possible (je n'ai rien testé, mais je pense à quelque chose qui peut marcher).
Je vais tenter de répondre.
En fait mes tables MAJ et MAJ2 sont une extraction directe de ma BDD donc les champs portent exactement les mêmes noms que les champs présents dans mes tables à mettre à jour.
Je réalise ensuite mon update qui ne changera donc jamais ormis le fait que je voudrais inclure dans ma clause WHERE des critères de type OR ISNOTNULL mais comme tu le vois je devrais en inclure plus qu'ACCESS n'est supposé en accepter.
Ma mise à jour se réalise sur ma clé primaire présente dans chaque table
En fait mes tables MAJ et MAJ2 sont une extraction directe de ma BDD donc les champs portent exactement les mêmes noms que les champs présents dans mes tables à mettre à jour.
Je réalise ensuite mon update qui ne changera donc jamais ormis le fait que je voudrais inclure dans ma clause WHERE des critères de type OR ISNOTNULL mais comme tu le vois je devrais en inclure plus qu'ACCESS n'est supposé en accepter.
Ma mise à jour se réalise sur ma clé primaire présente dans chaque table
car je connais quel champ appartient à quelle table.
C'est la réponse partielle à la question...
N'y aurait-il pas dans une feuille excel ou ailleurs quelque chose d'autre qui soit en mesure de faire le lien de manière automatique, c'est-à-dire, lorsque qu'un champ de la table MAJ ou MAJ2 se présente, on est capable de dire quelle est sa table d'appartenance ?
C'est la réponse partielle à la question...
N'y aurait-il pas dans une feuille excel ou ailleurs quelque chose d'autre qui soit en mesure de faire le lien de manière automatique, c'est-à-dire, lorsque qu'un champ de la table MAJ ou MAJ2 se présente, on est capable de dire quelle est sa table d'appartenance ?