Flyt data ved click hændelse

Lav en opdateringsforespørgsel som du indsætter som click hændelse

UPDATE Tabel SET Tabel.Navn2 = [Tabel]![Navn]
WHERE (((Tabel.Navn)=[Formularer]![Formular]![Navn1]));

Kan uddybe lidt;-)

UPDATE tblEmner SET tblEmner.Navn1 = "Navn2", tblEmner.Gade1 = "Gade2", tblEmner.Nr1 = "Nr2", tblEmner.Opgang1 = "Opgang2", tblEmner.Etage1 = "Etage2", tblEmner.Side1 = "Side2", tblEmner.Postnummer1 = "Postnummer2", tblEmner.By1 = "By2", tblEmner.Email1 = "Email2";

Præcis ...

Syntaxen WHERE (((Tabel.Navn)=[Formularer]![Formular]![Navn1]));

sikrer, at dt udelukkende er den aktuelle post du opdaterer

kan også skrives sådan :

WHERE (((Tabel.Navn)=Me![Navn1]));

dette var i hvertfald ikke rigtigt - hmmm

Ups ... :o)

WHERE (((Tabel.Navn1)=Me![Navn1]));

UPDATE tblEmner
SET tblEmner.Navn2 = tblEmner.Navn1,
tblEmner.Gade2 = tblEmner.Gade1,
....
tblEmner.Email2 = tblEmner.Email1
WHERE (((tblEmner.Navn1)=Me![Navn1]));

Det går slet ikke for mig det her -

Private Sub Kommandoknap347_Click()
UPDATE tblEmner where
tblEmner.Navn1 = me.Navn2, tblEmner.Gade1 = me.Gade2, tblEmner.Nr1 = me.Nr2, tblEmner.Opgang1 = "Opgang2", tblEmner.Etage1 = me.Etage2, tblEmner.Side1 = me.Side2", tblEmner.Postnummer1 = me.Postnummer2, tblEmner.By1 = me.By2, tblEmner.Email1 = me.Email2;
End Sub

Ok ... got it ...

Du skal lige indføje

DoCmd.Setwarnings False
    DoCmd.RunSQL "UPDATE tblEmner SET tblEmner.Navn2 = tblEmner.Navn1, " & _
    "tblEmner.Gade2 = tblEmner.Gade1, " & _
    ".... " & _
    "tblEmner.Email2 = tblEmner.Email1 " & _
    "WHERE (((tblEmner.Navn1)=Me![Navn1]));"
DoCmd.Setwarnings True

Kender du SQL systematikken ?

nej ikke helt - derfor er det lidt svært for mig

Alternativt kan du oprettet hele denne i en forespørgsel :

UPDATE tblEmner
SET tblEmner.Navn2 = tblEmner.Navn1,
tblEmner.Gade2 = tblEmner.Gade1,
....
tblEmner.Email2 = tblEmner.Email1
WHERE (((tblEmner.Navn1)=Me![Navn1]));

og så benytte :

DoCmd.Setwarnings False
    DoCmd.OpenQyery "queryNavn"
DoCmd.Setwarnings True

Det der forvirre mig er WHERE (((tblEmner.Navn1)=Me![Navn1]));


Dette skal jeg vel skrive ved alle felter ik?

Hvis jeg ikke kan lave det må de jo bare indtaste det hele igen..

Tror bare jeg laver det i Vb kode ved at sætte de enkelte = hinanden

Det som er meningen er, at

WHERE (((tblEmner.Navn1)=Me![Navn1]))

sikre, at det kun er denne ene post som du foretager kopieringen for, hvis du undlod denne, ville kopieringen foretages for samtlige poster i tabellen, hvilket vel ikke er meningen. Det forudsætter naturligvis af Navn1 er en unik værdi, ellers kunne du benytte et andet felt

Hvis jeg skulle komme med et forslag, ville jeg markere i tabellen, at Leveringsadresse er den samme som betalingsadressen ( Ja/Nej )

Okay Emneid er det unikke - Ja hvis jeg kunne gøre det med et ja/nej og den så flytter det hele til navn2, gade 2 osv - så ville det være kanon

Det var ikke det, som jeg mente med at markere ja/nej. Meningen var, at du efterfølgende kunne udvælge data ved hjælp af ja/nej markeringen

If Mark = "Ja" Then
    Leveringsadresse = Navn1
Else
    Leveringsadresse = Navn2
End If

Okai den holder ikke - da vi skal rapportere begge adresser hver gang -

Jeg leger lige lidt med det

Det kan du også ... men du skal vist arbejde lidt mere med Access inden da :o)

Din forespørgsel skal se således ud :

UPDATE tblEmner
SET tblEmner.Navn2 = [tblEmner]![Navn1],
tblEmner.Gade2 = [tblEmner]![Gade1],
tblEmner.Nr2 = [tblEmner]![Nr1],
tblEmner.Opgang2 = [tblEmner]![Opgang1],
tblEmner.Etage2 = [tblEmner]![Etage1],
tblEmner.Side2 = [tblEmner]![Side1],
tblEmner.Postnr2 = [tblEmner]![Postnr1],
tblEmner.By2 = [tblEmner]![By1],
tblEmner.Email2 = [tblEmner]![Email1]
WHERE (((tblEmner.Emneid)=[Formularer]![Formular]![Emneid]));

Navngiv så forespørgslen, og benyt denne i click hændelsen

DoCmd.Setwarnings False
    DoCmd.OpenQyery "Forespørgselsnavn"
DoCmd.Setwarnings True

Stavefejl :

DoCmd.OpenQuery "Forespørgselsnavn"

WHERE (((tblEmner.Emneid)=[Formularer]![Formular]![Emneid]));


Formularer!Formular - Er det bare navnet på min formlar??

Korrekt ... :o) [Formularer]![DitFormularNavn]![Emneid] ...

UPDATE tblEmner SET tblEmner.Navn2 = [tblEmner]![Navn1], tblEmner.Gade2 = [tblEmner]![Gade1], tblEmner.Nr2 = [tblEmner]![Nr1], tblEmner.Opgang2 = [tblEmner]![Opgang1], tblEmner.Etage2 = [tblEmner]![Etage1], tblEmner.Side2 = [tblEmner]![Side1], tblEmner.Postnummer2 = [tblEmner]![Postnummer1], tblEmner.By2 = [tblEmner]![By1], tblEmner.Email2 = [tblEmner]![Email1]
WHERE (((tblEmner.Emneid)=Me![Emneid]));

Er ikke helt sikker, men mener at du skal bruge hele syntaxen, når du benytter den i en forespørgsel, altså :

[Formularer]![DitFormularNavn]![Emneid]

Det virker - men det er som om jeg skal ud og ind igen før det virker - den kommer ikke bare automatisk

Afslut med
   
Me!Refresh

det skulle opdatere den aktuelle visning

Takker

Den gør det godt nok ikke med det samme jeg skal trykke to gange på knappen - men så virker det også og det er ellers en almindelig Click event

Velbekommen