PDA

Vollständige Version anzeigen : Weiter-Button für Kombi-Feld


Beat Gurtner
01.10.2002, 08:01
hi,

wie kann ich so ein Button machen, der mir immer denn nächsten Wert eines Kombi Feldes anzeigt. Ein zurück wäre natürlich auch praktisch.

danke

Scorefun
01.10.2002, 10:14
hi,

angenommen, Dein Kombifeld heißt K1

Dann koennten Deine Buttons wie folgt mit Code gefüllt werden:

Vorwärtsblättern:


Private Sub btnVor_Click()
Dim i As Integer
i = Me.k1.ListIndex

If i <> Me.k1.ListCount - 1 Then
Me.k1 = Me.k1.ItemData(i + 1)
End If
End Sub


Und für Zurückblättern:


Private Sub btnZurueck_Click()
Dim i As Integer
i = Me.k1.ListIndex
Me.k1 = Me.k1.ItemData(i - 1)
End Sub


Wenn ich Dich richtig verstanden habe...

Gruss Ralf

A.S.
01.10.2002, 10:53
Hallo Beat,

<a href="http://downloads.access-help.de/CboDemoUpDwn.zip" target="_blank">hier</a> findest Du eine kleine DemoDB, welche das ganze mit dem MS SpinControl macht, was optisch IMHO schöner ist ;)

Das SpinControl fügst Du über Einfügen/ActiveX oder über das "Hammer/Schraubenschlüssel-Kreuz" in der Toolbox einfügen.

Gruß

Arno

Beat Gurtner
01.10.2002, 11:41
Ok das war schon recht gut.

Aber diese Kombi Feld ist eigenltech ein such Feld für ein ListenFeld.

Nun sollte es denn Datensatz direkt anzeigen.

Beat Gurtner
01.10.2002, 11:45
@ A.S.

konnte die DB nicht öffnen: "NIcht erkennbares Datei Format"

Beat Gurtner
01.10.2002, 11:58
hat geklappt

A.S.
01.10.2002, 11:59
Hallo Beat,

<a href="http://downloads.access-help.de/CboDemoUpDwn97.zip" target="_blank">hier</a> ist die DB im 97er-Format.

Hinweis: Evtl. ist die Version des SpinControls bei Dir nicht auf dem Rechner installiert, so das Du das Beispiel händisch einmal neu aufbauen mußt.

Gruß

Arno