26. oktober 2005 - 11:08Der er
8 kommentarer og 1 løsning
Åben formular med fokus på bestemt underformular
Fra min knap på en formular: Filtrering som bl.a. har felterne: VaretypeID og Proces_ressource_ID ønsker jeg at åbne en anden formular: for_varetype - med fokus på en bestemt post i hovedformularen hvor [Forms]![filtrering]![VaretypeID] = [Forms]![for_varetype]![VaretypeID] og en bestemt relateret post i underformularen (som så automatisk viser den sidste underformular.) "[[Forms]![For_varetype]![ufor_proces_ressource]![Proces_ressource_ID]] =" & [Forms]![filtrering]![Proces_ressource_ID]
Formularen er en formular med en underformular som har en underformular for_varetype med bl.a. feltet: VaretypeID ufor_proces_ressource med bl.a. feltet: Proces_ressource_ID ufor_seq
Jeg har bl.a. forsøgt mig med nedenstående; i øvrigt har jeg oftest problemer med Me.sætningerne.
Hej mugs - tak for svaret DoCmd.OpenForm "for_varetype" [Forms]![for_varetype]![VaretypeID].SetFocus DoCmd.FindRecord Me!VaretypeID Jeg får følgende fejlmeddelse: Object doesn't support this property og method
Det følgende giver mig den rigtige hovedformular frem med den rigtige post i hovedformularens felt: VaretypeID Dim stDocName As String Dim stLinkCriteria As String stDocName = "for_varetype" stLinkCriteria = "[VaretypeID]=" & Me![VaretypeID] DoCmd.OpenForm stDocName, , , stLinkCriteria Men derudover skal det også være den rigtige post baseret underformularen: ufor_proces_ressource felt: Proces_ressource_ID
I hovedformularen har jeg Varetyperne med id'en VaretypeID som er overordnede og underordnede felter i den første underformular.
I første underformular har jeg en kombination mellem nogle processer og ressourcer der og her er id'en: Proces_ressource_ID som er overordnede og underordnede felter i den anden underformular.
I anden underformular har jeg en række sekvenser som høre til første underformular.
Sammenhængen mellem de enkelte formularer fungere fint når jeg er ovre i de formulare. ((((Jeg kan også fra 1. underformular få skrevet den aktuelle 1 underformular ud med tilhørende hovedformular og anden underformular. Dim stDocName As String stDocName = "rap_varetype_seq" DoCmd.OpenReport stDocName, acViewPreview, , "Proces_ressource_ID=" & [Forms]![for_varetype]![ufor_proces_ressource]![Proces_ressource_ID] Reports("rap_varetype_seq").ZoomControl = 75))))
Følgende kode bringer mig til den rigtige post i hovedformularen; men selvfølgelig ikke med en udvalgt post i 1.underformular: ufor_proces_ressource Dim stDocName As String Dim stLinkCriteria As String stDocName = "for_varetype" stLinkCriteria = "[VaretypeID]=" & Me![VaretypeID] DoCmd.OpenForm stDocName, , , stLinkCriteria Kan man så komme med en ekstra linie der hedder noget i retning af: "[Forms]![for_varetype]![ufor_proces_ressource]![Proces_ressource_ID]=" & [Forms]![Filtrering]![Proces_ressource_ID] og hvad skal sådan en line så starte med?
Dette giver bare det problem at hvis jeg åbner formularen: for.Varetype uden først at have åbnet formularen : Filtrering fejler den p.gr.a åbningskoden.
Jeg ønsker derfor samme funktionalitet med disse 3 linier tilføjet i knappen på formularen : Filtrering. (dvs. i forlængelse af koden i den forrige kommentar)
Dim stDocName As String stDocName = "for_varetype" Dim stLinkCriteria As String stLinkCriteria = "[VaretypeID]=" & Me![VaretypeID] DoCmd.OpenForm stDocName, , , stLinkCriteria
[Forms]![for_varetype]![ufor_proces_ressource].SetFocus DoCmd.FindRecord [Forms]![Filtrering]![Proces_ressource_ID] Så var den der !!!
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.
