Office: (Office 2007) Kombinationsfeld aufsteigend sortieren

Rudolf10000 · 3. August 2012

Mit der Sortierung des Recordset funktioniert Maxels Variante ganz prima.
Aber eben für das Ganze set. Ich glaub, ich versuch mal die strings, die als rowsource der einzelnen Kombifelder dienen ,zu sortieren.
Muss man die splitten und in ein array packen oder geht das auch direkt ?

Gruß Rudolf

Atrus2711 · 3. August 2012

Kann es sein, dass du demselben Irrtum aufsitzt wie dieser Forist hier:
http://www.ms-office-forum.de/forum/...d.php?t=291837
beachte v.a. #10 und 11!

Anne Berg · 7. Januar 2021

von Rudolf10000

Aber eben für das Ganze set.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ja, natürlich!

Wenn du x Kombifelder bestücken willst, musst du dies in x Recordset-Schleifen tun.

Anne Berg · 7. Januar 2021

von Rudolf10000

Aber eben für das Ganze set.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ja, natürlich! Wie denn sonst?

Wenn du x Kombifelder bestücken willst, musst du dies in x Recordset-Schleifen tun.

Rudolf10000 · 4. August 2012

\@Anne, Danke Dir, aber das krieg ich nicht umgesetzt. Habs so versucht
Code:

Set RS = Me.RecordsetClone
With RS
.MoveFirst
Do Until .EOF

If InStr(str_discription, CStr(.Fields(1))) = 0 Then
RS.Sort = RS.Fields(1).Name
Set RS = RS.OpenRecordset()
str_discription = str_discription & ";" & CStr(.Fields(1))
RS.Close
End If

Set RS = Me.RecordsetClone
If InStr(str_OD, CStr(.Fields(3))) = 0 Then
RS.Sort = RS.Fields(3).Name
Set RS = RS.OpenRecordset()
str_OD = str_OD & ";" & CStr(.Fields(3))
RS.Close
End If

Set RS = Me.RecordsetClone
If InStr(str_ID, CStr(.Fields(5))) = 0 Then
RS.Sort = RS.Fields(5).Name
Set RS = RS.OpenRecordset()
str_ID = str_ID & ";" & CStr(.Fields(5))
RS.Close
End If
'Und so weiter
.MoveNext
Loop
.Close
End With
Set RS = Nothing
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Natürlich erfolglos. Ich will nicht weiter nerven, die Aufgabe die ich mir gestellt habe ist offensichtlich zu Anspruchsvoll für meine bescheidenen Kenntnisse.
Hab mir das Sortieren einer Kombibox wesentlich einfacher vorgestellt
Werd weiter üben
Dank Euch allen

Gruß Rudolf

Anne Berg · 7. Januar 2021

Hi,

von Anne Berg

Wenn du x Kombifelder bestücken willst, musst du dies in x Recordset-Schleifen tun.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

das heißt, du musst für jedes Kombifeld eine eigene Schleife bauen.

Rudolf10000 · 5. August 2012

\@Anne, Danke ! Du siehst wie schwer ich mich mit Schleifen tue.
Mir fehlt halt die Ausbildung. Bin kompletter Autodidakt und immer noch Anfänger. Habs aber hinbekommen.
Code:

Set rs = Me.RecordsetClone
With rs
.MoveFirst
Do Until .EOF
If InStr(str_discription, CStr(.Fields(1))) = 0 Then
str_discription = str_discription & ";" & CStr(.Fields(1))
End If
.MoveNext
Loop
.Close
End With
Set rs = Nothing

Set rs = Me.RecordsetClone
rs.Sort = rs.Fields(3).Name
Set rs = rs.OpenRecordset()
With rs
.MoveFirst
Do Until .EOF
If InStr(str_OD, CStr(.Fields(3))) = 0 Then
str_OD = str_OD & ";" & CStr(.Fields(3))
End If
.MoveNext
Loop
.Close
End With
Set rs = Nothing

Set rs = Me.RecordsetClone
rs.Sort = rs.Fields(5).Name
Set rs = rs.OpenRecordset()
With rs
.MoveFirst
Do Until .EOF
If InStr(str_ID, CStr(.Fields(5))) = 0 Then
str_ID = str_ID & ";" & CStr(.Fields(5))
End If
.MoveNext
Loop
.Close
End With
Set rs = Nothing
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

