samle udsagn

Hvad mener du med "sum"

udsagn1 , udsagn2 , udsagn3 etc

Har lavet en løsning , så skal de bare smides ind i en string , men hvad sker der så når der fx kommer 100 udsang ?


Public Sub Print_Field_Names()
Set dbs = CurrentDb
    Set rstudsagn1 = dbs.OpenRecordset("tbl_skema", _
        dbOpenDynaset)

         
With rstudsagn1
       
    Do While Not .EOF
            Debug.Print !best
            .MoveNext
    Loop
  End With
 
End Sub

Så får du en allerhel..des lang string o;)

Kan du ikke lave en underrapport, der samler alle udsagn listet under hinanden?

hehe jo ... det kunne jeg vel men har jo 4 forskellige og ville gerne have sorteret null fra osv . søge på om der er gengangere etc.

derfor jeg vælger vba løsningen er det helt skæøvt

Du kan lave en forespørgsel til alle 4 (Forespørgsler fylder jo ikke noget, når de ikke køres. Indsæt kriterier som f.eks Not Null og brug Select Distinct, så forespørgslen kun tager den første forekomst af en string hvis der er dubletter.

nu køre den men ...

kan ikke bruge ++ så den ikke overskriver ens string men tilføjer..



koden ser pt sådan ud


Set dbs = CurrentDb
    Set rst = dbs.OpenRecordset("tbl_skema", _
        dbOpenDynaset)

            Dim udsagn1 As String
          Dim udsagn2 As String
          Dim udsagn3 As String
            Dim udsagn4 As String
           
     
With rst
       
Do While Not .EOF
   
       
      If IsNull(rst!best) Then Else udsagn1 = udsagn1 + " ;  " + rst!best
      If IsNull(rst!worst) Then Else udsagn2 = udsagn2 + " ;  " + rst!worst
      If IsNull(rst!forslag) Then Else udsagn3 = udsagn3 + " ;  " + rst!forslag
      If IsNull(rst!gennerel) Then Else udsagn4 = udsagn4 + " ;  " + rst!gennerel
 

            .MoveNext

Loop

Me!Tekst1 = udsagn1
  Me!Tekst2 = udsagn2
  Me!Tekst3 = udsagn3
  Me!Tekst4 = udsagn4
 
  End With