Point til mugs.

Det plejer som regel at lykkes ved fælles hjælp. Tak for point.

Glæd dig ikke for tidligt :o)
Jeg troede det virkede, når jeg lukker ved forms!Video!Optagelser!Opt4
Går den til forms!forside!forsidesOpt!Opt1, og vil lave den om til Opt4,
den finder ikke forms!forside!forsidesOpt!Opt4.  Har jeg lavet for meget om eller??
Når jeg bruger denne her, får jeg fejlmeddelelsen , Du kan ikke tildele en værdi til dette objekt.
    Dim b As String
    b = Me.OptID
    DoCmd.OpenForm "forside"
    Forms!forside!Båndnummer.SetFocus
    DoCmd.FindRecord Me!Båndnummer
    [Forms]![forside]![ForsidesOpt]![ID] = b

mugs: Jeg har sendt dig en kopi af min db. den er egentlig færdig, er blot ved at finpudse den.

Undskyld er først sendt nu. (3mb)

Ved at indsætte en variabel mere, og lade variablerne a og b udskrive til Immediate-vinduet, ses variablerne at have samme værdi:

    a = [Forms]![forside]![ForsidesOpt]![ID]
    b = Me.OptID
    Debug.Print "dette er variablen b:" & b
    Debug.Print "dette er variablen a:" & a

Min kode virker således efter hensigten. Fejlen ligger sandsynligvis i, at rasco prøver at tilde variablen b til en felt, der i forvejen har postkilde i en SQL-streng. Jeg har sendt en længere småde til rasco ang. dette.

småde > smøre

Arbejder stadig på den.

Jeg havde godt nok spekuleret på, hvor du blev af ;o)
Kan du se, at variablerne er ens?

Så er jeg her igen.
Hvis jeg vælger Bånd 3, opt: Den blå planet - Polarhavet
Får jeg dette output,
dette er variablen b:432
dette er variablen a:357

Tjaa - Her er de ens

Jeg kan ikke få den til at finde den optagelse i underformularen som jeg har i den formular jeg forlader. Begge formularer henter data fra Samme tabel. Skulle den ene af dem evt. bygge på en forepsørgsel?

Den fatter jeg ikke rigtigt??????????????

mugs: Kan du få det til at fungere i den db jeg sendte dig?

rosco > Jeg har i en tidligere mail bedt om yderligere oplysninger, hvilke du ikke har sendt. Jeg har gæster iaften og vender tilbage imorgen.

Ok, kigger på mailen igen.

Nyt eksempel sendt.

mugs> Tak, jeg har modtaget den, jeg er væk de næste par dage, skal nok kigge på det.

OK.

Hej mugs > Den vil kun gå til første optagelse på båndtet. ID {fra forespørgslen) følger ikke Optagelsens ID, men bliver ved første opt. ID.????

Jeg står i formularen "Forside" bndID 357.

Jeg trykker på knappen "Tilføj/Ret data", og der åbnes en ny formular "Videokartotek" på posten bndid 357.

Jeg trykker på "Luk formular" og vender tilbage til formularen "Forside" i bndID 357.

Så forstår jeg intet af hvad du vil.

Jeg prøvede med Bånd 3 bndID 393, Opt 2 ID 434.
den ender  i forside bndID 393 , opt 1 ID 433.

prøv at indsætte et felt i forside med denne kode =[ForsidesOpt].Form!ID, så kan du se hvad jeg mener. lige meget hvor mange optagelser der er, ender vi ved første optagelse.

nu har jeg kun nogle få poster i den db du sendte mig. Den fejl du skitserer, er det i den db jeg sidst sendte dig, eller har du implenteret mit forslag i din egen?

det er i den db du sendte, jeg kan lige prøve i min egen.

Se på de røde felter. Starter du i bndID 432 åbner du videokartotek i bndId 432. Og når du lukker vender du tilbage til bndID.

Prøv evt. at åbne forespørgslerne og se hvilke felter der re relateret til hinanden.

Jeg kan ikke tænke mere i dag, vender tilbagetil det i morgen. Sov godt ZZZZZZ

