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
| Sub CalculBalance411Solid_Thread()
Dim mabd As Database, MonRec As Recordset, StrSQL As String, Balance As Currency, LaDate, Crit As String, WithBall As String, rep
Set mabd = CurrentDb()
StrSQL = "SELECT CCCpt, CCDeb, CCCre, CCBalSolid, CCDat FROM CPTE_CAISSE_Cli ORDER BY CCDat;"
Set MonRec = mabd.OpenRecordset(StrSQL)
DoCmd.Echo True, "Mise à jour de la balance compte clients, veuillez patienter..."
DoCmd.OpenForm "PgBar"
Forms!PgBar!PTxt = "Mise à jour de la balance globale..."
DoEvents
Do While MonRec.EOF = False
MonRec.Edit
Forms!PgBar!PgBar = MonRec.PercentPosition
Forms!PgBar!Pct = MonRec.PercentPosition / 100
Forms!PgBar.Repaint
DoEvents
LaDate = MonRec!CCDat
Balance = Nz(DSum("CCCre", "CPTE_CAISSE_Cli", "CCDat<=#" & Format(LaDate, "mm/dd/yyyy hh:nn:ss") & "#"), 0) - Nz(DSum("CCDeb", "CPTE_CAISSE_Cli", "CCDat<=#" & Format(LaDate, "mm/dd/yyyy hh:nn:ss") & "#"), 0)
MonRec!CCBalSolid = Balance
MonRec.Update
'DoEvents
MonRec.MoveNext
Loop
MonRec.Close
DoCmd.Close acForm, "PgBar"
DoCmd.Echo True, ""
End Sub |
Partager