新建记录时,添加附件后其名称为38位GUID,保存时未进入GUID转换为txtData_ID的过程(if Me.txtDataID.Tag <> DataID),导致保存文件为38位GUID的名字,sys_attachments中也是这个名字,后续也无法正常加载。
Private Sub btnAdd_Click()
On Error GoTo ErrorHandler
If Me.txtDataID.Tag = "" Then 'Me.txtDataID.Tag = GetGUID()
...
End Sub
目前办法是在提前到在增加附件时就确定编号
Private Sub btnAdd_Click()
On Error GoTo ErrorHandler
If Nz(Me.Parent![File_ID]) = "" Then
Me.Parent![File_ID] = GetAutoNumber("??????")
End If
Me.txtDataID.Tag = Me.Parent!File_ID
...
End Sub
不知道是否是bug还是我的操作问题,老师们有没有更好的解决办法