Datofelter i 2 underrapporter

Referencen hedder:
Reports!rptDato1!TilDato
eller blot:

Me!Tildato

Og hvad står der i Dato?

Reference til Dato er ligeledes:
Me!Dato

I Dato fremkommer der en tekstbox, som jeg kan indtaste i!
Jeg syntes jeg har prøvet reports!rptDato1TilDato

Jeg prøver lige

Jamen hvis det er en rapport, kan du da ikke tste noget!!
Det er ikke en formular, vel?

Jeg får da en tekstbox op når jeg laver et ubundet felt og kalder det dato!

ja, ok, hvis kontrolelementekilden står til: [Dato], så vil den spørge.
Men det betyder ikke at navnet er Dato. Feltets  navn finder du også blandt egenskaberne.

...og det er navnet, som du skal referere til...

Ja, - det kan godt være det er svært at forstå.
Dato er navnet på det ubundne felt, -- også kontolelementkilde.
Det der er problemet er at den skriver til mig at rptDato1 ikke findes eller ikke er åben! Det er den jo, da den findes på raporten. Der er 2 underrapporter. Den ene hedder rp2Dato1, den anden rptDato2

ah, så skal referencen se således ud:

Me!rptDato1!TilDato
eller
Reports!NavnPåHovedrapport!rptDato1!TilDato

men skriver du det i VBA eller direkte i tekstboksen=

Tak for din interesse Thomas, men jeg er desværre nødt til at løbe nu. Jeg har en lille baby, der græder! Vender tilbage i morgen!

Jeg har skrevet denne kode, men får fejlmeldingen: Run time error '2447
Du har indtaster et udtryk, der ingen værdi har
Private Sub Detaljesektion_Format(Cancel As Integer, FormatCount As Integer)
If Me!rptDato1!TilDato <> "Dato" Then
    Me!rptDato1!fradag.visible = False
    End If
End Sub

Prøv med denne:

Private Sub Detaljesektion_Format(Cancel As Integer, FormatCount As Integer)
If Me!rptDato1!TilDato <> Me!Dato Then
    Me!rptDato1!fradag.visible = False
    End If
End Sub

Nu skriver den: Run time error 13. Type mis match

hmm, jeg har lige prøvet det af selv og får samme fejl. Jeg har ikke tidligere prøvet denne metode, men må nok konkludere, at den heller ikke duer.

Problemet er den rækkefølge, som Access fortolker de enkelte udtryk. Og når Access når til at skulle fortolke VBA-koden, så kender den ikke værdien i dit Dato-felt, hvorfor den fejler.

Jeg vil i stedet foreslå, at du erklærer en global variabel, som hedder Dato.
(Øverst i et Modul skriver du:
Public Dato as Date
)

Derfra, hvor du åbner rapporten, skriver du denne kode:
Dato = cvdate(Inputbox("Angiv dato", "Dato?"))
docmd.Openreport "navn på rappport", acviewreport

Koden på selve rapporten se nu således ud:
Private Sub Detaljesektion_Format(Cancel As Integer, FormatCount As Integer)
  If Me!rptDato1!TilDato <> Dato Then
    Me!rptDato1!fradag.visible = False
  End If
End Sub

feltet Dato fjerner du fra rapporten.

Jeg er lidt i tvivl om din kommentar. Derfra hvor du åbner rapporten. Mit projekt er ikke kommet så langt endnu. Den skal åbnes i acwiewreport, fra en startside(meget lækker( jeg vil gerne sende den til dig)). Alt dette har jeg endnu ikke lavet. Du får pointene. Mange tak for hjælpen!!!!

tak :o)

Du skriver at den skal åbnes fra en startside!? Du snakker ikke om en web-side, vel? For så får du nok lidt problemer med at åbne rapporten.

Hvis det er en startformular, som du mener, så laver du formentlig en knap eller lign, som skal åbne rapporten. Og der er altså her, at du lægger koden.

Men du er velkommen til at sende noget til mig på tj@milla.dk

/Thomas