berekeningen voor bepaalde records

• 

  Sabrina

  15-11-2004 13:26

  Dim rstDepartementWorkload As ADODB.Recordset

  Set rstDepartementWorkload = New ADODB.Recordset

  rstDepartementWorkload.Open “DepartementWorkload”, CurrentProject.Connection, adOpenStatic, adLockOptimistic

  For each … in rstDepartementWorkload

  berekeningen

  update record

  Next

  of

  rstDepartementWorkload.MoveFirst

  Do while not rstDepartementWorkload.EOF

  berekeningen

  update record

  rstDepartementWorkload.MoveNext

  next

  rstDepartementWorkload.Close

  Set rstDepartementWorkload = Nothing

  Tabel DepartementWorkload bevat een subitemnr.

  Ik wil telkens voor een bepaald subitemnr berekeningen uitvoeren.

  do while of for each gebruiken?

  Hoe moet ik het subitemnr aanspreken?

  Is rstDepartementWorkload.subitemnr mogelijk?
• 

  GG

  15-11-2004 13:39

  With rstDepartmentWordload

  Do until .eof

  berekeningen .(“subitemnr”) of .!subitemnr

  Update

  .movenext

  .close

  End with

  set rstDepartmentload = nothing
• 

  GG

  15-11-2004 18:55

  With rstDepartmentWordload

  Do until .eof

  berekeningen .(“subitemnr”) of .!subitemnr

  Update

  .movenext

  Loop

  .close

  End with

  set rstDepartmentload = nothing