1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
|
With etatp
'Set rs = New ADODB.Recordset
rs.Open "Select * from Programme Order By coup_prg ASC;", devec_base
If Not rs.EOF Then
rs.MoveFirst
F2 = "{programme.coup_prg} In ['" & DTPicker3.Value & "','" & DTPicker4.Value & "']"
F2 = F2 & "or {programme.pré_prg} In ['" & DTPicker3.Value & "','" & DTPicker4.Value & "']"
F2 = F2 & " or {programme.mont_prg} In ['" & DTPicker3.Value & "','" & DTPicker4.Value & "']"
F2 = F2 & "or {programme.emba_prg} In ['" & DTPicker3.Value & "','" & DTPicker4.Value & "']"
F2 = F2 & "or {programme.livr_prg} In ['" & DTPicker3.Value & "','" & DTPicker4.Value & "'] "
F2 = F2 & "or {programme.mar_prg} In ['" & DTPicker3.Value & "','" & DTPicker4.Value & "']"
F2 = F2 & "or {programme.piquint_prg} In ['" & DTPicker3.Value & "','" & DTPicker4.Value & "']"
F2 = F2 & "or {programme.piquext_prg} In ['" & DTPicker3.Value & "','" & DTPicker4.Value & "']"
End If
rs.MoveNext
.ReplaceSelectionFormula F2
rs.Close
Set rs = Nothing
End With |
Partager