1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74
| Private Sub RefreshQuery()
Dim SQLWhere As String
SQL = "SELECT MAPINFO_ID, ID, Journée, Jour, Mois, Année,Date, Heure, Unité, N_PV, Secteur, commune, Type_voirie, N_voirie, Adresse, intersection, Hors_agglomération, Hors_intersection, Véhicule, PV, PR, Distance, Tué, Blessé, BH, Age_victime, circonstances FROM accident_base INNER JOIN Circonstance ON accident_base.Id = Circonstance.Id_circonstance Where accident_base!MAPINFO_ID <> 0"
If Not Me.chkjournee Then
SQL = SQL & "And accident_base!journée = '" & Me.cmbRechjournee & "' "
End If
If Not Me.chkmois Then
SQL = SQL & "And accident_base!mois = '" & Me.cmbRechmois & "' "
End If
If Not Me.chkannée Then
SQL = SQL & "And accident_base!année = '" & Me.cmbRechannée & "' "
End If
If Not Me.chksecteur Then
SQL = SQL & "And accident_base!Secteur = '" & Me.cmbRechsecteur & "' "
End If
If Not Me.chkcommune Then
SQL = SQL & "And accident_base!Commune = '" & Me.cmbRechcommune & "' "
End If
If Not Me.chktvoie Then
SQL = SQL & "And accident_base!Type_voirie = '" & Me.cmbRechtvoie & "' "
End If
If Not Me.chknvoie Then
SQL = SQL & "And accident_base!N_voirie = '" & Me.cmbRechnvoie & "' "
End If
If Not Me.chkagglo Then
SQL = SQL & "And accident_base!Hors_agglomération = '" & Me.cmbRechagglo & "' "
End If
If Not Me.chkinter Then
SQL = SQL & "And accident_base!Hors_intersection = '" & Me.cmbRechinter & "' "
End If
If Not Me.chkpv Then
SQL = SQL & "And accident_base!PV = '" & Me.cmbRechpv & "' "
End If
If Not Me.chkvehicule Then
SQL = SQL & "And accident_base!Véhicule like '*" & Me.txtRechvehicule & "*' "
End If
If Not Me.chkadresse Then
SQL = SQL & "And accident_base!Adresse like '*" & Me.txtRechadresse & "*' "
End If
If Not Me.chkperiode Then
SQL = SQL & "And accident_base!Date BETWEEN " & Format(Me.txtRechDdebut, "mm/dd/yyyy") & "#" & "AND" & Format(Me.txtRechDfin, "mm/dd/yyyy") & "#"
End If
SQLWhere = Trim(Right(SQL, Len(SQL) - InStr(SQL, "Where ") - Len("Where ") + 1))
SQL = SQL & ";"
debug.print SQL
Me.lblStatsAcc.Caption = DCount("*", "accident_base", SQLWhere)
Me.lblStatsAccm.Caption = DCount("*", "accident_base", SQLWhere & " and [tué]<>0")
Me.lblStatsTue.Caption = "" & DSum("[Tué]", "accident_base", SQLWhere)
Me.lblStatsBl.Caption = "" & DSum("[Blessé]", "accident_base", SQLWhere)
Me.lblStatsBh.Caption = "" & DSum("[BH]", "accident_base", SQLWhere)
Me.lstResults.RowSource = SQL
Me.lstResults.Requery
End Sub |
Partager