07. oktober 2007 - 16:23Der er
7 kommentarer og 1 løsning
Anvende kommandoknaps titeltekst eller navn som filter
Jeg har i en formular oprettet en visuel gengivelse af mit lager ved hjælp af kommandoknapper. Idéen er, at jeg ved at trykke på den enkelte knap skal have vist, hvad der ligger på den enkelte lokation i en underformular på samme side.
Det jeg mangler er altså, at kunne anvende kommandoknappens navn eller titeltekst i et filter, der filtrere på lokation. Jeg har forsøgt med nedenstående, men hvad kan jeg skrive istedet for "001", "002" o.s.v., så jeg kan anvende den samme makro til alle, uden at skulle lave en milliard makroer
for lokation 001XX følgende makro med 'anvendfilter': [LOKATION FS]![STED]="001"
for lokation 002xx følgende makro med 'anvendfilter': [LOKATION FS]![STED]="002"
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
Hej Mugs kan du uddybe det sidste lidt? Jeg har fjernet alle overordnede / underordnede felter, så nu viser underformularen alle lagernumre på alle lokationer. Hvordan får jeg implementeret dit sidste bud i min database?
Det jeg ønsker er ikke at filtrere underformularen efter et felt i formularen, men derimod at anvende Kommandoknappens titeltekst eller navn som en del af filtreringen.
Jeg har knapper der hedder 001 til 250 (1 for hver reol på mit lager) disse knapper er alle opkaldt efter de tre første ciffer i lokationens nummer.
Jeg ønsker altså at den tekst der står på knappen bliver anvendt til at sammenligne med feltet STED.
Men hvordan anvender jeg teksten på knappen i en makro eller en VB-kode, så jeg slipper for at lave en makro til alle knapper, men bare lave en standard makro som jeg tildeler hver enkel knap, som så sammenligner:
Hvis feltet STED = kommandoknapnavn, så vis disse poster i undeformularen ved klik på pågældende knap.
Dim VARa As long VARa = Me.a.Name If Me.sted = VARa Then Me!subform.Form.filter = "sted = " & sted & "" Me!subform.Form.FilterOn = True End If
Hvis alfanumerisk:
Dim VARa As String VARa = Me.a.Name If Me.sted = VARa Then Me!subform.Form.filter = "sted = '" & sted & "'" Me!subform.Form.FilterOn = True End If
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.