Bonjour, je souhaite faire un order by dans un update ce qui est interdit apparemment mais je ne vois pas comment contourner ce order by . Voici mon code :
Actuellement je récupère des données sur une carte auquel je scan, or il me manque une information auquel je fais un update pour aller chercher dans une autre table (str_EmplacementFournisseur, et les deux Bool)
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17 ' Ajout de la carte scannée dans la table Tbl_Scan dataCarte = Split(TxtScan, ";") SQL = "INSERT INTO Tbl_Scan (Str_Ref, Dbl_Quantite, Str_EmplacementClient, Int_Num_Carte) VALUES ('" & dataCarte(0) & "','" & dataCarte(1) & "','" SQL = SQL & dataCarte(2) & "'," & dataCarte(3) & ");" Call ExecuterSql(SQL) ' Calcul du nombre de cartes scannées SQL = "SELECT Count(Tbl_Scan.Str_Ref) AS TotalCarteScan" & _ " FROM Tbl_Scan;" Set rstSQL = CurrentDb.OpenRecordset(SQL, dbOpenDynaset) ' Insertion de cartes scannées Form_FrmScan.Txt_totalCarteScan = rstSQL!TotalCarteScan ' Mise a jour des champs manquants dans Tbl_Scan SQL = "UPDATE Tbl_Scan INNER JOIN Tbl_Donnees ON Tbl_Scan.Str_Ref=Tbl_Donnees.Str_Ref SET Tbl_Scan.Str_EmplacementFournisseur = Tbl_Donnees.Str_EmplacementFournisseur, Tbl_Scan.Bool_Manufacture = Tbl_Donnees.Bool_Manufacture, Tbl_Scan.Bool_TypeTransfert = Tbl_Donnees.Bool_TransfertType;" Call ExecuterSql(SQL)
Je souhaite lorsqu'il y aura la mise à jour des champs manquant, mettre dans l'ordre croissant de Tbl_Scan.Str_EmplacementFournisseur afin que je puisse sortir un formulaire d'état afin qu'il y ait un ordre d'emplacement pour la préparation des produits.
A vous lire
Partager