Kopier 3 felter fra record hvis de findes i tabellen

Skaber du ikke redundante data på den måde ... er der ikke blot tale om at du skal benytte nogle relationer imellem tabellerne ???

Jo det har du ret i men. Jeg kunne have lavet en tabel med identer, det er bare ikke gjort og bliver ikke gennemført., så hvis du har en ide alligevel hører jeg gerne.

Giv mig et eksempel på tabelindholdet, og lad os arbejde videre derfra

Regnr,Navn,adresse,Modtagedato,varighed,bemærkninger,osv,slutdato,bruger,regtidspunkt
Navn,adresse kan være i flere records.

Hvad er det så du vil i forhold til denne tabel ???

Formen åbner i tilføj record/post. Når jeg taster et regnr som eksisterer, så skal Navn og adresse udfyldes automatisk (kopieres fra gl post og indsættes i den nye post)

Du kan lave noget som virker med en opdateringsforespørgsel, lidt a´la dette :

UPDATE tblData
INNER JOIN tblData AS tblData_1
ON tblData.Regnr = tblData_1.Regnr
SET tblData_1.Navn = [tblData]![Navn],
tblData_1.Adresse = [tblData]![Adresse]
WHERE (((tblData_1.Navn) Is Null))
OR (((tblData_1.Adresse) Is Null));

Tak indtil videre jeg skal lige teste og det kan jeg først gøre senere på dagen.

Kan du se systematikken i SQL-forespørgslen ?

Det ideelle ville naturligvis være, hvis du havde een tabel med kunder ( Regnr, Navn og adresse ) og så udelukkende benyttet Regnr i dine efterfølgende registreringer, med relation til kundetabellen.

Nej jeg er ikke helt med på hvad der sker ! Bliver der oprettet en ekstra tabel ?

Skal jeg lave en kommando:  Runsql på hændelsen focus væk eller ?

Nej, det er een og samme tabel ( tblData ) du medtager to gange i forespørslen. Denne sammenligner så med sig selv på de blanke poster ( Is Null ), og opdatere disse, hvis der findes relaterede poster ( SET tblData_1.Navn = [tblData]![Navn] )

AfterUpdate eller LostFocus skulle kunne benyttes

Har du hel syntaksen ?:
Runsql UPDATE tblData INNER JOIN tblData AS tblData_1 ON tblData.Regnr = tblData_1.Regnr
SET tblData_1.Navn = [tblData]![Navn],
tblData_1.Adresse = [tblData]![Adresse]
WHERE (((tblData_1.Navn) Is Null))
OR (((tblData_1.Adresse) Is Null));

Har jeg ret:
Docmd.runsql UPDATE tblData INNER JOIN tblData AS tblData_1 ON tblData.Regnr = tblData_1.Regnr
SET tblData_1.Navn = [tblData]![Navn],
tblData_1.Adresse = [tblData]![Adresse]
WHERE (((tblData_1.Navn) Is Null))
OR (((tblData_1.Adresse) Is Null));

Plejer selv at benytte DAO :

Function Opdater_tblData()
Dim strSQL As String
Dim db As DAO.Database

    Set db = CurrentDb()
   
    strSQL = "UPDATE tblData "
    strSQL = strSQL & "INNER JOIN tblData AS tblData_1 "
    strSQL = strSQL & "ON tblData.Regnr = tblData_1.Regnr "
    strSQL = strSQL & "SET tblData_1.Navn = [tblData]![Navn], "
    strSQL = strSQL & "tblData_1.Adresse = [tblData]![Adresse] "
    strSQL = strSQL & "WHERE (((tblData_1.Navn) Is Null)) "
    strSQL = strSQL & "OR (((tblData_1.Adresse) Is Null));"

        db.Execute strSQL
       

End Function

Jeg prøver den lige

Husk ref til dao :o)

Ja, det har jeg, men det virker ikke. Skal der være komma efter [Navn] ?

Ja

Jeg har lagt koden på after update på feltet Regnr

Og ... hvad sker der ?

ingenting. Er der byttet om på tbldata og tbldata_1. Det er jo tbldata der skal opdateres.

