Makro kørsler / VBA

Du er vel nød til at loope dig igennem alle poster!~)

Do you want to run the macro from ALL records? If so then you need to run through all records on the form.

Ja, man skal vel setfocus until EOF...

Det kan godt risikere at blive en ordentlig mundfuld!~)

In the forms On Load Event you can loop through thr records like this.

Dim r As DAO.Recordset

Set r = Me.Recordset


Do Until r.EOF

'Do waht ever you want for each record
r.MoveNext
Loop

an dyou will need a reference to DAO

Det skal på timeren..

Yes of course spg (it hot here in Vejle :o) )

Det er jo også sydpå!~)

but why do you need to run a macro for all records in a timer event?

Ja, hvad skal den macro...

Det er bliver på et tidspunkt til mange forskellige forspørgelser og forsendelser. Samt for at holde styr på hvad der køre hvornår. Grunden til jeg har oprettet tablen var for at skabe et bedre overblik istedet for at have en 10 km lang VBA kode og for at det var nemmere at rette, slette og tilføje kørsler.

Jeg har løst problemet ved at lave en ekstra kolonne der hedder findtid. Her skriver jeg det tidspunkt der ligger 5 sekunder før og har indsat efter DIM'erne følgende:
    Forms!Kørsler1!Findtid.SetFocus
    DoCmd.FindRecord Time

Den færdig kode ser således ud:

Private Sub Form_Timer()
Dim StartTimeA As Date
Dim StopTimeA As Date
   
    Forms!Kørsler1!Findtid.SetFocus
    DoCmd.FindRecord Time

'A-Gruppen
    StartTimeA = Me!Starttid
    StopTimeA = Me!Sluttid
   
    If Time >= StartTimeA And Time < StopTimeA Then
        ' Run macro.
        Debug.Print "Run Macro..."
        DoCmd.RunMacro (Me!Makronavn)
    Else
        'Don't run macro.
        Debug.Print "Don't run Macro..."
    End If
   
End Sub

DET VIRKER :-)

Men tak for jeres hurtige kommentarer og svar.

Terry, selvom jeg ikke har brugt din løsning synes jeg du skal have nogle point.

well as they say "If it works then dont touch it (change it)) :o)

thanks a lot for the points, have a nice "sunny" day