' das autopopulates basierten auf Daten Städte und Zustände, nahm am Postleitzahlfeld teil
Schwache rs als Recordset
Schwaches tmpZip als Schnur
Wenn IsNull (txtPhyCity.Value) dann
Wenn Len (txtPhyZip.Value) > 5 dann
tmpZip = verließ (txtPhyZip.Value, 5)
Sonst
tmpZip = txtPhyZip.Value
Beenden wenn
Rs einstellen = („* von CityZips vorwählen in dem ZipCode= „“ u. tmpZip u. „“ ")
Wenn nicht rs.EOF dann
txtPhyCity.Value = rs („Stadt“)
txtPhySt.Value = rs („Zustand“)
Beenden wenn
Beenden wenn
Rs einstellen = nichts
|