Kommandoknap lagt i Dataark

Hvad med at lave en formular i tabelformat så kan knappen ligge ved hver post, styret af IDnr.

Lav kriteriet i forespørgslen

Under ID: Like [Forms]![frm1]![PostID]

Dette forstår jeg intet af.
Jeg har da en formular med et dataark.
Men hvad derefter??

Du skal lave formularen i tabelformat i stedet for som dataark

... eller styre det via et dobbeltklik i posten i stedet for en knap ;o)

fdata hvilke koder skal lægges hvorhenne når jeg benytter dobbelklik i posten
for at Åbne en rapport på samme record

- Gå i Design mode.
- Placer en Etiket med teksten Udskriv (eller hvad du har lyst til) et eller andet sted i posten
- Dobbeltklik på etiketten
- I egenskabsarket på fanen Hændelser dobbeltklikker du ud for VedDobbeltklik
- Klik på knappen med de tre prikker
- Nu er du i VBA i en Private Sub EtEllerAndet. Her skriver du
    DoCmd.OpenReport "DinRapport", acViewPreview, , "ID=" & Me.Id
    (tilret rapport- og feltnavnene)

Jeg fpr en fejlmelding - men jeg kan heller ikke finde ud af dette:

DoCmd.OpenReport "Tilbud", acViewPreview, , "TilbudId = " & [Tilbud UFrm]!TilbudId

Jeg står i en underformular med navn:  "Tilbud UFrm"
Her ligger en tabel med navn : "Tilbud" og Posten:  "TilbudId"
Jeg har lagt en label på "Tilbud UFrm" med navnet "Rapport"
Når jeg dobbelklikker på den skulle jeg gerne hoppe til:
En rapport med navnet "Tilbud"
På rapporten "Tilbud" ligger den samme tabel med navn : "Tilbud" og Posten:  "TilbudId" hvortil "TilbudId" skal overføres

Kan du hjælpe vil jeg blive uhyre glad - det har drillet i timevis

Et Forslag:

Ved dobbeltklik:
DoCmd.OpenReport "Tilbud", acViewPreview

I forespørgslen til rapporten under TilbudsID læg dette som kriterie
Like [Forms]![Hovedformularens_Navn]![Tilbud Uform].[Form]![TilbudsID]

PS:
Undgå mellemrum i tabel, felt og formularnavne.

Eller denne:
Ved Dobbeltklik

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "Tilbud"
   
    stLinkCriteria = "[TilbudsID]=" & Me![TilbudsID]
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Rettelse:

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "Tilbud"
   
    stLinkCriteria = "[TilbudsID]=" & Me![TilbudsID]
    DoCmd.OpenReport stDocName, acPreview, stLinkCriteria

Jeg får fejl 2501
Du skriver TilbudsID det er TilbudId men det er ikke fejlen

Kunne du evt sende din db til mig.
så skal jeg se på det.

erlenbach(snaabel)computer.dk

Jeg fik det til at virke. Det var alligevel Tilbud(s)Id  s skulle væk
1000 tak for hjælpen
Kan du lave det så du får point

Svar fra mig

Takker for point  ;o)