samling af felter

Lav en ny tabel med felterne Kundenr og Notat. Lav herefter en opdateringsforespørgsel, der opdaterer begge felter. I forespørgslen indsætter du kriteriet under kundenr.

Du kan så ændre forespørgslens SQL sætning til en VBA-kommando således:

SQL = "Her kopierer du SQL fra forespørgslen på een linie og sletter ; i slutningen"
Do.Cmd.RunSql SQL

Det ser spændende ud, har du en ide til hvordan jeg definer kriterierne for at få den til at lægge alle kunde 1's notater sammen ?

Hvis du ikke er vant til at skrive en SQL-sætning, er det nemmeste du kan gøre at lave en forespørgsel og skrive dit kriterie f.eks 1 på kriterielinien under kundenr. Så vil opdateringsforespørgslen kun medtage de poster hvor kundenr er = 1

Prøv først at få det til at fungere, så kan du senere eksperimentere med at kopiere din SQL ind i VBA.

Jeg tror ike det er en holdbar løsning - Beklager, arbejder lidt videre.

Not quite sure I have understood the question correctly, but if I have then it will require that you do it in code. I think it will also be best to have another table to copy the new data into.

Just to make sure  what you want.

Kunde nr          notat

1            bjbjfdjalkjfkaddllknvdlkdnlbknflfblkblfnbfklnjk
2            kdkdkdkdk
3            jfddblfjlkdjfkdj
4            fbnlkfbnbnklknbldjflkblkbnblfkn<lknfdkfb

Der er en simpel mekanik i VBA, som altid kan bruges ved manipulationer med felter i
en furmular. Skelettet ser således ud:

Private Sub Form_Open(Cancel As Integer)
            Dim SidsteNr As Long

            DoCmd.GoToRecord , , acLast
            [ID] = SidsteNr
            DoCmd.GoToRecord , , acFirst
           
            Do
                 
                  ' felt-manipulationer her
           
           
                    If [ID] = SidsteNr Then Exit Do
                    DoCmd.GoToRecord , , acNext
            Loop
            DoCmd.Close
End Sub

1. Du laver en formular, som bygger på en tabel med alle de felter, du har brug for.
2. Der skal endvidere være et autonummereringsfelt med navnet ID.
3. Når du har lavet formularen vælger du VedÅbning og indsætter koden her.
4. Formularen lukker sig selv, når processen er færdig

Just in case I have understood your question

Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim rsTemp As ADODB.Recordset
Dim knr As Integer
   
       
    Set rs = New ADODB.Recordset
    Set rsTemp = New ADODB.Recordset
   
    Set rsTemp.ActiveConnection = CurrentProject.Connection
    rsTemp.Open "SELECT * FROM tblKundeTemp", , , adLockOptimistic
   
       
    With rs
   
        Set .ActiveConnection = CurrentProject.Connection
       
        .Open "SELECT * FROM tblKunde", , , adLockOptimistic
           
        knr = rs!KundeNr
   
        Do Until .EOF
       
            rsTemp.AddNew
           
            rsTemp!KundeNr = rs!KundeNr
            rsTemp!Notat = ""
           
            Do Until rs!KundeNr <> knr
       
                rsTemp!Notat = rsTemp!Notat & rs!Notat
                .MoveNext
               
                If .EOF Then GoTo EXIT_EOF
            Loop
EXIT_EOF:
            rsTemp.Update
            If Not rs.EOF Then knr = rs!KundeNr
        Loop
       
    End With
   
    rs.Close
    rsTemp.Close
   
    Set rs = Nothing
    Set rsTemp = Nothing
   
    Set con = Nothing

Tja, så kom terry først, for så vidt jeg kan se gør hans rutine det samme som:

Sub Kopier()
Dim rs1 As Recordset
Dim rs2 As Recordset
Dim Test As Variant
Set rs1 = CurrentDb.OpenRecordset("SELECT Kundenr, Notat FROM Tabel1 ORDER BY Kundenr")
Set rs2 = CurrentDb.OpenRecordset("Tabel2")
If Not rs1.EOF Then
  rs1.MoveFirst
  Do
    If rs1!Kundenr <> Test Then
      If Not IsEmpty(Test) Then
        rs2.Update
      End If
      Test = rs1!Kundenr
      rs2.AddNew
      rs2!Kundenr = rs1!Kundenr
      rs2!Notat = rs1!Notat
    Else
      rs2!Notat = rs2!Notat & rs1!Notat
    End If
    rs1.MoveNext
  Loop Until rs1.EOF
  If Not IsEmpty(Test) Then
    rs2.Update
  End If
End If
rs1.Close
rs2.Close
Set rs1 = Nothing
Set rs2 = Nothing
End Sub

I'de better make a small alteration so as to make sure we get the kundenr together

rsTemp.Open "SELECT * FROM tblKund ORDER BY kundenr", , , adLockOptimistic

:o)

and I'm sure the code could be optimized, but if its a one off then who cares

Den færdigr kode kan f.eks.se sådan ud:

Private Sub Form_Open(Cancel As Integer)
            Dim SidsteNr As Long
            Dim AktuelKunde as Variant
            Dim Kunde AS Variant
            Dim Notat AS String
           

            DoCmd.GoToRecord , , acLast
            [ID] = SidsteNr
            DoCmd.GoToRecord , , acFirst
         
            AktuelKunde =1
            Notat = ""
            Do
                  Kunde = [KundeNr]
                  IF Kunde =AktuelKunde THEN
                      Notat =Notat  & [Notat]
                  ELSE
                      AktuelKunde = Kunde
                      IF Kunde>1 THEN
                        DoCmd.GoToRecord , , acPrevious
                        [Nyt_Notat] = Notat
                        DoCmd.GoToRecord , , acNext
                        Notat = [Notat]
                      END IF                         
                  END IF
           
                    If [ID] = SidsteNr Then Exit Do
                    DoCmd.GoToRecord , , acNext
            Loop

            DoCmd.Close
End Sub

Forespørgslen bag formularen skal være sorteret efter Kunde Nr.
Til slut fjerner du de blanke felter med en Tabeloprettelses-forespørgsel.

Mangler du ikke et nøglefelt eller sorteringsfelt for dine notater? Hvordan vil du ellers sikre dig at notaterne bliver konkateneret i den rigtige rækkefølge - eller er det lige meget?

I øvrigt kan du udbygge Terrys eksempel (og de andres) med VbLf (linieskift), så notaterne kommer på hver sin linie, og så er rækkefølgen måske lidt mere ligegyldig:

...
Do Until rs!KundeNr <> knr
       
    rsTemp!Notat = rsTemp!Notat & VbLf & rs!Notat
    .MoveNext
               
    If .EOF Then GoTo EXIT_EOF
Loop
...

it-manden.dk> Its easier for use to help if you also give some input

takker

selv tak, håber du fik noget til at virk?

jeps, både din og fynbohans's svar fik jeg til at virke,
tak til clausdamlund for godt indput - super