Supportnet / Forum / Datenbanken

Hallo Supportnet-Gemeinde, ich benutze Acces97 und möchte für eine Adressdatenbank bei Eingabe der PLZ automatisch den Wohnort angezeigt bekommen. Dazu habe ich eine 2 spaltige Tabelle mit PLZ und Ort. Wie binde ich diese Tabelle ein??? Wer kann mir helfen? Gruß Jens :-)

Wenn die Daten fest in einer Tabelle stehen dann mach doch einfach zwei comcoboxen die du aus den Tabellen füllen lässt...

in der ersten lässt du die daten der PLZ füllen und machst dann also ereignis bei change der comcobox soll die andere mit dem passendem werd gefüllt werden!!1


Das geht mit einem einfachen sql..

select Wohnort,PLz from tabelletest where PLz= '" & me.comboboxplz.itemdata & "'


so iregndwie muss das gehen bei den werten bin ich mir nicht sicher kannst mir aber mal die Tabelle schicken dann bau ich dir was !!

webmaster@newan.de

Newan

@Newan
Ist nicht Dein Ernst? Combo mit allen Städten in Deutschland zu füllen :) Könnte ein lustiges Laufzeitverhalten haben.

@ semi


das war aber auch ein guter Lösungvorschlag von dir zum Thema hat uns alle weitergebracht danke!!!!!!!!!!

@Newan
Bitte. Habe ich gern getan. :)

Hallo Jens,
um mal wieder sachlich zu werden: Du hast also eine Tabelle mit allen PLZ und Orten in Deutschland. Alle PLZ als Combobox anzubieten, dürfte in der Tat die Anwendung etwas verlangsamen. Auch ist es für den Anwender mühsam, wenn er z.B. eine der letzten PLZ sucht. Wenn die PLZ frei eingegeben werden soll, kannst Du beim Ereignis 'Nach Aktualisierung' des Eingabefeldes mit einer sog. Domänenfunktion den zu der PLZ gehörenden Ort suchen und einem anderen Feld zuordnen (Felder: PLZ und Ort, Tabelle DeinePLZOrtTabelle mit den Spalten PLZ (als Text) und Ort (als Text)):

Private Sub PLZ_AfterUpdate()
    Dim strOrt as Variant

    strOrt = DLookUp("Ort", "DeinePLZOrtTabelle","PLZ = '" & Me!PLZ & "'")
    '-- prüfen ob ort gefunden
    If IsNull(strOrt) then
        '-- kein Ort
        '-- evtl msgbox anzeigen
        '-- oder dem Ortsfeld einen
        '-- hinweis zuweisen
        '-- Me!Ort = "Ort nicht gefunden"
    else
        '-- ort zuweisen
        Me!Ort = strOrt
    end if

End Sub

Gruß
Mick

• FLUGKAPAZITÄT
• Sortierung eines Kombinationsfelds
• Excel Summe bestimmter Kriterien
• Abstammung
• sortiern nach PLZ im Excel