1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
| Private Sub Requete_Prix_T()
'On Error GoTo Err
Dim oDb As DAO.Database
Dim strCodeSql As String
'Instancie l'objet database
Set oDb = CurrentDb
'Stocke le code SQL dans une variable
strCodeSql = "SELECT SUM([Requête_Prix]![Prix_T]) FROM [Requête_Prix]"
'Crée la requête
oDb.CreateQueryDef "Requete_Prix_T", strCodeSql
oDb.Close
Set oDb = Nothing
Err:
'Gére les erreurs
Select Case Err.Number
Case 3012: MsgBox "La requête existe déjà"
Case Else: MsgBox "Une erreur inconue est survenue"
End Select
End Sub |