ist ja auch völlig klar, eigentlich.
Nun habe ich das Problem, daß
Code:

If InStr(str_ID, CStr(.Fields(5))) = 0 Then
str_ID = str_ID & ";" & CStr(.Fields(5))
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

keine leeren Felder akzeptiert. Habe alle leeren tabellenfelder mit 0 füllen lassen, ist aber unbefriedigend, da es später bei Berechnungen Probleme gibt.
Kann ich den String so gestalten, dass leere Felder einfach nicht berücksichtigt werden ?
Danke nochmal für Deine Geduld und beste Grüße
Rudolf

Anne Berg · 5. August 2012

Hallo,

leere Felder kannst du folgendermaßen abfangen: Code:

If Not IsNull(.Fields(5)) Then
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

oder sicherheitshalber so: Code:

If NZ(.Fields(5), "") "" Then
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

ebs17 · 5. August 2012

Alternativ könnte man ein Recordset auch filtern (analog wie oben beim Sortieren) und dabei Null-Werte ausschließen.

ebs17 · 5. August 2012

Insgesamt scheint aber die Erzeugung der Wertelisten eine unendliche Geschichte zu werden. Ich würde nochmal die Verwendung von Abfragen als RowSource für die Kombifelder ins Gespräch bringen wollen und dafür folgende Codezeilen als Diskussionsgrundlage einbringen wollen:
Code:

Private Sub cmdFilterNeusetzen()
Const csTable = "tblX" ' ungefilterte Datenherkunft des Formulars
Dim sFilter As String
Dim sSQL As String
Dim i As Long
Dim A As Variant

sFilter = ErzeugeFilter() 'Filtererzeugung sollte vorhanden sein.

' An Stelle des Arrays kann man auch eine Tabelle als Wertebezug verwenden.
A = Array("cboY1", "FeldY1", "cboY2", "FeldY2", "cboY3", "FeldY3", _
"cboY4", "FeldY4", "cboY5", "FeldY5", "cboY6", "FeldY6", _
"cboY7", "FeldY7", "cboY8", "FeldY8", "cboY9", "FeldY9", _
"cboY10", "FeldY10", "cboY11", "FeldY11", "cboY12", "FeldY12")

For i = 0 To 23 Step 2
sSQL = "SELECT DISTINCT " & A(i + 1) & " FROM " & csTable & _
" WHERE " & A(i + 1) & " Is Not Null"
If Len(sFilter) > 0 Then
sSQL = sSQL & " AND (" & sFilter & ")"
End If
sSQL = sSQL & " ORDER BY " & A(i + 1)
Me.Controls(A(i)).RowSource = sSQL
Next

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Rudolf10000 · 5. August 2012

Danke Anne, jetzt klappts perfekt (für meine Begriffe)
Code:

Set rs = Me.RecordsetClone
rs.Sort = rs.Fields(19).Name
Set rs = rs.OpenRecordset()
With rs
.MoveFirst
Do Until .EOF
If Nz(.Fields(19), "") "" Then
If InStr(str_F, CStr(.Fields(19))) = 0 Then
str_F = str_F & ";" & CStr(.Fields(19))
End If
End If
.MoveNext
Loop
.Close
End With
Set rs = Nothing
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Dank eurer Geduld wieder viel gelernt.
Mit dem Einbinden der vorhandenen Filter werde ich mich jetz mal beschäftigen.

Danke nochmal
Rudolf

Office: (Office 2007) Kombinationsfeld aufsteigend sortieren

Kombinationsfeld aufsteigend sortieren

Kombinationsfeld aufsteigend sortieren

Kombinationsfeld aufsteigend sortieren

Kombinationsfeld aufsteigend sortieren

Kombinationsfeld aufsteigend sortieren - Similar Threads - Kombinationsfeld aufsteigend sortieren

Excel 2024 Kombinationsfeld ohne Register Steuerung

Kombinationsfeld in VBA auswerten

Autovervollständigen bei Kombinationsfeld funktioniert nicht mehr

Scanner und Kombinationsfeld...

Dropdownfeld in Word Formular

Kombinationsfelder und Listeneinträge

Kombinationsfeld in Abhängigkeit