1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
| Private Sub xxxxxxx()
Dim SQL As String
SQL = "INSERT INTO T_DiagnosticMaintenance ( idBatiment, idCategorie, Notation, DureeDeVie, Age, Poids )"
SQL = SQL & " SELECT " & Me.idBatiment & ", Categorie.idCategorie, 0,0,0,0 FROM Categorie"
' retirer les messages d'avertissements
DoCmd.SetWarnings False
' executer la requête
DoCmd.RunSQL (SQL)
' remettre les messages d'avertisssements
DoCmd.SetWarnings True
' réactualiser le sous-formulaire (nom: SFDiagnosticMaintenance)
SFDiagnosticMaintenance.Requery
End Sub |
Partager