Prøv at se følgende VBA-kode, som er indlagt i Word (ThisDocument):
'Referencen Microsoft DAO x.x skal sættes Tools|References Sub ProgramStart() Dim db As Object Set db = GetObject("d:\eksperten\dsum\dsum.mdb")
With db total = .DSum("[total]", "tabel1") End With End Sub
- - - I eksemplet arbejdes der med en lille database, med tabellen: Tabel1, der indeholder to felter: NR og TOTAL DAO er dataadgangsobjekt - d.v.s. du kan anvende en database - som her fra Word - uden at åbne denne.
har ikke behov for at have en åben database.. det er kun i den sidste del: Samlet_ispris = Dsum("Samlet_Pris", "Ismaskine_statistik") Label29.Caption = Samlet_ispris hvor jeg anvender Dsum funktionen at det er nødvendigt
ups.. så lige forkert... lol.. tjekker det lige af .. glem mit ovenstående 8)
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.