Hvordan generes en tabel med alle minutsværdier i et tidsrum ?

Mds you have a couple of open questions I think you should look at first

Mds = Mads

Sorry .. consider it done :)

SELECT tblData.Dato, tblData.Value INTO NyTabel
FROM tblData
WHERE (((tblData.Dato) Between #1/1/2004 20:46:0# And #1/5/2004 14:36:0#) AND ((tblData.Value)<0));

Ups ... Sorry Terry ... just found out, that Mads haven´t done anything at all :o(

no need for appologies jensen363 :o)

Sorry anyway c",) ... hopefully Mads will get red ear´s ... ( is it the same in English ? )

Red faced :o)

English Lessons on Eksperten.dk .... thanks .... c",)

your welcome

I´m off for today ...

Ok - beklager, men jeg var ikke lige opmærksom på hvordan dette site fungerede .. men NU skulle det vist være i orden !
Tak for svaret, jensen363 - den sql gør vist ikke helt det jeg gerne vil, nemlig: generer en nytabel med en post for hvert minut i et givet tidsrum.

Ps. nu har jeg fattet princippet i Accepter/Afvis, så jeg skal nok honorer de brugbare svar !!

Læsekursus c",) .... jeg havde læst det som minusværdier ....

her er en makro der gør det, den skal nok modificeres lidt.

Opret en tom tabel, som skal hedde 'MinutTabel', med et felt, som er datotid'

Public Sub IndsaetDatoTid()
Dim dbs As DAO.Database, rst As DAO.Recordset
Dim Fra As Date, Til As Date
Fra = InputBox("Startdato og tid (dd-mm-åå tt:mm )") '01-01-2004 20:46:00
Til = InputBox("Slutdato og tid (dd-mm-åå tt:mm )")  '05-01-2004 14:36:00
Minut = 0

    Set dbs = CurrentDb
    Set rst = dbs.OpenRecordset("MinutTabel")
    For I = Fra To Til - 0.000694444 Step 0.000694444
      With rst
      .AddNew
      .Fields(0) = I + Minut
      .Update ' Gem ændringer.
      Minut = 0.000694444
    End With
    Next
    dbs.Close

End Sub

Husk at denne tilføjer, så tabellen skal tømmes hver gang.

Hej Kabbak > Hvorfor genereres det første minut ikke ? Har afviklet modulet gentagne gange med samme resultat

Er rettet

Public Sub IndsaetDatoTid()
Dim dbs As DAO.Database, rst As DAO.Recordset
Dim Fra As Date, Til As Date
Fra = InputBox("Startdato og tid (dd-mm-åå tt:mm )") '01-01-2004 20:46:00
Til = InputBox("Slutdato og tid (dd-mm-åå tt:mm )")  '05-01-2004 14:36:00
Minut = 0.000694444

    Set dbs = CurrentDb
    Set rst = dbs.OpenRecordset("MinutTabel")
    For I = Fra - 0.000694444 To Til - 0.000694444 Step 0.000694444
      With rst
      .AddNew
      .Fields(0) = I + Minut
      .Update ' Gem ændringer.
   
    End With
    Next
    dbs.Close

End Sub

Jeg kan sgu ærlig talt ikke finde ud af hvordan man afslutter et spørgsmål når ingen har kommet med et anvendeligt "svar" !?!?

Hi Mads
The easiest method is to just place and answer yourself and accept it, just as you have done. And you get your points back too :o)

It is also allowed to give points to those who have given input if you think its been helpfull, but thats up to you.