Avatar billede per2edb Praktikant
29. juni 2007 - 19:25 Der er 23 kommentarer og
1 løsning

Makroen GåTilPost virker ikke.

Jeg har en form med navn: Nyhedsbreve_Input
Her ligger en Kontrol med navn: Firma-ID
Firma-ID kommer fra en tabel med navnet: Firma

På Formen Nyhedsbreve_Input ligger en underformular med navnet: Nyhedsbreve_Input underformular
Den er lavet som Dataark
Her ligger ligeledes en kontrol med navnet Firma-ID

Når jeg trukker på en record her vil jeg finde den tilsvarende record på formen

Jeg benytter Makroer - specielt GåTilPost men det virker ikke.
Jeg får bl.andet fejlen: objekted Firma-ID er ikke åben.

Hvordan stiller jeg det op i Makroer?
Jeg er villig til at give mange point til den der kan hjælpe.
Avatar billede mugs Novice
29. juni 2007 - 19:37 #1
I underformularen har du en egenskab der hedder Underordnede og overordnede felter. Dise 2 felter skal eksistere i begge formularer. Hvis du vælger et unikt ID i begge formularer, vil underformularen altid vise de poster, der er knyttet til posten i hovedformularen.
Avatar billede per2edb Praktikant
29. juni 2007 - 19:50 #2
Det ved jeg og det benytter jeg også. Det er det modsatte jeg skal have
løst. Altså når jeg trykker på underformularens record skal jeg have
fundet og vist den tilsvarende i Formen
Avatar billede mugs Novice
29. juni 2007 - 19:57 #3
OK - Prøv denne:

Me.Parent.Form.filter = "kundeemne =  '" & kundeemne & "'"
Me.Parent.Form.FilterOn = True

hvor feltet kundeemne er det alfanumeriske felt, der skal filtreres efter. Hvis feltet er numerisk skal du fjerne apostrofferne.
Avatar billede mugs Novice
29. juni 2007 - 19:59 #4
Det kan godt være, at jeg misforstår dig. Har du et unikt felt der identificerer posterne, og er det en specifik post du vil finde og ikke en gruppe poster der matcher en værdi i underformularen?
Avatar billede per2edb Praktikant
29. juni 2007 - 20:17 #5
Ja Firma-ID er unik
I formularen ser man kun et firmanavn. I underformularen alle firmanavne.
Jeg ønsker at kunne trykke på et firmanavn i underformularen hvorefter
dette navn findes og vises i formularen.
Det du skriver om Me. osv kender jeg ikke til. Kan det ikke laves i Makroer?
Avatar billede mugs Novice
29. juni 2007 - 21:02 #6
Jeg ved ikke om det kan laves i en makro. Jeg benytter ikke selv makroprogrammering.
Me. refererer til den formular markøren står i og er i VBA som er det programmeringssprog Access benytter.
Avatar billede per2edb Praktikant
29. juni 2007 - 21:16 #7
Jeg kender ikke VBA. jeg vil prøve at sætte mig ind i det i morgen.
å kontakter jeg dig igen. Tak så langt.
Avatar billede per2edb Praktikant
30. juni 2007 - 22:27 #8
Det ser ud til at virke men feltet er numerisk Kunde-ID
Jeg kan ikke få det til at passe ed apostrofferne

Me.Parent.Form.filter = "Kunde-ID =" & Kunde-ID
Kunde-ID bliver til Kunde - ID
Hvordan skal approstrofferne stå?
Avatar billede mugs Novice
30. juni 2007 - 22:41 #9
Me.Parent.Form.filter = "kundeemne =  " & kundeemne & ""
Me.Parent.Form.FilterOn = True
Avatar billede mugs Novice
30. juni 2007 - 22:42 #10
Du skal beholde anførselstegnene ""
Avatar billede mugs Novice
30. juni 2007 - 22:54 #11
Det er muligt, at din "navnekonvention" skaber problemer, idet en bindestreg opfattes forkert af Access. Specialtegn og mellemrum burde være bandlyst i feltnavne. Har du stadig problemer så prøv denne:

