Makro

Jeg har lidt på fornemmelsen at din makro sætter et eller andet filter ind på formen. Det er nok ikke helt optimalt. Jeg ville nok lave en DLookup istedet. Hvis du forklarer lidt mere hvad din makro gør vil det være lidt lettere.
Det kan nok også betale sig for dig at lave det i VBA. Det er ikke så svært når man lige får at vide hvad man skal gøre.
Men først...lidt mere info om dine tabeller osv.
:) Lars

jeg har lavet følgende i makroen:
ÅbnFormular som indeholder:
Formularnavn: Virksomheder1
Visning:  Formularvisning
Wheere-betingelse:  [Forms]![F-virksomheder]![Kortnr]=[virksomheder]![kortnr]
Datatilstand:  Rediger
Vinduestilstand:  Normal

Gå til kontrolelement: år

Det er rigtigt at den sætter et filter ind på formularen.
makroen skal finde et kortnr, når den er funder skal der intastes en tilføjelse i feltet år. Håber det er nok?

Du kan prøve at sætte følgende kode ind istedet for din makro. Det skulle virke selv om jeg ikke er helt sikker :)
Du finder bare det givne event hvor din makro er, sletter den og trykker på prikkerne ude i siden, så kommer du ind til koden. Her copy/paster du bare, skriv tilbage hvis det virker.

Dim tempKortNr As Integer
    tempKortNr = Me.Kortnr
       
    DoCmd.OpenForm "Virksomheder1"
    Screen.ActiveForm.RecordsetClone.FindFirst "[Kortnr] = " & tempKortNr
    Screen.ActiveForm.Bookmark = Screen.ActiveForm.RecordsetClone.Bookmark
    DoCmd.GoToControl Screen.ActiveForm.År

Jeg har prøvet dette men synes ikke det virker.

Private Sub Kommandoknap47_Click()
Dim tempKortNr As Integer
    tempKortNr = Me.Kortnr
       
    DoCmd.OpenForm "Virksomheder1"
    Screen.ActiveForm.RecordsetClone.FindFirst "[Kortnr] = " & tempKortNr
    Screen.ActiveForm.Bookmark = Screen.ActiveForm.RecordsetClone.Bookmark
    DoCmd.GoToControl Screen.ActiveForm.År
End Sub

Denne fejlmeddelelse kommer:
Run-time error 2498.
Et udtryk, du har indtastet, er sa den forkerte datatype for et argumenterne.
Jeg har ikke indtastet noget.

Den skulle gerne "spørge om et kortnr som den så skal vise.

Jeg havde glemt dette hængeparti.
Er der ikke nogen som har et forslag til løsning af dette problem?