Global Dato

Du kan sagtens lave en global (public) dato. Du er bare nødt til at lave en funktion til at returnere værdien af den:

Public Function GetDato() as Date
  GetDato = varDato
End function

Dernæst kan du bruge GetDato() i din forespørgsel

/Thomas

I min forespørgsels kriterie skal jeg bruge eks:
Beetween #01-01-2003# And #01-04-2003#
Hvordan skal jeg så lave min funktion og hvad skal jeg skrive i kriterie feltet for at hente datoerne?

Så er du enten nødt til at lave 2 funktioner (og 2 variable) med mindre, at det altid er 3 måneders intervaller, du ønsker?

Okay, Jeg har lavet den første funktion som således ud:

Public Function hentstartDato() As Date
Dim startDato As Date
startDato = 12 - 3 - 2003

hentstartDato = startDato
End Function

Og i min kriterie skriver jeg: hentstartDato()

Men min forespørsel giver ikke noget resultat

Din dato er forkert:

Public Function hentstartDato() As Date

  hentstartDato = #2003-03-12#

End Function

Jeg har oprette en tabel "Dato" med feltet DatoStart og DatoSlut. Her efter har jeg lavet noget kode som skal hente dato felterne fra dato tabelen og bruge det i forespørgslen. ´Min kode ser således ud:

Public Function hentStartDato() As Date

Dim Rst As Recordset
Dim Dbs As Database
Dim strSQL As String
strSQL = "Select * From Dato"
Set Dbs = CurrentDb
Set Rst = Dbs.OpenRecordset(strSQL)

hentStartDato = Rst.Fields("DatoStart")

End Function


Public Function hentSlutDato() As Date

Dim Rst As Recordset
Dim Dbs As Database
Dim strSQL As String
strSQL = "Select * From Dato"
Set Dbs = CurrentDb
Set Rst = Dbs.OpenRecordset(strSQL)

hentSlutDato = Rst.Fields("DatoSlut")

End Function


Er der ikke en måde at slå op i en tabel uden at jeg skal skrive alt det kode?

Det kan gøres en anelse lettere ;o)

Public Function hentStartDato() As Date
  hentStartDato= DFirst("DatoStart", "Dato")
End function

Public Function hentSlutDato() As Date
  hentSlutDato = DFirst("DatoSlut", "Dato")
End function

Tak for hjælpen