Oprettet man. d. 19. august 2002 kl. 14:04:27

lyhr007
lyhr007 (24.230 point. Point ude: 600)

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.

Skrevet man. d. 19. august 2002 kl. 15:24:55| #1

sjap
sjap (62.466 point)
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.

Skrevet man. d. 19. august 2002 kl. 15:25:31| #2

sjap
sjap (62.466 point)
Nåh ja, det var jo et forsøg på at svare :-)

Skrevet man. d. 19. august 2002 kl. 17:36:43| #3

lyhr007
lyhr007 (24.230 point)
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

Skrevet man. d. 19. august 2002 kl. 18:09:32| #4

sjap
sjap (62.466 point)
Du skal have en reference til Microsoft DAO 3.6 Object Library (det kan være et andet nummer end 3.6).

Skriv et indlæg




Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] [img]link til billede[/img]
Web- og emailadresser omdannes automatisk til links

Log ind

   

   

Seneste spørgsmål

bnb

Oprettet den 26. maj 2012 kl. 14.33
mikkelfraringsted giver 200 point for svar | Giv et svar »

Opdatering af data fra 1 tabel til 1 anden

Oprettet den 25. maj 2012 kl. 21.05
mllarsen giver 30 point for svar | Giv et svar »

relink tables

Oprettet den 25. maj 2012 kl. 11.14
larsgrau giver 150 point for svar | Giv et svar »



   




Tips & Tricks fra PC World

Teaser billede

Læserne: Her er vores værste it-indkøb

Det er ikke al it-udstyr, som er det rene guld. Her er nogle af læsernes skrækhistorier.


Anmeldelser fra PC World

Teaser billede

Test: Mobil med Ferrari-design - og en Trabant-motor

Motorola har begået endnu en smartphone med lækkert design og potentiale til at være blandt de bedste. Men den når ikke i mål. Se her hvorfor.


Seneste blogindlæg

Teaser billede

Tvangslukke spørgsmål: Hvad er den bedste løsning?

Hej Vi har mange åbne spørgsmål på Eksperten. Vi ville gerne tvangslukke dem - så et spørgsmål efter f.eks. 6 måneder lukkes. Men der er et par uklarheder som ville være gode at få lidt input til:...


Nyheder fra PC World

Teaser billede

Sådan siger du farvel til Facebook

Læs her, hvordan du dropper Facebook og i stedet anvender nogle brugervenlige alternativer, så du stadig kan være social på nettet.


Nyheder fra Computerworld

Teaser billede

Galleri: De fedeste håndholdte gennem 40 år

Her har du de mest banebrydende håndholdte computere gennem alle tider.


Kurser
Samarbejdspartnere

Udgiver · © 2012 IDG Danmark A/S · Hørkær 18 · 2730 Herlev · Tlf.: 77 300 300 · Fax: 77 300 301 · Brug af personoplysninger