1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258
|
Private Sub Form_Load()
Commande29.Visible = False
Commande30.Visible = False
End Sub
Private Sub MDP_AfterUpdate()
If Me.MDP = "*****" Then
Me.Commande29.Visible = True
Me.Commande30.Visible = True
Me.Commande29.SetFocus
Else
Me.Commande29.Visible = False
Me.Commande30.Visible = False
End If
End Sub
Private Sub Commande29_Click()
DoCmd.Hourglass True
DoCmd.SetWarnings False
Dim SQL3 As String
SQL3 = "INSERT INTO [MOTDECLA1]"
SQL3 = SQL3 & " SELECT MOTDECLA.[Motif déclassé]"
SQL3 = SQL3 & " FROM MOTDECLA LEFT JOIN MOTDECLA1 ON MOTDECLA.[Motif déclassé] = MOTDECLA1.[Motif déclassé]"
SQL3 = SQL3 & " WHERE (((MOTDECLA1.[Motif déclassé]) Is Null));"
DoCmd.RunSQL SQL3
Dim SQL4 As String
SQL4 = "INSERT INTO [ORGACERT1]"
SQL4 = SQL4 & " SELECT ORGACERT.[Code OC], ORGACERT.[Libellé OC], ORGACERT.[Adresse OC], ORGACERT.[Code Postal OC], ORGACERT.[Ville OC], ORGACERT.[N° tel OC], ORGACERT.[N° fax OC], ORGACERT.[Mail OC]"
SQL4 = SQL4 & " FROM ORGACERT LEFT JOIN ORGACERT1 ON ORGACERT.[Code OC] = ORGACERT1.[Code OC]"
SQL4 = SQL4 & " WHERE (((ORGACERT1.[Code OC]) Is Null));"
DoCmd.RunSQL SQL4
Dim SQL5 As String
SQL5 = "INSERT INTO [TYPCLASS1]"
SQL5 = SQL5 & " SELECT TYPCLASS.[Code Classement], TYPCLASS.[Libellé Classement]"
SQL5 = SQL5 & " FROM TYPCLASS LEFT JOIN TYPCLASS1 ON TYPCLASS.[Code Classement] = TYPCLASS1.[Code Classement]"
SQL5 = SQL5 & " WHERE (((TYPCLASS1.[Code Classement]) Is Null));"
DoCmd.RunSQL SQL5
Dim SQL6 As String
SQL6 = "INSERT INTO [MARQUES1]"
SQL6 = SQL6 & " SELECT MARQUES.[Code Marque], MARQUES.[Libellé Marque]"
SQL6 = SQL6 & " FROM MARQUES LEFT JOIN MARQUES1 ON MARQUES.[Code Marque] = MARQUES1.[Code Marque]"
SQL6 = SQL6 & " WHERE (((MARQUES1.[Code Marque]) Is Null));"
DoCmd.RunSQL SQL6
Dim SQL7 As String
SQL7 = "INSERT INTO [PRESENTA1]"
SQL7 = SQL7 & " SELECT PRESENTA.[Code Présentation], PRESENTA.[Libellé Présentation]"
SQL7 = SQL7 & " FROM PRESENTA LEFT JOIN PRESENTA1 ON PRESENTA.[Code Présentation] = PRESENTA1.[Code Présentation]"
SQL7 = SQL7 & " WHERE (((PRESENTA1.[Code Présentation]) Is Null));"
DoCmd.RunSQL SQL7
Dim SQL8 As String
SQL8 = "INSERT INTO [TYPESITE1]"
SQL8 = SQL8 & " SELECT TYPESITE.[Code Type Site], TYPESITE.[Libellé Type Site]"
SQL8 = SQL8 & " FROM TYPESITE LEFT JOIN TYPESITE1 ON TYPESITE.[Code Type Site] = TYPESITE1.[Code Type Site]"
SQL8 = SQL8 & " WHERE (((TYPESITE1.[Code Type Site]) Is Null));"
DoCmd.RunSQL SQL8
Dim SQL9 As String
SQL9 = "INSERT INTO [TRANSPOR1]"
SQL9 = SQL9 & " SELECT TRANSPOR.[Code Transporteur], TRANSPOR.[Nom Transporteur], TRANSPOR.[Adresse Transporteur], TRANSPOR.[Code Postal Transporteur], TRANSPOR.[Ville Transporteur], TRANSPOR.[N° tel Transporteur], TRANSPOR.[N° fax Transporteur], TRANSPOR.[Mail Transporteur], TRANSPOR.[Date Contrat], TRANSPOR.[Coût H Chauffeur jour], TRANSPOR.[Coût H Chauffeur nuit], TRANSPOR.[Coût Fixe Structure], TRANSPOR.[Forfait dep ab], TRANSPOR.[Forfait arr élev], TRANSPOR.[Forfait dep élev], TRANSPOR.[Forfait arr ab ac lav], TRANSPOR.[Forfait arr ab ss lav], TRANSPOR.[Tps charg décharg pesée cont], TRANSPOR.[Tarif en cours], TRANSPOR.[Pénalité Bascule]"
SQL9 = SQL9 & " FROM TRANSPOR LEFT JOIN TRANSPOR1 ON TRANSPOR.[Code Transporteur] = TRANSPOR1.[Code Transporteur]"
SQL9 = SQL9 & " WHERE (((TRANSPOR1.[Code Transporteur]) Is Null));"
DoCmd.RunSQL SQL9
Dim SQL10 As String
SQL10 = "INSERT INTO [CHAUFEUR1]"
SQL10 = SQL10 & " SELECT CHAUFEUR.[Code Chauffeur], CHAUFEUR.[Nom Chauffeur], CHAUFEUR.[Adresse Chauffeur], CHAUFEUR.[Code Postal Chauffeur], CHAUFEUR.[Ville Chauffeur], CHAUFEUR.[N° tel Chauffeur], CHAUFEUR.[N° fax Chauffeur], CHAUFEUR.[Mail Chauffeur]"
SQL10 = SQL10 & " FROM CHAUFEUR LEFT JOIN CHAUFEUR1 ON CHAUFEUR.[Code Chauffeur] = CHAUFEUR1.[Code Chauffeur]"
SQL10 = SQL10 & " WHERE (((CHAUFEUR1.[Code Chauffeur]) Is Null));"
DoCmd.RunSQL SQL10
Dim SQL12 As String
SQL12 = "INSERT INTO [FALIMVOL1]"
SQL12 = SQL12 & " SELECT FALIMVOL.[Code Fournisseur AlimVol], FALIMVOL.[Nom Fournisseur AlimVol], FALIMVOL.[Adresse Fournisseur AlimVol], FALIMVOL.[Code Postal Fournisseur AlimVol], FALIMVOL.[Ville Fournisseur AlimVol], FALIMVOL.[N° tel Fournisseur AlimVol], FALIMVOL.[N° fax Fournisseur AlimVol], FALIMVOL.[Mail Fournisseur AlimVol]"
SQL12 = SQL12 & " FROM FALIMVOL LEFT JOIN FALIMVOL1 ON FALIMVOL.[Code Fournisseur AlimVol] = FALIMVOL1.[Code Fournisseur AlimVol]"
SQL12 = SQL12 & " WHERE (((FALIMVOL1.[Code Fournisseur AlimVol]) Is Null));"
DoCmd.RunSQL SQL12
Dim SQL13 As String
SQL13 = "INSERT INTO [COUVOIRS1]"
SQL13 = SQL13 & " SELECT COUVOIRS.[Code Couvoir], COUVOIRS.[Libellé Couvoir], COUVOIRS.[Adresse Couvoir], COUVOIRS.[Code Postal Couvoir], COUVOIRS.[Ville Couvoir], COUVOIRS.[N° tel Couvoir], COUVOIRS.[N° fax Couvoir], COUVOIRS.[Mail Couvoir]"
SQL13 = SQL13 & " FROM COUVOIRS LEFT JOIN COUVOIRS1 ON COUVOIRS.[Code Couvoir] = COUVOIRS1.[Code Couvoir]"
SQL13 = SQL13 & " WHERE (((COUVOIRS1.[Code Couvoir]) Is Null));"
DoCmd.RunSQL SQL13
Dim SQL14 As String
SQL14 = "INSERT INTO [TYPEPROD1]"
SQL14 = SQL14 & " SELECT TYPEPROD.[Code type prod], TYPEPROD.[Type produit]"
SQL14 = SQL14 & " FROM TYPEPROD LEFT JOIN TYPEPROD1 ON TYPEPROD.[Code type prod] = TYPEPROD1.[Code type prod]"
SQL14 = SQL14 & " WHERE (((TYPEPROD1.[Code type prod]) Is Null));"
DoCmd.RunSQL SQL14
Dim SQL15 As String
SQL15 = "INSERT INTO [CONDITIO1]"
SQL15 = SQL15 & " SELECT CONDITIO.[Code Conditionnement], CONDITIO.[Libellé Conditionnement], CONDITIO.[Poids Conditionnement], CONDITIO.[Coût Unitaire], CONDITIO.[Nbre conditionnemnt par Unité]"
SQL15 = SQL15 & " FROM CONDITIO LEFT JOIN CONDITIO1 ON CONDITIO.[Code Conditionnement] = CONDITIO1.[Code Conditionnement]"
SQL15 = SQL15 & " WHERE (((CONDITIO1.[Code Conditionnement]) Is Null));"
DoCmd.RunSQL SQL15
Dim SQL17 As String
SQL17 = "INSERT INTO [OPERATOR1]"
SQL17 = SQL17 & " SELECT OPERATOR.[Code Opérateur], OPERATOR.[Nom Opérateur]"
SQL17 = SQL17 & " FROM OPERATOR LEFT JOIN OPERATOR1 ON OPERATOR.[Code Opérateur] = OPERATOR1.[Code Opérateur]"
SQL17 = SQL17 & " WHERE (((OPERATOR1.[Code Opérateur]) Is Null));"
DoCmd.RunSQL SQL17
Dim SQL18 As String
SQL18 = "INSERT INTO [TYPRECLA1]"
SQL18 = SQL18 & " SELECT TYPRECLA.[Code Type Réclamation], TYPRECLA.[Libellé Type Réclamation]"
SQL18 = SQL18 & " FROM TYPRECLA LEFT JOIN TYPRECLA1 ON TYPRECLA.[Code Type Réclamation] = TYPRECLA1.[Code Type Réclamation]"
SQL18 = SQL18 & " WHERE (((TYPRECLA1.[Code Type Réclamation]) Is Null));"
DoCmd.RunSQL SQL18
Dim SQL19 As String
SQL19 = "INSERT INTO [PLANNIFS1]"
SQL19 = SQL19 & " SELECT PLANNIFS.[Code Plannificateur], PLANNIFS.[Nom Plannificateur], PLANNIFS.[N° Fax Plannificateur], PLANNIFS.[Actif]"
SQL19 = SQL19 & " FROM PLANNIFS LEFT JOIN PLANNIFS1 ON PLANNIFS.[Code Plannificateur] = PLANNIFS1.[Code Plannificateur]"
SQL19 = SQL19 & " WHERE (((PLANNIFS1.[Code Plannificateur]) Is Null));"
DoCmd.RunSQL SQL19
Dim SQL20 As String
SQL20 = "INSERT INTO [TYPEDLC1]"
SQL20 = SQL20 & " SELECT TYPEDLC.[Code DLC], TYPEDLC.[Nbre Jours DLC]"
SQL20 = SQL20 & " FROM TYPEDLC LEFT JOIN TYPEDLC1 ON TYPEDLC.[Code DLC] = TYPEDLC1.[Code DLC]"
SQL20 = SQL20 & " WHERE (((TYPEDLC1.[Code DLC]) Is Null));"
DoCmd.RunSQL SQL20
Dim SQL36 As String
SQL36 = "INSERT INTO [TYPTRANS1]"
SQL36 = SQL36 & " SELECT TYPTRANS.[Code Type Transfert], TYPTRANS.[Type Transfert], TYPTRANS.Labelisable"
SQL36 = SQL36 & " FROM TYPTRANS LEFT JOIN TYPTRANS1 ON TYPTRANS.[Code Type Transfert] = TYPTRANS1.[Code Type Transfert]"
SQL36 = SQL36 & " WHERE (((TYPTRANS1.[Code Type Transfert]) Is Null));"
DoCmd.RunSQL SQL36
Dim SQL11 As String
SQL11 = "INSERT INTO [GROUPEMT1]"
SQL11 = SQL11 & " SELECT GROUPEMT.[Code Groupement], GROUPEMT.[Nom Groupement], GROUPEMT.[Adresse Groupement], GROUPEMT.[Code Postal Groupement], GROUPEMT.[Ville Groupement], GROUPEMT.[N° tel Groupement], GROUPEMT.[N° fax Groupement], GROUPEMT.[Mail Groupement], GROUPEMT.Contrat"
SQL11 = SQL11 & " FROM GROUPEMT LEFT JOIN GROUPEMT1 ON GROUPEMT.[Code Groupement] = GROUPEMT1.[Code Groupement]"
SQL11 = SQL11 & " WHERE (((GROUPEMT1.[Code Groupement]) Is Null));"
DoCmd.RunSQL SQL11
Dim SQL21 As String
SQL21 = "INSERT INTO [LABELS1]"
SQL21 = SQL21 & " SELECT LABELS.[Code Label], LABELS.[Code OC], LABELS.[N° Label]"
SQL21 = SQL21 & " FROM LABELS LEFT JOIN LABELS1 ON LABELS.[Code Label] = LABELS1.[Code Label]"
SQL21 = SQL21 & " WHERE (((LABELS1.[Code Label]) Is Null));"
DoCmd.RunSQL SQL21
Dim SQL22 As String
SQL22 = "INSERT INTO [SITE1]"
SQL22 = SQL22 & " SELECT SITE.[Code Site], SITE.[Type Site], SITE.[Nom Site], SITE.[Adresse Site], SITE.[Code Postal Site], SITE.[Ville Site], SITE.[N° tel Site], SITE.[N° fax Site], SITE.[Mail Site], SITE.[N° Agrément Site]"
SQL22 = SQL22 & " FROM SITE LEFT JOIN SITE1 ON SITE.[Code Site] = SITE1.[Code Site]"
SQL22 = SQL22 & " WHERE (((SITE1.[Code Site]) Is Null));"
DoCmd.RunSQL SQL22
Dim SQL23 As String
SQL23 = "INSERT INTO [CAMIONS1]"
SQL23 = SQL23 & " SELECT CAMIONS.[Code Camion], CAMIONS.[Code Transporteur], CAMIONS.[Modèle Camion], CAMIONS.[Immatriculation Camion], CAMIONS.[Nbre Containers mini Camion], CAMIONS.[Nbre Containers maxi Camion], CAMIONS.[Nbre Palettes mini Camion], CAMIONS.[Nbre Palettes maxi Camion], CAMIONS.[Coût base 24H], CAMIONS.[Coût KM]"
SQL23 = SQL23 & " FROM CAMIONS LEFT JOIN CAMIONS1 ON CAMIONS.[Code Camion] = CAMIONS1.[Code Camion]"
SQL23 = SQL23 & " WHERE (((CAMIONS1.[Code Camion]) Is Null));"
DoCmd.RunSQL SQL23
Dim SQL24 As String
SQL24 = "INSERT INTO [ELEVEUR1]"
SQL24 = SQL24 & " SELECT ELEVEUR.[Code Eleveur], ELEVEUR.[Nom Eleveur], ELEVEUR.[Eleveur base AVILOG], ELEVEUR.[Adresse Eleveur], ELEVEUR.[Code Postal Eleveur], ELEVEUR.[Ville Eleveur], ELEVEUR.[N° tel Eleveur], ELEVEUR.[N° tel Eleveur 2], ELEVEUR.[N° tel Eleveur 3], ELEVEUR.[N° fax Eleveur]"
SQL24 = SQL24 & " FROM ELEVEUR LEFT JOIN ELEVEUR1 ON ELEVEUR.[Code Eleveur] = ELEVEUR1.[Code Eleveur]"
SQL24 = SQL24 & " WHERE (((ELEVEUR1.[Code Eleveur]) Is Null));"
DoCmd.RunSQL SQL24
Dim SQL25 As String
SQL25 = "INSERT INTO [ESPECES1]"
SQL25 = SQL25 & " SELECT ESPECES.[Code Espèce], ESPECES.[Code Label], ESPECES.[Libellé Espèce], ESPECES.[Age mini Espèce], ESPECES.[Age maxi Espèce], ESPECES.[Poids mini Espèce], ESPECES.[Poids maxi Espèce], ESPECES.[Réf Tx Déclassement Espèce], ESPECES.[Réf Tx Saisie Espèce], ESPECES.[Réf Rdt Mort Vif Espèce], ESPECES.GMQ, ESPECES.[Code Group Abat], ESPECES.Label"
SQL25 = SQL25 & " FROM ESPECES LEFT JOIN ESPECES1 ON ESPECES.[Code Espèce] = ESPECES1.[Code Espèce]"
SQL25 = SQL25 & " WHERE (((ESPECES1.[Code Espèce]) Is Null));"
DoCmd.RunSQL SQL25
Dim SQL26 As String
SQL26 = "INSERT INTO [ETIQUETT1]"
SQL26 = SQL26 & " SELECT ETIQUETT.[N° Etiquette], ETIQUETT.[Libellé Etiquette], ETIQUETT.[Code Etiquette], ETIQUETT.[Code Label], ETIQUETT.[Code Présentation], ETIQUETT.[Code Marque], ETIQUETT.[Nbre Etiquettes], ETIQUETT.Stock"
SQL26 = SQL26 & " FROM ETIQUETT LEFT JOIN ETIQUETT1 ON ETIQUETT.[N° Etiquette] = ETIQUETT1.[N° Etiquette]"
SQL26 = SQL26 & " WHERE (((ETIQUETT1.[N° Etiquette]) Is Null));"
DoCmd.RunSQL SQL26
Dim SQL28 As String
SQL28 = "INSERT INTO [STOCROUL1]"
SQL28 = SQL28 & " SELECT STOCROUL.[Code achat], STOCROUL.[N° Etiquette], STOCROUL.[1er N°], STOCROUL.[Der N°], STOCROUL.[Date achat], STOCROUL.Valide"
SQL28 = SQL28 & " FROM STOCROUL LEFT JOIN STOCROUL1 ON STOCROUL.[Code achat] = STOCROUL1.[Code achat]"
SQL28 = SQL28 & " WHERE (((STOCROUL1.[Code achat]) Is Null));"
DoCmd.RunSQL SQL28
Dim SQL29 As String
SQL29 = "INSERT INTO [ENLEVEMT1]"
SQL29 = SQL29 & " SELECT ENLEVEMT.[Code Enlèvement], ENLEVEMT.[Date Enlèvement], ENLEVEMT.[Code Camion], ENLEVEMT.[N° Tournée], ENLEVEMT.[Code Chauffeur], ENLEVEMT.Eleveur, ENLEVEMT.Espèce, ENLEVEMT.Groupement, ENLEVEMT.[Nbre pers ramassage], ENLEVEMT.[Poids brut Camion], ENLEVEMT.[Tare Camion], ENLEVEMT.[Poids net Camion], ENLEVEMT.[Quantité ramassée], ENLEVEMT.[Quantité prévue], ENLEVEMT.[Temps route], ENLEVEMT.[Temps bascule], ENLEVEMT.[Pesée élev], ENLEVEMT.[Temps préparation], ENLEVEMT.[Temps chargement], ENLEVEMT.[Distance parcourue], ENLEVEMT.[Nbre conteneurs], ENLEVEMT.[Charg cont], ENLEVEMT.[Décharg cont], ENLEVEMT.[Forfait dép ab], ENLEVEMT.[Forfait arr ab ss lav], ENLEVEMT.[Forfait arr ab ac lav], ENLEVEMT.[Nbre conteneurs rechargés], ENLEVEMT.[Heure dép ab élev1], ENLEVEMT.[Heure arr élev1], ENLEVEMT.[Heure déb charg], ENLEVEMT.[Heure fin charg], ENLEVEMT.[Heure dép élev1], ENLEVEMT.[Heure arr ab élev2]"
SQL29 = SQL29 & " FROM ENLEVEMT LEFT JOIN ENLEVEMT1 ON ENLEVEMT.[Code Enlèvement] = ENLEVEMT1.[Code Enlèvement]"
SQL29 = SQL29 & " WHERE (((ENLEVEMT1.[Code Enlèvement]) Is Null));"
DoCmd.RunSQL SQL29
Dim SQL30 As String
SQL30 = "INSERT INTO [PRODUITS1]"
SQL30 = SQL30 & " SELECT PRODUITS.[Code Produit], PRODUITS.[Code type prod], PRODUITS.[Code Agrostar], PRODUITS.[Libellé Produit], PRODUITS.[N° Etiquette], PRODUITS.[Nbre Vol par Produit], PRODUITS.Congélation, PRODUITS.[Poids mini Produit], PRODUITS.[Poids maxi Produit], PRODUITS.[Code Conditionnement], PRODUITS.[Colisage Produit], PRODUITS.[Nbre Colis par Palette], PRODUITS.PRI, PRODUITS.PRC, PRODUITS.Entiers, PRODUITS.Ailes, PRODUITS.RDTAiles, PRODUITS.Supremes, PRODUITS.RDTSupremes, PRODUITS.Pilons, PRODUITS.RDTPilons, PRODUITS.HDC, PRODUITS.RDTHDC, PRODUITS.Cuisses, PRODUITS.RDTCuisses, PRODUITS.Filets, PRODUITS.RDTFilets, PRODUITS.Aiguillettes, PRODUITS.RDTAiguillettes"
SQL30 = SQL30 & " FROM PRODUITS LEFT JOIN PRODUITS1 ON PRODUITS.[Code Produit] = PRODUITS1.[Code Produit]"
SQL30 = SQL30 & " WHERE (((PRODUITS1.[Code Produit]) Is Null));"
DoCmd.RunSQL SQL30
Dim SQL1 As String
SQL1 = "INSERT INTO [CADENCE CHARGEMENT1]"
SQL1 = SQL1 & " SELECT [CADENCE CHARGEMENT].[Code Cadence], [CADENCE CHARGEMENT].ESPECE, [CADENCE CHARGEMENT].[Code Espèce], [CADENCE CHARGEMENT].CADENCE, [CADENCE CHARGEMENT].[VOL MINI], [CADENCE CHARGEMENT].[VOL MAXI], [CADENCE CHARGEMENT].[PENALITE PAR H]"
SQL1 = SQL1 & " FROM [CADENCE CHARGEMENT] LEFT JOIN [CADENCE CHARGEMENT1] ON [CADENCE CHARGEMENT].[Code Cadence] = [CADENCE CHARGEMENT1].[Code Cadence]"
SQL1 = SQL1 & " WHERE ((([CADENCE CHARGEMENT1].[Code Cadence]) Is Null));"
DoCmd.RunSQL SQL1
Dim SQL27 As String
SQL27 = "INSERT INTO [CALIBRES1]"
SQL27 = SQL27 & " SELECT CALIBRES.[Code Calibre], CALIBRES.[Code Espèce], CALIBRES.[Code Présentation], CALIBRES.[Code Classement], CALIBRES.[Libellé Calibre], CALIBRES.[Nbre par Caisse]"
SQL27 = SQL27 & " FROM CALIBRES LEFT JOIN CALIBRES1 ON CALIBRES.[Code Calibre] = CALIBRES1.[Code Calibre]"
SQL27 = SQL27 & " WHERE (((CALIBRES1.[Code Calibre]) Is Null));"
DoCmd.RunSQL SQL27
Dim SQL37 As String
SQL37 = "INSERT INTO [LOT1]"
SQL37 = SQL37 & " SELECT LOT.[Code lot], LOT.[Code Espèce], LOT.[N° lot], LOT.[Code Groupement], LOT.[Code Couvoir], LOT.[Code Fournisseur AlimVol], LOT.[Code Eleveur], LOT.[Date Abattage], LOT.[Code DLC], LOT.[Ordre Abattage], LOT.[Nbre prévu], LOT.[PAC prévu], LOT.[Découpe prévu], LOT.[Poids annoncé], LOT.[Nbre enlevé], LOT.[Poids enlevé], LOT.[Nbre abattu], LOT.[Poids départ élev], LOT.[Poids abattoir], LOT.[Poids facturé], LOT.[Nbre Mise à jeun], LOT.[Nbre Etouffés], LOT.[Poids Etouffés], LOT.[Nbre Calibreuse], LOT.[Poids Calibreuse], LOT.[N° BEP], LOT.[N° BANDE], LOT.Sexe, LOT.Age, LOT.Foies, LOT.Coeurs, LOT.Gésiers, LOT.Freinte, LOT.[Poids moyen vif], LOT.[Poids moyen mort], LOT.[RDT Mort Vif], LOT.[Nbre classés BA], LOT.[% classés BA], LOT.[Nbre classés BE], LOT.[% classés BE], LOT.[Nbre classés AB], LOT.[% classés AB], LOT.[Nbre classés petit], LOT.[% classés petit], LOT.[% total déclassés élev], LOT.[Motif 1], LOT.[% Motif 1], LOT.[Motif 2], LOT.[% Motif 2], LOT.[Motif 3], LOT.[% Motif 3]"
SQL37 = SQL37 & ", LOT.[Motif 4], LOT.[% Motif 4], LOT.[Nbre saisies élev], LOT.[Poids saisies élev], LOT.[Nbre saisies abat], LOT.[Poids saisies abat vif], LOT.[Poids saisies abat mort], LOT.[Poids saisies part vif], LOT.[Poids saisies part mort], LOT.[Motif saisie 1], LOT.[Motif saisie 2], LOT.Paille, LOT.Jaune, LOT.Blanc, LOT.[Nbre Jabots], LOT.[Poids par jabot], LOT.Farines, LOT.Céréales, LOT.Pénalité, LOT.[Poids à déduire en kg], LOT.[Mise à jeun], LOT.Observations, LOT.[Eleveur prévenu], LOT.[Fiche Ante Mortem], LOT.[Heure déb abat], LOT.[Poids tracé dec], LOT.[Poids tracé entier], LOT.[RDT Découpe], LOT.[Remarques qualité], LOT.[Class froid]"
SQL37 = SQL37 & " FROM LOT LEFT JOIN LOT1 ON LOT.[Code lot] = LOT1.[Code lot]"
SQL37 = SQL37 & " WHERE (((LOT.[Date Abattage])<=Date()) AND ((LOT1.[Code lot]) Is Null));"
DoCmd.RunSQL SQL37
Dim SQL31 As String
SQL31 = "INSERT INTO [RECLAMAT1]"
SQL31 = SQL31 & " SELECT RECLAMAT.[Code Réclamation], RECLAMAT.[Date Réclamation], RECLAMAT.[Nom Opérateur], RECLAMAT.Mois, RECLAMAT.[Type Réclamation], RECLAMAT.[Nom Plannificateur], RECLAMAT.[Libellé Espèce], RECLAMAT.[Nom Eleveur], RECLAMAT.[Nom Groupement], RECLAMAT.[Nom Demandeur], RECLAMAT.Produit, RECLAMAT.[Code Lot], RECLAMAT.[Date Livraison], RECLAMAT.[Non Conformités], RECLAMAT.[Impact Financier], RECLAMAT.Formalisation, RECLAMAT.Reclam, RECLAMAT.[Réponse Fournisseur], RECLAMAT.Montant"
SQL31 = SQL31 & " FROM RECLAMAT LEFT JOIN RECLAMAT1 ON RECLAMAT.[Code Réclamation] = RECLAMAT1.[Code Réclamation]"
SQL31 = SQL31 & " WHERE (((RECLAMAT1.[Code Réclamation]) Is Null));"
DoCmd.RunSQL SQL31
Dim SQL32 As String
SQL32 = "INSERT INTO [PESEEVIF1]"
SQL32 = SQL32 & " SELECT PESEEVIF.[N° Pesée], PESEEVIF.[Code lot], PESEEVIF.[Code Enlèvement], PESEEVIF.[Nbre Containers], PESEEVIF.[Age Volailles], PESEEVIF.[Poids enlevé], PESEEVIF.[Nbre prévu Enlèvement], PESEEVIF.[Nbre enlevé], PESEEVIF.[Poids annoncé], PESEEVIF.[Poids autorisé]"
SQL32 = SQL32 & " FROM PESEEVIF LEFT JOIN PESEEVIF1 ON PESEEVIF.[N° Pesée] = PESEEVIF1.[N° Pesée]"
SQL32 = SQL32 & " WHERE (((PESEEVIF1.[N° Pesée]) Is Null));"
DoCmd.RunSQL SQL32
Dim SQL33 As String
SQL33 = "INSERT INTO [TRANSFER1]"
SQL33 = SQL33 & " SELECT TRANSFER.[Code Transfert], TRANSFER.[Code Lot], TRANSFER.[Code Type Transfert], TRANSFER.[Date Production], TRANSFER.[Poids Cuisses], TRANSFER.[Poids Filets], TRANSFER.[Rdt Cuisses], TRANSFER.[Rdt Filets], TRANSFER.[Nbre Entiers], TRANSFER.[Poids Entiers]"
SQL33 = SQL33 & " FROM TRANSFER LEFT JOIN TRANSFER1 ON TRANSFER.[Code Transfert] = TRANSFER1.[Code Transfert]"
SQL33 = SQL33 & " WHERE (((TRANSFER1.[Code Transfert]) Is Null));"
DoCmd.RunSQL SQL33
Dim SQL34 As String
SQL34 = "INSERT INTO [MOTIFCLA1]"
SQL34 = SQL34 & " SELECT MOTIFCLA.[Code Lot], MOTIFCLA.[Motif 1], MOTIFCLA.[% motf 1], MOTIFCLA.[Motif 2], MOTIFCLA.[% motf 2], MOTIFCLA.[Motif 3], MOTIFCLA.[% motf 3], MOTIFCLA.[Motif 4], MOTIFCLA.[% motf 4], MOTIFCLA.[Motif saisies 1], MOTIFCLA.[Motif saisies 2]"
SQL34 = SQL34 & " FROM MOTIFCLA LEFT JOIN MOTIFCLA1 ON MOTIFCLA.[Code Lot] = MOTIFCLA1.[Code Lot]"
SQL34 = SQL34 & " WHERE (((MOTIFCLA1.[Code Lot]) Is Null));"
DoCmd.RunSQL SQL34
Dim SQL38 As String
SQL38 = "INSERT INTO [ROLLER1]"
SQL38 = SQL38 & " SELECT ROLLER.[N° Roller], ROLLER.[Code lot], ROLLER.[N° lot], ROLLER.[Code Calibre], ROLLER.[Heure entrée ressuage], ROLLER.[Heure sortie ressuage], ROLLER.[Nbre Clayettes], ROLLER.[Nbre Vol Roller], ROLLER.[Poids froid Roller], ROLLER.[Poids chaud Roller], ROLLER.[Température sortie ressuage], ROLLER.[Poids Clayette], ROLLER.[Poids Rollbac], ROLLER.[Date Production], ROLLER.[Heure Production], ROLLER.[Température mise en prod], ROLLER.[Etat stock], ROLLER.Affectation, ROLLER.[Poste Appro], ROLLER.[Poids Brut]"
SQL38 = SQL38 & " FROM ROLLER LEFT JOIN ROLLER1 ON ROLLER.[N° Roller] = ROLLER1.[N° Roller]"
SQL38 = SQL38 & " WHERE (((ROLLER1.[N° Roller]) Is Null));"
DoCmd.RunSQL SQL38
Dim SQL39 As String
SQL39 = "UPDATE ROLLER1 INNER JOIN ROLLER ON ROLLER1.[N° Roller] = ROLLER.[N° Roller]"
SQL39 = SQL39 & " SET ROLLER1.[Heure sortie ressuage] = [ROLLER].[Heure sortie ressuage], ROLLER1.[Température sortie ressuage] = [ROLLER].[Température sortie ressuage], ROLLER1.[Date Production] = [ROLLER].[Date Production], ROLLER1.[Heure Production] = [ROLLER].[Heure Production], ROLLER1.[Etat stock] = [ROLLER].[Etat stock], ROLLER1.Affectation = [ROLLER].[Affectation], ROLLER1.[Poste Appro] = [ROLLER].[Poste Appro]"
SQL39 = SQL39 & " WHERE (((ROLLER1.[Date Production])<Date()) AND ((ROLLER1.[Etat stock])<>0));"
DoCmd.RunSQL SQL39
Dim SQL40 As String
SQL40 = "INSERT INTO [ROULEAUX1]"
SQL40 = SQL40 & " SELECT ROULEAUX.[N° Rouleau], ROULEAUX.[Code Achat], ROULEAUX.[1er N°], ROULEAUX.[Der N°], ROULEAUX.Terminé, ROULEAUX.[Nbre Etiqu Detruites], ROULEAUX.[Der N° utilisé], ROULEAUX.[Etat stock], ROULEAUX.Affectation, ROULEAUX.[Code Site], ROULEAUX.[Date Cession]"
SQL40 = SQL40 & " FROM ROULEAUX LEFT JOIN ROULEAUX1 ON ROULEAUX.[N° Rouleau] = ROULEAUX1.[N° Rouleau]"
SQL40 = SQL40 & " WHERE (((ROULEAUX1.[N° Rouleau]) Is Null));"
DoCmd.RunSQL SQL40
Dim SQL41 As String
SQL41 = "UPDATE ROULEAUX INNER JOIN ROULEAUX1 ON ROULEAUX.[N° Rouleau] = ROULEAUX1.[N° Rouleau]"
SQL41 = SQL41 & " SET ROULEAUX1.Terminé = [ROULEAUX].[Terminé], ROULEAUX1.[Etat stock] = [ROULEAUX].[Etat stock], ROULEAUX1.[Code Site] = [ROULEAUX].[Code Site], ROULEAUX1.[Date Cession] = [ROULEAUX].[Date Cession]"
SQL41 = SQL41 & " WHERE (((ROULEAUX.[Date Cession]) Is Not Null));"
DoCmd.RunSQL SQL41
Dim SQL35 As String
SQL35 = "INSERT INTO [PRODUCTI1]"
SQL35 = SQL35 & " SELECT PRODUCTI.[Code Production], PRODUCTI.[Code Produit], PRODUCTI.[Date Production], PRODUCTI.[Code Lot], PRODUCTI.[N° Rouleau], PRODUCTI.[1er Num], PRODUCTI.[Der Num], PRODUCTI.[Nbre étiq détruites], PRODUCTI.[Nbre Produit], PRODUCTI.[Poids Produit], PRODUCTI.[Nbre Opérateurs], PRODUCTI.[Heure Début], PRODUCTI.[Heure Fin], PRODUCTI.Attribution"
SQL35 = SQL35 & " FROM PRODUCTI LEFT JOIN PRODUCTI1 ON PRODUCTI.[Code Production] = PRODUCTI1.[Code Production]"
SQL35 = SQL35 & " WHERE (((PRODUCTI1.[Code Production]) Is Null));"
DoCmd.RunSQL SQL35
DoCmd.Hourglass False
End Sub |
Partager