Avatar billede lyhr007 Nybegynder
19. august 2002 - 14:04 Der er 3 kommentarer og
1 løsning

Tabel resultatsæt, som skal overføres til et tekstfelt.

Hej

Her er et lille problem, som sikkert kan klares i en håndevending for en Access ekspert.
Jeg har et tekstfelt (memo) hvorfra alt indholdet hentes over i et faktureringssystem. Tekstfeltet udfyldes idag manuelt af brugeren og det skal det blive ved med. Ved siden af tekstfeltet vil jeg gerne oprette en knap, som kan overføre tidsforbrug til tekstfeltet - det skal blot kobles på i bunden af den indtastede tekst i tekstfeltet. Det skal bare stå som ganske almindelig tekst og der skal ikke tages højde for, at der kan ske ændringer i tidspunkter eller andet (så må brugeren slette teksten og overføre igen).

Eksempel på færdige resultat

---------
Dette er en fakturereringstekst som er indtastet
manuelt...Nedenfor vises dato og tidspunkter som
danner grundlag for faktureringen...

19-08-2002  08:15  12:15
18-08-2002  09:30  10:45
15-08-2002  12:30  15:00
--------

Tidsforbruget er gemt i en seperat tabel med dato, starttidspunkt og sluttidspunkt. Så det er noget med at hente det ønskede resultatsæt frem, overføre det til en tekststreng og så koble tekststrengen på den eksisterende tekst. Jeg er ikke så stiv i VB, men kan sagtens tilpasse koden, blot jeg har et nogenlunde udgangspunkt. Mange tak for hjælpen.
Avatar billede sjap Praktikant
19. august 2002 - 15:24 #1
Prøv at lægge følgende kode ind under knappens VedKlik hændelse:


Dim db As Database
Dim rstTidsforbrug As DAO.Recordset
Dim strTid As String
   
    Set db = CurrentDb()
    Set rstTidsforbrug = db.OpenRecordset("tblTidsforbrug", dbOpenDynaset)
   
    strCriteria = "[FakturaID]=" & Me.FakturaID
    strTid = vbCrLf
    rstTidsforbrug.FindFirst strCriteria
   
    Do Until rstTidsforbrug.NoMatch
        strTid = strTid & vbCrLf
        strTid = strTid & rstTidsforbrug!Dato & "  " & Format(rstTidsforbrug!Starttid, "hh:nn") & "  " & Format(rstTidsforbrug!Sluttid, "hh:nn")
        rstTidsforbrug.FindNext strCriteria
    Loop
    Me.Bemærkninger = Me.Bemærkninger & strTid

    rstTidsforbrug.Close
    Set dbs = Nothing


Jeg har forudsat at FakturaID findes i begge tabeller - der kræves et eller andet til at identificere hvilke tider, der skal medtages på fakturaen.
Avatar billede sjap Praktikant
19. august 2002 - 15:25 #2
Nåh ja, det var jo et forsøg på at svare :-)
Avatar billede lyhr007 Nybegynder
19. august 2002 - 17:36 #3
Tak for det, jeg har problemer med at få den til at acceptere den første og anden linie:

Dim db As Database
Dim rstTidsforbrug As DAO.Recordset

- er der noget globalt der skal erklæres ?

Den kommer med fejlen:

  Compile error:
  User-defined type not defined
Avatar billede sjap Praktikant
19. august 2002 - 18:09 #4
Du skal have en reference til Microsoft DAO 3.6 Object Library (det kan være et andet nummer end 3.6).
Avatar billede Ny bruger Nybegynder

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.

Loading billede Opret Preview
Kategori
Dyk ned i databasernes verden på et af vores praksisnære Access-kurser

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester