Access-o-Mania

Access-Forum (Deutsch/German) => Formular => Thema gestartet von: chappi am April 14, 2017, 09:22:16

Titel: Formular mit ungebundenen Suchfeld
Beitrag von: chappi am April 14, 2017, 09:22:16
Hallo Leute,

Ich habe folgendes Problem,

Ich habe ein Formular in dem ich meine Artikel verwalte.
Zu jedem Artikel gibt es einen Alternativen Artikel der in einem separaten Feld angezeigt wird.
Zu den Artikel gelange ich über ein ungebundenes Suchfeld.
Nun möchte ich erreichen, das wenn man einen doppelklick auf den Alternativen Artikel macht das er über mein ungebundenen Suchfeld selektiert wird.
Ich habe es über eine Variable versucht komme aber nicht weiter da er mir den Wert nicht ins Suchfeld übergibt.

Ich hoffe mir kann jemand helfen

Danke
Chappi

Titel: Re: Formular mit ungebundenen Suchfeld
Beitrag von: DF6GL am April 14, 2017, 10:21:20
Hallo,

zeige bitte den Tabellenaufbau und den Code, der zum Suchen benutzt wird.


Prinzipiell (und ohne Berücksichtigung von Normalisierungsregeln):

Sub AltArtikelname_DblClick(Cancel as Integer)
Me!!AltArtikelname = Me!AltArtikelname
Me.Recordset.Findfirst "Artikelname= '" & Me!AltArtikelname & "'"
End Sub
Titel: Re: Formular mit ungebundenen Suchfeld
Beitrag von: chappi am April 14, 2017, 10:45:01
Datenherkunft:
SELECT Artikel.[ID], Artikel.Artikel, Artikel.Bezeichnung FROM Artikel ORDER BY Artikel.Artikel;
mein Code:
Private Sub SucheArtNr_AfterUpdate()
Me.RecordsetClone.FindFirst "[ID] = " & Me![SucheArtNr]
    Me.Bookmark = Me.RecordsetClone.Bookmark
    Me.FilterOn = False
        Me.BIN.SetFocus
End Sub
Titel: Re: Formular mit ungebundenen Suchfeld
Beitrag von: chappi am April 14, 2017, 11:00:19
Danke ich habs.
Ich habe es so gelöst:

Private Sub alt_artikel_DblClick(Cancel As Integer)
Me!SucheArtNr = Me!alt_artikel
Me.Recordset.FindFirst "Artikel= '" & Me!alt_artikel & "'"
End Sub

Danke für die hilfe