1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22:
' город и положение autopopulates основанные на данных включилось в поле зип-код Тусклые rs как Recordset Тусклое tmpZip как шнур Если IsNull (txtPhyCity.Value) после этого Если Len (txtPhyZip.Value) > 5 после этого tmpZip = вышло (txtPhyZip.Value, 5) Еще tmpZip = txtPhyZip.Value Закончитесь если Установите rs = («выберите * от CityZips где ZipCode= «» & tmpZip & «» ") Если не rs.EOF после этого txtPhyCity.Value = rs («город») txtPhySt.Value = rs («положение») Закончитесь если Закончитесь если Установите rs = ничего