20. november 2007 - 13:10Der er
16 kommentarer og 1 løsning
kommandoknaps titeltekst eller navn som filter på underformular
Jeg har optegnet mit lager ved hjælp af en række kommandoknapper, som hver især udgør en hylderække. Jeg vil nu gerne anvende knappens navn, til at filtere informationerne i underformularen.
Jeg har forsøgt med en makro - Anvendfilter ([LOKATION_FS]![STED]="01"), men det kræver at jeg laver mange og er ikke særligt nemt at rette til.
mine knapper hedder 01, 02 .... 99 min underformular hedder LOKATION_FS_underformular og har STED som over- og underordnet felt, samt LOKATION_FS som postkilde Den post jeg sammenligner med, hedder STED i LOKATION_FS.
Hvordan laver jeg en kode, hvor der ved tryk på en knap, sammenlignes knappens navn eller titeltekst med feltet STED i LOKATION_FS, hvorefter der i underformularen præsenteres de poster hvor STED = kommandoknap navn.
Hvis I har en idé, må den gerne skæres lidt ud, da jeg klart er novice ud i access.
Teknologi, AI og forretning er i centrum på Computerworlds Cloud og AI Festival i København d. 18. og 19. september. Se hele programmet for den store konference om strategisk brug af Cloud og AI på: www.cloud-festival.dk
Du skal lave en funktion i formular modulet f.eks.: Private Function test() dim strFilter strfilter = "LOKATION_FS]![STED]='" & ActiveControl.Caption & "'" MsgBox strfilter
bygger din formular på forespørgslen: LOKATION_FS ??? og er din kode i formularens modul ??? ellers skal functionen være public. prøv evt. at undlade [] strFilter = "STED='" & ActiveControl.Caption & "'"
har du prøvet at debugge koden: Private Function STED() stop .....
Ja - det var lige hvad jeg kunne finde på der kunne være ivejen Niels
Nu får jeg ingen fejlmeddelelser, men tilgengæld virker filtret ikke. burde det ikke være noget med Me.subform.form.Filter for at sætte filtret på underformularen??
If you want to set the sub form filter on then you need something like
Me.NameOfSubformControlGoesHere.Filter = ....
NameOfSubformControlGoesHere = The name of the sub form control on the main form. THis is normally the same as the form you are using as th esub form but it need not be.
Hi Terry Jeg har nu altid brugt function test() og senere kaldt den med =test() uanset om test returnere en værdi eller ej - og det har ellers virket fint. Det er et must hvis du kalder functionen fra en menuknap.
Hi Niels Well I'm so old I cant remember what I normally do but I tried it here and it only worked with the suggestions I made here. If you say you have also used with () then I'm sure your right.
The main form has a record source which has a field named STED so I have renamed the function to SetFilter() (notice the () Niels :o) )and moved it back into the form code from a module so that me is recognised. The sub form is linked through the field STED so by setting the main form filter to the chosen vale it automatically finds the related records in the sub form.
Peter, to close the question you need to accept on eof the answers given.
BR Terry
Synes godt om
Ny brugerNybegynder
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.