不同的窗口:
Forms("窗口名").Controls("TextBox1").Value = tbl.Current("ptypeid")
同一个窗口:
e.Form.Controls("TextBox1").Value = tbl.Current("ptypeid")