Sum in VBA

• 

  Jan.

  25-11-2004 10:12

  Hoi,

  ik ben eigenlijk pas net een beetje met VBA begonnen in loop nu al tegen een waarschijnlijk simpel probleempje aan.

  Wat is het commande voor =sum() via/in vba.

  Ik heb namelijk een raport met een verd wat bedrag heet, nu kan ik natuurlijk onderaan in een nieuw veld zetten =sum(), maar als ik dat in vba wil doen, wat is dan het commando?

  Alvast bedankt,

  Jan

  Access 2003

  Engelse versie
• 

  Eric B

  25-11-2004 14:27

  We kunnen wel een totaal onderaan een rapport zetten door een onverbonden veld te zetten met =sum()

  Als je het totaal in vba wilt weten moet je een query maken die verwijst naar de ID

  van je tabel (orderID of zoiets)
• 

  Jan.

  25-11-2004 16:06

  Is er dan geen enkele formule die dat doet?

  Ik wil namelijk ook graag het volgende

  Bijv.

  veld: landcode

  veld: bedrag

  veld: vat

  veld: incl

  VBA

  _______________________________________________________

  Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)

  '***calcutation taxes for the country***

  'VAT

  if landcode = “DE” Then vat = bedrag / 100 * 16

  if landcode = “NL” Then vat = bedrag / 100 * 19

  'INCL

  if landcode = “DE” Then incl = bedrag / 100 * 116

  if landcode = “NL” Then incl = bedrag / 100 * 119

  End sub

  _______________________________________________________

  Private Sub ReportFooter_Format(Cancel As Integer, FormatCount As Integer)

  TotalBedag= sum bedrag #1

  Totalvat = sum vat #1

  Totalincl= sum incl #1

  End sub

  #1 = Hier weet ik dus niet wat er moet komen te staan om dit uit te rekenen, als ik het in de form doe =sum() dan pakt hij dit niet.

  Thanks,

  Jan.
• 

  Eric B

  25-11-2004 16:59

  Je moet even kijken of de voorwaarde formatcount niet dwars zit,anders

  moet je deze voorwaarde even weghalen

  dim tvat as currency

  dim tincl as currency

  dim tbedrag as currency

  Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)

  dim vget as integer

  if formatcount = 1 then

  select case landcode

  case “NL”

  vget=19

  case “DE”

  vget=16

  end select

  tbedrag=tbedrag + bedrag

  tvat = tvat + (bedrag / 100 * vget)

  tincl = tincl + (bedrag / 100 * (100+vget))

  end if

  End sub

  Private Sub ReportFooter_Format(Cancel As Integer, FormatCount As Integer)

  if formatcount = 1 then

  TotalBedag= tbedrag

  Totalvat = tvat

  Totalincl= tincl

  end if

  End sub
• 

  Jan.

  26-11-2004 16:58

  Ok, bedankt Eric B.