title image


Smiley Re: Viele Felder durchsuchen lassen und Inhalt als Verkettung ausgeben ...?
Versuche es mal damit unter VBA:



Public Function Zusammen()

Dim Rst As DAO.Recordset

public function DEINE_FUNKTION()

Dim tField As DAO.Field

Dim tGrößen As String



Set Rst = CurrentDb.OpenRecordset("DEINE_TABELLE")

If Rst.RecordCount > 0 Then

Rst.MoveFirst

While Not Rst.EOF

tGrößen = ""

For Each tField In Rst.Fields

If InStr(1, tField.Name, "Größe") > 0 Then

If tField.Value > 0 Then tGrößen = tGrößen & tField.Value & ";"

End If

Next

Debug.Print Rst!ModellNr & ": " & tGrößen

Rst.MoveNext

Wend

End If

Rst.Close: Set Rst = Nothing



End Function


Grüße CSF Meine Beiträge beziehen sich grundsätzlich auf A00, so nicht anders angegeben. ============================================================= Schlaue Sprüche sind leicht gemacht, wirkliche Hilfe zu geben ist deutlich schwerer! =============================================================

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: