Kopiering af poster fra forespørgsel til tabel 50 / 150

En rettelse - felterne 1 og 2 skal kopieres hvis felt3 i tabel 1 = felt3 i Qry 1

Du kan bruge DLookup!~)

Og hvorledes gør jeg det.

I would make an append query which, if tabel.felt3 = qry1.felt3 copies the columns into table 1.

But maybe a bit more information would help find a better solution.

What does qry1 contain?
Why should it be done in a form?
If th eform gets closed then opened again then the procedure will be repeated, is this a good idea?

If there is more than one record in the form how do we find the record to copy from qry1
.
.
.
?

Det er lidt vanskeligt at forklare, derfor har jeg simplificeret udkastet.
Qry indeholder ca 20 felter - blandet info tekst, tal og datoer som skal overføres til tbl 1 når en formel baseret på tbl udfydes - Det ene af felterne i formlen - lad os sige felt 3 indtastes med en unik værdi, som allerede findes i qry1 felt 3 - den post hvor hvor de to værdier stemmer overens skal kopieres til tabellen. Giver det nogen mening, jeg er ikke en nørd til koder.

Sorry terry i will try to translate
Qry 1 contains aprox 20 fields - mixed text, numbers and dates which have to be copied into tbl 1 when you fill out a form based on tbl 1. One of the fields in the form let us say field 3 is filled out with a unik value which allready is in qry 1 field 3, the row where the the to values are identical should be copied to tbl 1.

You could confirm the the procedure with a command button

Undskyld, så er jeg her igen (kortvarigt!~)

ang. den Dlookup...

Du har din forespørgsel, der laver du et kriterie, som er forms!DinFormular!Felt3 dvs. at hvis du har udfyldt felt3 og du kører forespørgslen, så vil den fremkomme med den post, som indeholder de felter du skal bruge.

På din EfterOpdaterings hændelse på felt3 laver du så noget kode a'la:

me.felt1=dlookup("[felt1]","DinForespørgsel")
me.felt2=osv... osv...

Det kan godt være den melder fejl hvis der ikke er et hit ved forespørgslen, men det kan du løse med at starte din kode med On Error Resume Next (ellers skal du tælle poster i din forespørgsel og lave en if sætning!~)

Du kan også bruge terrys forslag ved at lave denne forespørgsel med kriteriet om til en opdateringsforespørgsel og så køre en me.requery men hvis du lige har oprettet posten vil du komme i problemer, da du ikke kan "ramme" posten med din opdateringsforespørgsel sådan uden videre.... hvis du bruger en tilføjelsesforespørgsel så vil du ende med 2 poster, medmindre du laver nogle krumspring!~)

Jeg er noget forvirret, men det skyldes måske at jeg har et forklaringsproblem -

Qry 1:  Felt1  Felt2  Felt3 o.s.v.  Tbl 1:  Felt1  Felt2  Felt3 o.s.v.

                                    Qry 2:  Felt1  Felt2  Felt3 o.s.v.

                                    Form 1  Felt1  Felt2  Felt3 o.s.v.

Qry1 Felt1 indeholder en række unikke værdier. Den post i Qry1 hvor Felt1 er identisk med den indtastede værdi i Felt1 i Form1 skal kopieres til Tbl1.

Jeg er ogås forvirret :o)

If you can send the dB to me then maybe it would be easier to find a solution.

ekspertenATsanthell.dk
AT = @

Jeg har indsat qry2 for at anskueliggøre at form1 ref. til en qry (qry2)som er baseret på tbl1 og andre tabeller.
Med hensyn til at sende dig databasen vil jeg lige oplyse at hele databasen består af 30+tbl, 20 qry samt 50 frms og makro. Det er et project jeg har arbejdet med i mere end et år for at lære access, men hvis det er ok med dig vil jeg godt sende den.

You can either send me the whole dB or just what is necessary to find a solution.

You could copy the appropriate objects (tables/forms etc.) to a new dB.

And a short explanation of what your trying to do also please (Danish is fine)

Hvis form1 ikke har noget at gøre med tbl1, så er en tilføjelsesforespørgsel ikke noget problem... Prøv at se dette eksempel, start med at åbne tbl1, luk den så igen, indtast 1, 2 eller 3 i form1 og luk herefter tbl1 op igen!~)

www.spgprogramming.com/access/Eksperten/spm825203.mdb

This is the code I used. Becaus ethere is no primary key in the main table to the form it isnt possible to us an update query because you dont know which record to update. And because other fields alos need to be enetered through the form its not possible to just append from the query to the table. So in this case Dlookup (or copy data from a recordset) can be used.


Private Sub Command24_Click()
On Error GoTo Err_Command24_Click

    If DCount("*", "qryStoreEntry", "[Serial Number] = '" & Me.[Serial Number] & "'") = 0 Then
   
        MsgBox "Enter valid Serial Number", vbExclamation
    Else
   
        If MsgBox("Copy data?", vbQuestion + vbYesNo) = vbYes Then
       
            'Add other fields here   
            Me.[Part Number] = DLookup("[Part Number]", "qryStoreEntry", "[Serial Number] = '" & Me.[Serial Number] & "'")
           
       
        End If
       
   
    End If
   

Exit_Command24_Click:
    Exit Sub

Err_Command24_Click:
    MsgBox Err.Description
    Resume Exit_Command24_Click
   
End Sub

Hallo!!!
Jeg er tilsyneladende ikke i stand til at tildele Terry de 200 point for accepteret svar.Jeg har trykket på accepter flere gange uden at der sker noget.

you first need to select my name form the leist of accepted answers.

Ok, it`s done

mange tak