mabaor 发表于:2019-06-21 07:27:13
Dim cnn: Set cnn = CurrentProject.Connection 'ADO.Connection()
cnn.BeginTrans
Dim blnTransBegin As Boolean: blnTransBegin = True
If Nz(Me![ApplyID]) = "" Then Me![ApplyID] = GetAutoNumber("登记编号")
Dim strSQL: strSQL = "SELECT * FROM tblAppliIMain WHERE ApplyID=" & SQLText(Me![ApplyID])
Dim rst: Set rst = ADO.OpenRecordset(strSQL, adLockOptimistic, cnn)
If rst.EOF Then
rst.AddNew
rst!Username = GetParameter("Current User Username")
rst!OperateTime = Now()
End If
UpdateRecord Me, rst
检查一下字段 Username 的大小,是否足够保存 GetParameter("Current User Username")
已经保存过,是可以的,但增加了几个字段,出现不识别当前库Username字段,改为识别用户表的Username字段,识别混乱了
自定义的两个字段可提出数据但结果不能保存
总记录:2篇 页次:1/1 9 1 :