Aller først, hvad hedder din tabel ????

Tabellen hedder: kode1.
--------------

Se det forklarer jo noget ... :o)

Dim strSQL As String
Dim db As DAO.Database

    Set db = CurrentDb()
   
    strSQL = "UPDATE tblData "
    strSQL = strSQL & "INNER JOIN kode1 AS kode1_1 "
    strSQL = strSQL & "ON kode1.Regnr = kode1_1.Regnr "
    strSQL = strSQL & "SET kode1_1.Navn = [kode1]![Navn], "
    strSQL = strSQL & "kode1_1.Adresse = [kode1]![Adresse] "
    strSQL = strSQL & "WHERE (((kode1_1.Navn) Is Null)) "
    strSQL = strSQL & "OR (((kode1_1.Adresse) Is Null));"

        db.Execute strSQL
       

End Function

Det kan da ikke passe. Der skal vel også rettes ud for update, men det virker stadig ikke

Ups ... glemte lige 1. linie

Det burde virke ... har du prøvet at åbne/lukke formularen og set, om posten er opdateret ?

Jeg skal lige spise min madpakke.

Velbekommen ... :o)

Skal jeg lave en function og så lave call på den.
Hvis du tager hele "after update" koden med, hvordan ser det så ud ?

Om du afvikler den som en global funktion, eller direkte ifbm AfterUpdate er uden betydning, altså ...

Private Sub Regnr_LostFocus()
Dim strSQL As String
Dim db As DAO.Database

    Set db = CurrentDb()
   
    strSQL = "UPDATE kode1 "
    strSQL = strSQL & "INNER JOIN kode1 AS kode1_1 "
    strSQL = strSQL & "ON kode1.Regnr = kode1_1.Regnr "
    strSQL = strSQL & "SET tblData_1.Navn = [tblData]![Navn], "
    strSQL = strSQL & "kode1.Adresse = [kode1]![Adresse] "
    strSQL = strSQL & "WHERE (((kode1_1.Navn) Is Null)) "
    strSQL = strSQL & "OR (((kode1_1.Adresse) Is Null));"

        db.Execute strSQL
                           
    Me.Refresh

End Sub

Jeg prøver lige

Noget virker nu men, navn og adresse indsættes på seneste post og ikke på aktuelle post. Hvad mener du om det.

Seneste post er vel også den som er blank ?

Når jeg f eks tapper ned på næste felt, så skulle navnet og adressen dukke op.
Me.Refresh vil ikke køre. Selv om jeg vælger opdater i menuen så dukker navn og adresse ike op i felterne i aktuelle post. Når jeg har lukket formen og genåbnet så kan jeg navigere tilbage og se at Navn og adresse er blevet indsat ?

Ok, så kan vi i hvertfald konstatere, at opdateringen i posten foretages, så er det blot at få formularen opdateret i samme åndedrag.

Jeg har lige været til møde ... er du kommet længere ?

ja lidt, Hvis jeg taster "Enter" og går tilbage til posten, så er navn og adresse blevet indsat. Nu roder jeg med en kode som vil flytte frem og tilbage ved at jeg taster "tap". Jeg har prøvet: Recordset.Movelast  Det er ikke godt.

Jeg har desværre ikke mere tid til at hjælpe i dag ... håber du finder en løsning

Tak for idag

selv tak

Håber, at dit ping-pong med jensen har fået dig tættere på en beskrivelse af problemet. Foreslår, at du lukker og stiller et nyt og mere præcist spørgsmål - nyhedens interesse er vist stor herinde.

Jeg har lavet en function og kalder den fra feltet "Regnr"
-------------------------------------------------
Call Opdater_kode1
            Forms!Indtast_data_rediger.Refresh
            Call Opdater_kode1
            Forms!Indtast_data_rediger.Refresh
            [Navn].SetFocus
------------------------
Og det virker. Det underlige er bare at der skal laves refresh 2 gange ?

Ok, det er sjældent at vi IT'ere forsker i ting, der virker - så jeg synes bare du skal lukke.