Me.Parent.Form.filter = "[kunde-id] =  " & [kunde-id] & ""
Me.Parent.Form.FilterOn = True

Se det 3. commandment:

http://www.mvps.org/access/tencommandments.htm
Avatar billede per2edb Praktikant
01. juli 2007 - 14:28 #12
Hej mugs
Det virker. Som ny i VBA har du været til meget stor hjælp.
1000 tak for hjælpen
Jeg vil gerne fordoble point men hvordan gør man det?
Avatar billede mugs Novice
01. juli 2007 - 14:42 #13
Du behøver ikke at give flere point, men man kan godt ændre point ved at gå ind på sit spørgsmål. Men velkommen til eksperten.dk:

http://expfaq.dk/behandling_af_svar#content

Jeg har et lille bibliotek med eksempler på VBA procedurer, som jeg bruger her på eksperten. Dem må du gerne få. Blot læg din e-mail.
Avatar billede per2edb Praktikant
01. juli 2007 - 15:00 #14
Tak dem må du gerne sende  mail2you@c.dk
Jeg har fordoblet point
Avatar billede mugs Novice
01. juli 2007 - 15:20 #15
Tak, men du skal også accepterer mit svar, ellers bliver spørgsmålet aldrig lukket. Jeg har sendt mine db.
Avatar billede per2edb Praktikant
01. juli 2007 - 18:30 #16
Jeg har lige et spørgsmål mere der gælder den modsatte vej:
Jeg ønsker i Me.Parent.Form at klikke på kontrollen Firma der så
finder firma på en underformular datakontrol med navn:
Nyhedsbreve_Input underformular 
Jeg har lavet det sådan men det mælder fejl:

Private Sub Firma_Click()
Nyhedsbreve_Input underformular.Filter = "[FirmaId] =  " & [FirmaId] & ""
Nyhedsbreve_Input underformular.FilterOn = True
End Sub
Avatar billede mugs Novice
01. juli 2007 - 19:08 #17
Du skal først sætte focus på underformularen:

Me.DIN SUBFORM.SetFocus
Nyhedsbreve_Input underformular.Filter = "[FirmaId] =  " & [FirmaId] & ""
Nyhedsbreve_Input underformular.FilterOn = True

Og pas igen på med dine mellemrum og specialtegn. Det går galt på et tidspunkt.
Avatar billede per2edb Praktikant
01. juli 2007 - 19:35 #18
Jeg har lavet det således:

Me.Nyhedsbreve_Input underformular.SetFocus

Jeg får fejludskriften det ikke findes!
Avatar billede mugs Novice
01. juli 2007 - 19:41 #19
Prøv at omdøbe underformularen så du ikke har specialtegn (underscore) og mellemrum.
Avatar billede per2edb Praktikant
01. juli 2007 - 20:25 #20
Jeg får fejlen: Metode ore data member not found.
Der er en gul pil ud for:  Private Sub Firma_Enter()
Skal der noget ind i ()?

Private Sub Firma_Enter()
Me.NyhedsbreveInputUnderFrm.SetFocus
NyhedsbreveInputUnderFrm.Filter = "[FirmaId] =  " & [FirmaId] & ""
NyhedsbreveInputUnderFrm.FilterOn = True
End Sub
Avatar billede mugs Novice
01. juli 2007 - 21:04 #21
Den gule pil peger på det sted, hvor koden fejler. Og det får vi ikke meget ud af, idet det er hele koden der fejler.
Avatar billede mugs Novice
01. juli 2007 - 21:05 #22
Er postkilden for din underformular en anden formular?
Hvis det er tilfældet kan vi gå en anden vej.
Avatar billede per2edb Praktikant
01. juli 2007 - 21:18 #23
Ja det er den idet NyhedsbreveInputUnderFrm er et dataark lagt på en
formular senere trukket ind på Hovedformularen
Avatar billede mugs Novice
01. juli 2007 - 21:19 #24
Prøv denne:

Me.NyhedsbreveInputUnderFrm.SetFocus
DoCmd.GoToControl "FirmaId"
DoCmd.FindRecord Me!FirmaId
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Dyk ned i databasernes verden på et af vores praksisnære Access-kurser

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester