Kombinationsfeld Auswahl > 65.535 Zeichen

[ebs17]

Zur Überlegung: AfterUpdate kommt nach den Änderungen bei der Eingabe (Change-Event).

Ich schrieb: Standarddatenherkunft vor Sucheingabe

If Len(.Text) > 1 Then     ' hier steht 3 bei ebs17, eben, um die DS differenzierter/drastischer einzuschränken...
... richtig erkannt. Und als Ergänzung: Falls das keine Spaßdatenbank ist und da wirklich viele Datensätze drin liegen, die womöglich noch über ein Netzwerk geholt müssen, ist dieses Abfragefeuerwerk eine enorme Belastung, die kostet. Daher würde man sich das Recordset einmalig holen:
If Len(.Text) = 3 Then ...

Der eingebende User hat sicher mehr davon, wenn er bei der Eingabe die Eigenschaft "Automatisch ergänzen" nutzen kann.

//Edit:

Idee???

Kennst Du Komprimieren?

MfGA
ebs

[RKSRInfo]

  Danke für die Infos, bisher bei dieser Menge im Netzwerk keine Probleme.

Wo soll "Standarddatenherkunft" hin?

Komprimieren kenne ich, um relistische Daten zu haben bin ich bei 4,5 MB. Habe soviel ich konnte abgespeckt.

mfg

RKSRinfo

[DF6GL]

Hallo,

schick mir das Ding per Email...

zu finden im Link bei "Hilfestellung"

[ebs17]

Wo soll "Standarddatenherkunft" hin?

Das nimmst Du jetzt wortwörtlich?

Die Abfrage setzt Du in die Eigenschaft "Datenherkunft (RowSource)" des Kombifeldes im Formularentwurf. Damit ist der Zustand bei Neuöffnen des Formulars geklärt.

Zusätzlich solltest Du, wenn Du mehrere Suchvorgänge nacheinander ausführst, nach Ende eines abgeschlossenen Vorgangs oder zu Beginn eines neuen Suchvorgangs das Recordset wieder auf leer setzen.

MfGA
ebs

[bahasu]

Hi

im Formular1 auf den Button drücken => es werden > 65536 Datensätze angelegt.
Formular2. Im Kombifeld wird eine Liste mit mehr als 65536 Datensätzen aufgemacht (dauert halt etwas)

Harald

[Anhang gelöscht durch Administrator]

[RKSRInfo]

Hallo df6gl,

wollte die Mail senden - unzustellbar -->
           
            'df6gl@gmx.de' am 02.10.2012 17:38
            554 Mail size limit exceeded.
mfg
RKSrinfo

[DF6GL]

Hallo,

hast Du das Ding gezippt, bzw. als rar-Archiv komprimiert?

[bahasu]

Hi,

wie lautet die Antwort auf
Frage 2: Funktioniert Deine Abfrage mit weniger Zeichen bzw. Datensätzen? aus dem 5.ten Beitrag?

Der Hintergrund ist: Wenn das Problem auch bei weniger als 65536 Daten auftritt, reicht es aus, eine Datenbank mit wenigen Datensätzen zur Verfügung zu stellen. Es ist in diesem Fall leicht vorstellbar, dass zumindestens die Schwierigkeiten wegen der Größe der Datenbank beim Bereitstellen hier im Forum bzw. beim Versenden in einer Email beseitigt sind.


Welches Ergebnis / welchen Kommentar hast Du zu meinem Beitrag vom Oktober 02, 2012, 16:41:52?


Harald

[ebs17]

welchen Kommentar hast Du zu meinem Beitrag

Neben dem Aspekt, dass etwas "geht", sollte man auch im Blick haben, ob es angemessen und sinnvoll ist, Stichworte: Bedienfreundlichkeit, Performance.
- Wer möchte sich durch 65.000 Datensätze durchblättern?
- "dauert halt etwas": Fühlt man sich eingeschränkt, wenn ein oder mehrere solcher Kombifelder am Wirken sind?

MfGA
ebs

[RKSRInfo]

Franz hat eine Lösung die in 2 Schritten funktioniert:

Private Sub Einzelteil_Nr_AfterUpdate()
Me![Einzelteil-Nr].RowSource = "SELECT [Teile-Nr], Artikelname, Artikelzusatz FROM tblArtikel order by [Teile-Nr]"
End Sub

Private Sub Suchtext_AfterUpdate()
Me![Einzelteil-Nr].RowSource = "SELECT [Teile-Nr], Artikelname, Artikelzusatz " & _
" FROM tblArtikel Where [Teile-Nr] Like '" & Me!Suchtext & "*'"

Me![Einzelteil-Nr].SetFocus
Me![Einzelteil-Nr].Dropdown
End Sub

Danke an alle! 

[RKSRInfo]

Eine Tabelle hat mehr wie die 65000 Zeichen. Daher werden nicht alle Artikel angezeigt. Nun habe ich versucht durch eine Vorauswahl des ersten Zeichens die Auswahl einzuschränken, es klappt aber nicht.

Im Formular Kombinatsonsfeld bei Taste auf Feld "STeile-Nr":

    With Me![STeile-Nr]
        If Len(.Text) = 1 Then
            .RowSource = "SELECT Id, [Teile-Nr]" _
                        & " FROM Artikel" _
                       & " WHERE Left([STeile-Nr.],1) = '" & .Text & "'"
            .Dropdown
        End If
    End With