Access og VBA

Du kan måske gøre sådan her:

Set db = CurrentDb()
Set rs_Telefonliste = db.OpenRecordset(\"tblTelefonliste\", dbOpenTable)

\'Nulstiller tabel
rs_Telefonliste.MoveFirst

If rs_Telefonliste!tblId_Intern <> 0 Then Get_Name

Tabellen hedder tblTelefonliste
Og den kollone jeg er i hedder tblId_Intern

Jeg har læst dit spgm. mange gange idag, men jeg forstår det ikke helt:

\"Hvordan får jeg et felt fra en tabel, over i VBA-koden\"

Jamen du skriver blot feltets navn i kode-vinduet som f.eks:

If FELTNAVN = \"A\" Then
gør noget
End If

En metode er at indsætte feltet på normal vis på rapporten (og evt. gøre det usynligt).
Herefter kan du i VBA referere til feltet med et foranstillet Me, f.eks. Me.Salgspris.

Hej
Ingen af jeres forslag virker!!! Jeg prøver at forklare lidt nærmere.

Jeg har et tidsopsamlingssystem, der gemmer alle komme-,gå tider i en tabel der hedder DinTimeEvents. I tabellen er der en kolonne der hedder Work. (= tiden i minutter).

Jeg har lavet en rapport, der ud fra brugernummeret samler alle tiderne (Work), hvor efter jeg lægger alle tiderne sammen =Sum([Work]).
Det jeg skal have programmeret ind, er en beregning af eventuel overtid.

if work > 420 then
sub1 = work - 420
overtid = sub1 * 2
tidialt = overtid + work

Mit problem er, at jeg får ikke værdien Work med over i koden.

I ovenævnte skriver du work med lille w, og andre steder skriver du med stort W. Er det blot en fejl i din kommentar?

Ja, det er en fejl i kommentaren.

Din beregning blier først beregnet i øjeblikket, hvis jeg var dig ville jeg lave alle beregningerne enten i access eller i VBA.

Jeg er enig med powell: Du bør lave et felt i tabellen der f.eks hedder \"overtid\", og derefter trække det ind i forespørgslen og formularen. din If.. Then kode sætter du ind i feltet \"Work\" i AfterUpdate event. Feltet \"overtid\" vil så blive beregnet og udfyldt, hver gang du ændrer \"Work\".

Du kan så lave en opsummering i din rapport på samme måde som \"Work\".

Data for overtid \"tilhører\" den enkelte post i tabellen, og bør beregnes i posten. Hvis du ikke vil se feltet \"overtid\" i din formular, skal du blot sætte egenskaben synlig i feltets formateringsfane til Nej.

Jeg går ud fra, at du summerer i en gruppefod. Her nytter det ikke at referere til Work. Du skal referere til det felt, som summen er beregnet i. Altså: if SumWork > 420 ....

Jeg prøver, hvad i har foreslået.