sql = "update MemberInfo set M_Name='" & Trim(Me.txtM_Name) '姓名
sql = sql & "',M_Sex='" & Trim(Me.cmbM_Sex) '性别
sql = sql & "',M_Birthday=" & Me.dtpM_Birthday '出生年月(数据类型为DATE)
sql = sql & ",M_Nation='" & Trim(Me.cmbM_Nation) '民族
sql = sql & "',M_NativePlace='" & Trim(Me.txtM_NativePlace) '籍贯
sql = sql & "',M_Diploma='" & Trim(Me.cmbM_Diploma) '学历
sql = sql & "',M_Speciality='" & Trim(Me.txtM_Speciality) '专业
sql = sql & "',M_Adress='" & Trim(Me.txtM_Address) '地址
sql = sql & "',M_Postalcode='" & Trim(Me.txtM_Postalcode) '邮编
sql = sql & "',M_Phone='" & Trim(Me.txtM_Phone) '电话
sql = sql & "',M_Email='" & Trim(Me.txtM_Email) '电子邮箱
sql = sql & "',M_JoinJobTime=" & Me.dtpM_JoinJobTime '参加工作时间(数据类型为DATE)
sql = sql & ",M_EnterComTime=" & Me.dtpM_EnterComTime '进入本公司时间(数据类型为DATE)
sql = sql & ",M_StarPayTime=" & Me.dtpM_StarPayTime '本公司起薪时间(数据类型为DATE)
sql = sql & ",M_Dept='" & Trim(Me.cmbM_Dept) '所在部门
sql = sql & "',M_Duty='" & Trim(Me.cmbM_Duty) '担任职务
sql = sql & "',M_DirectLead='" & Trim(Me.txtM_DirectLead) '直接上司
sql = sql & "',M_Remark='" & Trim(Me.txtM_Remark) '备注信息
sql = sql & "' where M_ID='" & Me.txtM_ID & "'"
没说明字段的数据类型全不为文本