1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
| Private Sub Commande18_Click()
DoCmd.RunMacro "vider recherche"
Dim value As Integer
value = UCase(Me.Texte42)
Sql = "INSERT INTO recherche(NSerie, NArticle, Indice_modif, Categorie, Famille, Designation_produit, Date_de_production, Operateur, Observation)" & _
"SELECT [NSerie], [NArticle], [Indice_modif], [Categorie], [Famille], [Designation_produit], [Date_de_production], [Operateur], [Observation]" & _
"FROM [Produits]" & _
"WHERE Produits.NSerie = '" & value & "';"
CurrentDb.Execute Sql
DoCmd.RunMacro "Recherche par numéro de série"
End Sub |
Partager