Hi mugs , så er jeg tilbage igen.
forslaget med forespørgslerne fungerede ikke, det er ligesom forsidesOpt. ikke kan findes.
Men jeg har opdaget et større problem, ved oprettelse af et nyt bånd, kan jeg ikke fortsætte og tilføje en optagelse, feltet (findes på bånd) opdateres ikke (er relateret til bndID).

mugs:
Undskyld den langsomme reaktionstid, der har været andre ting der har krævet min opmærksomhed, jeg håber ikke du har opgivet mig.

rosco -> Nej  du er da ikke opgivet, men ligesom du har jeg haft andre jern i ilden. Jeg er lige kommet hjem efter en kort efterårsferie, men blot for at pakke bilen igen. Jeg skal på kursus imorgen (MAN 20 OKT) og er først hjemme igen FRE eftermiddag.

Nu er det nogle dage siden jeg har beskæftiget mig med din db, og kan dårlig huske hvordan den er skruet sammen. Så jeg foreslår at vi udskyder problemet til FRE (Hvis det da er muligt), så sender du mig din db igen, og så må vi tage os sammen og løse problemerne een gang for alle, når vi begge har tid.

Vi ses fre.

Har ikke tid i nu, kigger forbi i morgen.

OK - er på arbejde LØR, hjemme ca. 20:00

Hi Mugs, er du der?

Yes lidt endnu - Får gæster

Det største problem lige nu er at når jeg opretter et nyt bånd, kan jeg ikke i samme arbejdsgang tilføje en optagelse, der oprettes ikke en værdi i feltet (Findes på bånd) som har relation til bndID.

det har været muligt tidligere, jeg har ingen ide om hvad problemet er. Overordnede/underordnede felter skulle være ok. Jeg har prøvet at ændre på dem, men det løser ikke noget.

Du er nødt til først at oprette båndet i den tabel, der har bndID som primær nøgle. Ellers kommer du aldrig videre.

jeg kan udemærket oprette båndet, problemet er når jeg forlader underformularen (Optagelser). Så er optagelsen ikke oprettet, kun båndnr, optagelsen kan først oprettes når jeg påny vender tilbage til pågældende båndnr.

Ja - Og det er fordi optagelsen ikke oprettes før den nye post forlades. Efter du har oprettet optagelsen er du nødt til at køre en Me.Requery før optagelsen bliver lagret i tabellen.

Jeg får fejlmeddelelsen , Du kan ikke tilføje eller ændre en post , fordi der kræves en relateret post i tabellen "Videobånd".

Jeg har en Me.Requery Når "spilletid" forlades.

Ja det er korrekt. Som jeg skrev iaftes skal du se på dine relationer. Har du prøvet med den Me.Requery

Relationen mellem de to tabeller kan vel næsten ikke være andeledes. eller ??

Du kan vel også bruge en 1 til 1 - Men du kan se i relationsvinduet, at du skal have oprettet et id i Videobånd, ellrs får du fejlen.

1 til 1, der må gerne være flere opt. på et bånd. jeg kan godt oprette et bånd, ( bndID oprettes også) og så lukke formularen, ingen problemer med det.
Men hvis jeg i samme arbejdsgang går videre til formularen optagelser hentes bndID ikke over i feltet "Findes på bånd", selv med brug af Me.Requry.

Så 1 til mange.
Fra hvilken tabel kommer "Findes på bånd" og fra hvilken kommer "bndID"

tblVideobånd har primærnøglen "bndID", tblOptagelse har feltet "findes på bånd", de to felter er relateret 1 til mange.

har du forresten modtaget Dbén jeg sendte dig.

Fejlen er at denne ikke har en relateret post:

tblVideobånd har primærnøglen "bndID",

bndID SKAL oprettes før du går videre.

Ja jeg har fået den. Men den er svær at gennemskue, da den består af mange underformularer. Desuden får flere af dine formularer data direkte fra tabellerne, og det er ikke god skik.

bndId Oprettes bliver oprettet så snart jer er gået videre til formularen Optagelse.

Formularene bør få data fra forespørgsler, det var jeg ikke klar over, det må jeg have rettet.

