1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22:
' ciudad y estado de los autopopulates basados en datos entró en campo del código postal Rs déviles como Recordset tmpZip dévil como secuencia Si IsNull (txtPhyCity.Value) entonces Si Len (txtPhyZip.Value) > 5 entonces el tmpZip = se fue (txtPhyZip.Value, 5) tmpZip = txtPhyZip.Value Terminar si Fijar los rs = (“seleccionar * de CityZips donde ZipCode= “” y tmpZip y “” ") Si no rs.EOF entonces txtPhyCity.Value = rs (“ciudad”) txtPhySt.Value = rs (“estado”) Terminar si Terminar si Fijar los rs = nada