, ? Access , VBA 3065 |
Sub () Dim s s = "SELECT first(), first(), first(), first(), first(), first() FROM " & _ "(SELECT , , , , , " & _ "FROM " & _ "Union " & _ "SELECT Classif.1, Classif.2, Classif.3, Classif.4, Classif.5, Classif.6 " & _ "FROM Classif) WHERE NOT IS NULL " & _ "Group by ;" CurrentDb.Execute s MsgBox (" ") End Sub