Jeg har også fået gæster. Kigger forbi i morgen.

Gæsterne er gået, jeg kiggede på mine relationer som du rådede mig til. Og derved opdagede jeg at feltet "findes på bånd" var sat til, obligatorisk =ja, ved ændring til nej, virkede Requery pludselig. Det problem  har jeg brugt mange timer på, endelig lykkedes det.
Så er der kun det gamle problem, jeg er stødt på funktionen Parent, kunne den bruges i denne sammenhæng?
Men ikke nu jeg går i seng, god nat.

Så er jeg her igen.

Hello!

Ja!

Som jeg spurgte kunne Parent måske bruge.

Funktionen Parent benyttes til at skifte fra en underformular til dens hovedformular (Parent = Forældre). I nredenstående kode står markøren i underformularen. derfor refererer det reserverede ord Me til underformularen og sætter fokus på Parent form. Når det er sket refererer Me nu til Parent form og sender markøren videre til feltet kunde:

Me.Parent.SetFocus
Me.Parent!kunde.SetFocus

Jeg har haft kigget på dette spørgmål http://www.eksperten.dk/spm/283566, Var det evt. muligt at lade et felt i hovedformularen bestemme hvilken optagelse der skal vises.

Ja det er det vel. Men ikke uden en kode. Men jeg er ikke helt med på hvad du mener. Du skal også være klar over, at jeg har gang i et par andre brugere i øjeblikket, så uden en grundig forklaring om, hvad du ønsker, er det lidt svært at komme med forslag.

afligevel ikke.

når jeg bruger denne kode, får jeg fejlmeddelelsen
Object does´nt support this property or metod.

Dim rs As DAO.Recordset
  Dim ts As DAO.Recordset
    DoCmd.OpenForm "Forside"
    Set rs = Forms!Forside.RecordsetClone
    rs.FindFirst "BndID= " & Me!bndID
    Forms!Forside.Bookmark = rs.Bookmark
    rs.Close
   
    Set ts = Forms!Forside.ForsidesOpt.RecordsetClone
    ts.FindFirst "ID=" & Me!OptID
    Forms!Forside.ForsidesOpt = ts.Bookmark
    ts.Close
    DoCmd.Close acForm, Me.Name

Første halvdel af koden fungerer fint alene.

DAO er til brug i Access97. Kontroller, at du i formularens kodevindue har en reference til DAO. Den hedder noget med Microsoft DAO 3,6 Library.

Tools > References og du må ikke have fejlmeddelelsere kørende.

Jeg  har reference til DAO 3,6 Library.
Det er først når jeg tilføjer

Set ts = Forms!Forside.ForsidesOpt.RecordsetClone
    ts.FindFirst "ID=" & Me!OptID
    Forms!Forside.ForsidesOpt = ts.Bookmark
    ts.Close

At den brokker sig, den åbner det rigtige båndnr.

Du må få en indikation af hvor det går galt. Kan du ikke bruge den kode du konstruerede i dit tidligere spørgsmål:

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

Det er blevet sent, jeg kan ikke længere tænke klart. Tak for i dag , god nat.

Godnat.

Prøver det ,,  i morgen.

Hi Mugs
Ja, det er længe siden, jeg har i mellemtiden prøvet mig frem med lidt af hvert for at knække denne nød. Nu er det endeligt lykkedes. her er koden

Dim b As String
    b = Me.OptTitel
    DoCmd.OpenForm "forside"
    Forms!forside!Båndnummer.SetFocus
    DoCmd.FindRecord Me!Båndnummer
    'Sætter focus på underformularen ForsidesOpt og feltet Titel.
    Forms![forside]![ForsidesOpt].SetFocus
    Forms![forside]![ForsidesOpt]![Titel].SetFocus
    DoCmd.FindRecord Me!OptTitel

Det fungerede kun med Titel feltet ikke ID feltet, det skal måske have focus,
for at kunne bruges til dette formål?
Nu kan jeg endelig komme af med de point.

Jeg har glemt alt om dette spørgsmål. Men tak for point.