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
|
Public Sub ExeNbFois ()
Dim db AS DAO.DATABASE, tblA AS DAO.Recordset
Dim xDate AS Date, NewDate AS Date, NbTour AS Long, Mt AS Currency, x AS Long
SET db=CurrentDb
SET tblA=db.OpenRecordset("SELECT * FROM TABLEA WHERE REFA=2;", dbOpenDynaset)
WITH tblA
IF .RecordCount<>0 Then
.MoveFirst
Do While NOT .EOF
Mt=.FIELDS(1)
xDate=.FIELDS(2)
NbTour=.FIELDS(3)
FOR x=0 TO NbTour-1
NewDate=DateAdd("m",x,xDate)
DoCmd.RunSQL "INSERT INTO TABLEB ( MONTANTB, DATEB, REFC ) VALUES ( " & Mt & ", #" & Format(NewDate, "mm/dd/yyyy") & "#, " & Forms!FRM_TABLEC!REFC & " );"
Next
.MoveNext
Doevents
Loop
End IF
.Close
End WITH
SET tblA=Nothing
SET db=Nothing
End Sub |
Partager