12. oktober 2007 - 13:47Der er
9 kommentarer og 1 løsning
Popup subform
Jeg kan ikke få min popup subform til at lave en ny post i subformens tabel med vare_ID fra hovedformularen.
Jeg har min hovedtabel som bruges af min hovedformular hvor der indgår Vare_ID. Fra denne hovedformulat vil jeg åbne en subform som henter data fra en anden tabel fx vægt og pris. I denne anden tabel har jeg også vare_ID. Jeg har så lavet en qry som linker vare_ID fra de to tabeller. Det er fra denne qry jeg henter data til min popup-subform.
Hard to say with the information you give. What do you mean with "Popup subform", is it a stand alone form which contains related records from another form? Or is the sub form embeded into the main form?
If the sub form is stand-alone then how does a new record in a sub form know which vare_ID it is supposed to use?
In the sub forms before INSERT event you could use something like
Ja, det kan jeg godt. Hvis jeg skriver vare_ID ind manuelt i subformenstabel - åbnes den korrekt fra hovedformen. Men hvis der ikke allerede ligger en post med Vare_ID åbnes en ny post. Når jeg begynder at skrive i den kommer der ikke automatisk Vare_ID med.
I assume that the query only shows the records which already exist and are releated to the Vare_ID on th emain form, but the query cant assume that a new record will automatically use this vare_ID when you create a new record. Therefeore you need to copy the vare_ID into the foreign key field (realted field):
Hvis subformen er på selve hovedformularen kan det jo gøres automatisk. Men det kan man altså ikke på en popup subform?
Min knap på hovedformularen er som følger: stDocName = "EU" stLinkCriteria = "[VARE_ID]=" & Me![VARE_ID] DoCmd.OpenForm stDocName, , , stLinkCriteria Hvad skal jeg så gøre for at sende VARE_ID til en ny post hvis den ikke findes? Skal jeg køre endo lykke på et recordset eller kan man gøre det mere fikst?
When you open the sub form it can only show those which already exist, you have to put the vare_ID in the related field just before you write to the dB:
Dim VARa As long VARa = Me.Felt2 If DCount("*", "TABELNAVN", "[FELTNAVN] = " & VARa) = 0 Then docmd.openform "EU" DoCmd.GoToRecord acForm, "EU", acNewRec End If
Tak terry - Og i lige måde. Var ikke lige opdateret.
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.
