PDA

Vollständige Version anzeigen : SuchFormular


londi
03.08.2001, 13:03
Hallo Ihr da draußen,

Kann mir jemanden helfen??

Folgendes Problem:
Habe einem Formular mit Ein TextFeld und einem Listenfeld(mit eine Abfrage gebunden), wenn ich im TextFeld einen Name eintippe soll im Listenfeld anfangen nach den Name zu Suchen und markieren, dann mit der Return-Taste soll ein bestimmtes Wert aus den ausgewählten DS (zB:"ID-NR")im einem TextFeld in einem anderen Formular angezeigt werden.

DANKE im voraus!!!!

MFG
londi

A.S.
03.08.2001, 16:56
Hallo Londi,

Dazu mußt Du wissen, in welcher Spalte (bei 0 angefangen zu zählen) die Date steht die durchsucht werden soll und dann die ganze Auflistung durchlaufen.

Private Sub Text0_AfterUpdate()
Dim lngCount As Long
If Me.Liste1.ListCount > 0 Then
For lngCount = 0 To Me.Liste1.ListCount - 1
If Me.Liste1.Column(DeineSuchSpalte, lngCount) = Me.Text0.Value Then
Me.Liste1.Value = Me.Liste1.Column(DeineGebundeneSpalte, lngCount)
Exit For
End If
Next lngCount
End If
End Sub

DeineSuchSpalte ist dabei die Nummer der Spalte in der der zu suchende Begriff steht. DeineGebundeneSpalte ist die Nummer der Spalte an die das Listenfeld gebunden ist. Hier kann auch auf die entsprechende Eigenschaft verwiesen werden und 1 abgezogen werden.

------------------
HTH

Arno

londi
16.08.2001, 09:15
Hallo ArnoSimon,
habe eine Frage:

Die "SuchSpalte" ist auf den ListenFeld bezogen oder auf die Tebelle/Abfrage?

habe beide ausprobiert und funzt nicht!

wo liegt das Problem?
Hier der Code

Private Sub Suche_AfterUpdate()
Dim lngCount As Long
If Me.Kundenliste.ListCount > 0 _
Then
For lngCount = 0 To Me.Kundenliste.ListCount - 1
If Me.Kundenliste.Column(3, lngCount) = Me.Suche.Value Then
Me.Kundenliste.Value = Me.Kundenliste.Column(1, lngCount)
Exit For
End If
Next lngCount
End If
End Sub

Kundenliste=Listenfeld
Suche=Textfeld

Gruß
londi