1 2 3 4 5 6 7 8 9 10 11
| ResChoixPause = MsgBox("Tenit compte des pauses", vbYesNo)
If ResChoixPause = 7 Then
StrCallHeure2 = ("Call Heure2(enregistrement![Date], enregistrement![H_Depart], enregistrement![H_Arrivee], enregistrement![No_Chauffeur], enregistrement![No_Tournee], enregistrement![Pause], [TPauseCent], enregistrement![Lavage], [lavageT], [T], [TJ], [TN], [T10Suppl], [tdeparr])")
Else
StrCallHeure2 = "Call Heure2(enregistrement![Date], enregistrement![H_Depart], enregistrement![H_Arrivee], enregistrement![No_Chauffeur], enregistrement![No_Tournee], 0, [TPauseCent], enregistrement![Lavage], [lavageT], [T], [TJ], [TN], [T10Suppl], [tdeparr])"
End If |
Partager