Hej
 
 Jeg arbejder med en db app, som skal have samkørt data fra 2 tabeller, via 
 en tredie... Her er koden:
 
 begin
   ADOT6.First;
   While Not (ADOT6.Eof) Do
   Begin
     Buffer := ADOT6Call.Value;
     if (ADOT2.Locate('Call',Trim(Buffer) ,[loPartialKey])) Then
     Begin
         Edit2.Text := IntToStr(ADOT2.RecNo);
         ADOT1.Locate('MedlemsNr',ADOT2MedlemsNr.Value,[]);
         ADOT6.Edit;
         ADOT6Navn.Value      := ADOT1Navn1.Value;
         ADOT6CONavn.Value    := ADOT1Navn2.Value;
         ADOT6Adresse.Value   := ADOT1Adresse.Value;
         ADOT6LokalNavn.Value := '';
         ADOT6PostNr.Value    := ADOT1PostNr.AsString;
         ADOT6AdrKilde.Value  := 'EDR Medlems Kartotek';
         ADOT6Oprettet.Value  := Date;
         ADOT6.Post;
     End;
     ADOT6.Next;
   End;
 
 Det virker fint, men efter 10-11 poster melder den fejl.
 
 " Nøglefeltoplysninger er forkerte eller mangelfulde. Opdateringen berører 
 for mange rækker. "
 
 Det skal siges, at alle Call's findes i ADOT2 og alle fundne MedlemsNr 
 findes i ADOT1, så jeg er ikke helt med hvad hulen der går galt...
 
 Nogen ideer??
 
 /Finn 
 
 
  
            
             |