Avatar billede rosco Novice
04. august 2003 - 20:02 Der er 16 kommentarer og
1 løsning

Finde rette post, også i underformular

Access2000, Videokartotek
Jeg har en indtastningsformular "Video", og en forside.
Når jeg lukker formularen "Video", Åbnes "forside" i samme båndnr Som "Video" stod ved.
Men Jeg ville gerne det, at når jeg lukker "Video" ved Bånd 5, Og Optagelse 4 (Underformular).
Så hopper jeg til "Forside" Bånd 5, Optagelse 4.
Nu vises altid første post i underformularen

Jeg bruger denne kode nu.

Dim stDocName As String
    Dim stLinkCriteria As String
    'Åbner "Forside" med samme båndnummer som "Video".
    Dim Båndnr_id As String

    Båndnr_id = CStr(Båndnummer)
    DoCmd.Close
    DoCmd.OpenForm "Forside", acNormal
    Forms![Forside]!Båndnummer.SetFocus
    DoCmd.FindRecord Båndnr_id, , , acSearchAll, , acCurrent
Avatar billede rosco Novice
04. august 2003 - 21:46 #1
Var denne her nemmere at bygge videre på.

Dim rs As DAO.Recordset
    DoCmd.OpenForm "Forside"
    Set rs = Forms!Forside.RecordsetClone
    rs.FindFirst "BndID= " & Me!bndID
    Forms!Forside.Bookmark = rs.Bookmark
    rs.Close
    DoCmd.Close acForm, Me.Name
Avatar billede rosco Novice
06. august 2003 - 15:39 #2
Er der ikke nogen der har et bud.
Avatar billede rosco Novice
06. august 2003 - 21:57 #3
Jeg har prøvet denne, men den åbner underformularen i et nyt vindue.

Dim rs As DAO.Recordset
    Dim os As DAO.Recordset
    DoCmd.Echo False, ""
    DoCmd.OpenForm "Forside"
    Set rs = Forms!Forside.RecordsetClone
    rs.FindFirst "BndID= " & Me!bndID
    Forms!Forside.Bookmark = rs.Bookmark
    rs.Close
    DoCmd.OpenForm "ForsidesOpt", acNormal, , , , acWindowNormal
    Set os = Forms!ForsidesOpt.RecordsetClone
    os.FindFirst "ID=" & Me!OptID
    Forms!ForsidesOpt.Bookmark = os.Bookmark
    os.Close
    DoCmd.Close acForm, Me.Name
    DoCmd.Echo True, ""
Avatar billede rosco Novice
16. august 2003 - 17:36 #4
Der er åbenbart ingen løsning på dette problem. :o(
Avatar billede rosco Novice
16. august 2003 - 17:36 #5
?
Avatar billede mugs Novice
16. august 2003 - 21:20 #6
Man skal aldrig sige aldrig. Denne er afprøvet og fungerer, hvis jeg ellers midt i influenza-tågerne har forstået spørgsmålet korrekt:

Private Sub Kommandoknap6_Click()
Dim b As Long
b = Me.optagelse
DoCmd.OpenForm "forside"
Forms!video!båndnr.SetFocus
DoCmd.FindRecord Me!båndnr
[Forms]![forside]![Underordnet objekt6]![optagelse] = b
End Sub

Kommandoknappen er placeret på formularen "video" og åbner først formularen "forside" i det samme båndnr og finder derefter den tilsvarende optagelse som "video". Når du vil søge i en underformular, er du nødt til først at pege på underformularen, og derefter på feltet. læg din e-mail hvis du vil have eksemplet tilsendt.
Avatar billede mugs Novice
20. august 2003 - 22:51 #7
rosco > Nu er jeg selvfølgelig klar over, at spørgsmålet for længst er lukket da jeg gav min kommentar. Men for en god ordens skyld:

Har du afprøvet min kode?
Avatar billede rosco Novice
21. august 2003 - 21:00 #8
endelig respons på spørgsmålet, :o)  , det skal lige prøves.
mail- erlenbach@adslhome.dk
Avatar billede mugs Novice
21. august 2003 - 21:04 #9
Eksempel sendt.
Avatar billede rosco Novice
21. august 2003 - 21:10 #10
jeg får denne fejl på  .optagelse
Compile error:
Metod or data member not found
Avatar billede mugs Novice
21. august 2003 - 21:11 #11
På hvilken linie?
Avatar billede mugs Novice
21. august 2003 - 21:13 #12
Undskyld - havde ikke bemærket .optagelse.

Er det i din eller min db du får fejlen. Hvis det er i din tyder det på en stavefejl i ordet optagelse.

Når du sætter din punktumnotation, skal du få en drop down med alle objekter i formen. Brows ned igennem og vælg det rigtige.
Avatar billede mugs Novice
21. august 2003 - 21:15 #13
Har afprøvet min testdb igen, og den virker efter hensigten.
Min hensigt altså - Men måske jeg har misforstået spørgsmålet.
Avatar billede rosco Novice
21. august 2003 - 21:33 #14
Testdb modtaget, tak , virker.
Jeg er ved at finpudse den.
jeg får besked om at en makro til et af felterne driller.
prøver at finde ud af hvad.
Avatar billede mugs Novice
21. august 2003 - 21:37 #15
Du bør nok kontrollere feltnavnene, det er ikke sikkert jeg har brugt de samme. Jeg er snart logget af for iaften, men vil checke imorgen om du har fået det til at køre.
Avatar billede rosco Novice
21. august 2003 - 21:39 #16
Det er dem jeg er ved at chekke.
Tak for nu, Godnat.
Avatar billede rosco Novice
21. august 2003 - 22:10 #17
Nu virker det, kunne ikke bruge IDfeltet, så jeg skiftede til titelfeltet.
Det kom til at se sådan ud.

Dim b As String
b = Me.OptTitel
DoCmd.OpenForm "forside"
Forms!forside!Båndnummer.SetFocus
DoCmd.FindRecord Me!Båndnummer
[Forms]![forside]![ForsidesOpt]![Titel] = b

Tak for hjælpen, Jeg lægger et spørgmål. Det var alle 100 point værd.
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