Doppelten DS erkennen und

Computer: Software & Programmierung Microsoft Access
#1

Hallo zusammen (Acc. 2007)
…per MsgBox ausgeben. Der eingegebene Name soll schon beim erfassen erkannt werden u. alle ausgeben die bereits vorhanden sind, z.B.:
Eingabe: Meier
Ausgabe mittels MsgBox:
Meier Hans in München
Meier Alfons in Augsburg
Meier Norbert in Freising
…
…
Vielleicht kann jemand mit dem Code helfen.
Gruß - Wolfgang

#2

Hallo,

…per MsgBox ausgeben.

wirklich ( 8-O ) per Msgbox??

Das ist eher Krampf als was Gescheites…

Der eingegebene Name soll schon beim

erfassen erkannt werden u. alle ausgeben die bereits vorhanden
sind, z.B.:
Eingabe: Meier
Ausgabe mittels MsgBox:
Meier Hans in München
Meier Alfons in Augsburg
Meier Norbert in Freising

Vielleicht kann jemand mit dem Code helfen.

Viel Code braucht es da nicht, jedoch (ohne Kenntnis:

ein ungebundenes Listenfeld („lstPersonen“) im (Eingabe-)Formular mit:

Datensatzherkunft: select Nachname, Vorname, Ort from tblDeineTabelle where Nachname = [Forms]![DeinFormular]![Nachname] order by Nachname, Vorname

Spaltenanzahl: 3

und diese Ereignisprozedur:

Sub Nachname\_Afterupdate()
Me!lstPersonen.Requery
End Sub

oder Datensatzherkunft des Listenfeldes leer lassen und diese Ereignisprozedur verwenden:

Sub Nachname\_Afterupdate()
Me!lstPersonen.Rowsource= "select Nachname, Vorname, Ort from tblDeineTabelle where Nachname ='" & Me![Nachname] & "' order by Nachname, Vorname"
End Sub

Oder wenn es tatsächlich eine Msgbox sein soll:

Sub Nachname\_Afterupdate()
Dim rs as DAO.Recordset, strPersonen as String
set rs= Currentdb.Openrecordset("select Nachname, Vorname, Ort from tblDeineTabelle where Nachname ='" & Me![Nachname] & "' order by Nachname, Vorname",dbOpenSnapShot)

if rs.Recordcoutn \>0 Then
 Do until rs.Eof
 strPersonen = strPersonen & rs(0) & " " & rs(1) & " in " & rs(2) & vbCrLf
 rs.MoveNext
 loop

 Msgbox strPersonen,vbOkOnly

End If

rs.Close:set rs = Nothing
End Sub
#3

Hallo Franz, genau das war es was ich wollte. funktioniert gut. Danke!
Gruß - Wolfgang

#4

Hallo Franz,

so sieht das Produkt am Ende, ganz nach meinem Geschmack aus. Danke nochmals!

[URL=[http://www.pic-upload.de/view-13410012/Hinweis.jpg.h…](http://www.pic-upload.de/view-13410012/Hinweis.jpg.html][IMG]http://www7.pic-upload.de/thumb/19.03.12/ojf6n4urxzyb.jpg[/IMG][/URL)]

Lieben Gruß - Wolfgang

#5

so sieht die tolle Lösung aus.

http://www.pic-upload.de/view-13415490/Hinweis.jpg.html

L.G. Wolfgang