试试:
cust.AddNew
cust.fields("客户名:).value = InputBox("请输入您要增加的用户名:")
cust.fields("联系方式").value = InputBox("请输入您要增加用户的联系方式:")
cust.Update
cust.AddNew
cust.fields("客户名:).value = InputBox("请输入您要增加的用户名:")
cust.fields("联系方式").value = InputBox("请输入您要增加用户的联系方式:")
cust.Update
cust.AddNew
cust.fields("客户名").value = InputBox("请输入您要增加的用户名:")
cust.fields("联系方式").value = InputBox("请输入您要增加用户的联系方式:")
cust.Update
dim lxfs as string
khm=InputBox("请输入您要增加的用户名:")
lxfs=InputBox("请输入您要增加用户的联系方式:")
cust.addnew
cust! 客户名=khm
cust! 联系方式=lxfs
cust.Update其实给个变量就能解决了