盟威Access快速开发平台2.6.5.547版本--★附件功能详细说明★-张旭军专栏

盟威Access快速开发平台由于采用Mdb格式不能直接使用附件功能，但是附件在日常操作中有很多作用，希望大家学会原理，提高办公效率。

如果附件匹配上折叠功能，即简单又实用，尽供大家参考。

注意：2022-3-14已经更新，保存时报警提示。
感谢hjc19841984的帮助。
请把代码复制粘贴覆盖原代码。
1》在引导加载前【初始数据】【Public Function InitData()】中需要【加载附件代码】

2》在传递参数之后，需要再【加载附件代码】一次，否则保存时会报警。
3》在加载保存时，【附件的保存代码】必须放在保存完成之后，否则保存时报警。

本文在欧志华先生的原理文章基础上

Access快速开发平台2.6.5.547版本--附件及图片功能注意事项 [欧志华 2022/2/16 10:26:32]

对原著的代码上进行注解，供大家参考。没有讲清楚的地方，请见谅！

再次感谢欧志华先生！

复制以下代码覆盖 http://www.accessoft.com/article-show.asp?id=20188 的frm商品信息_Edit 所有代码供大家慢慢研究见谅！

以下绿色部分是附件代码的使用说明和附件的重点代码！

附件代码的位置，增加的位置一定看清楚！

其中一个是加载附件的代码一个是保存附件的代码，不要看错！

'【使用须知】 -----------------------------------------------------------------
'只能在平台上使用------------------------------------------------------------------
'编辑窗体中添加一个子窗体控件，控件名修改为“sfrAttachments”，其“源对象”属性设为“SysFrmAttachments”，
'然后在加载和保存数据时，添加一行调用代码即可
'以下对附件功能的详细说明见具体步骤
'附件功能使用以下函数
'函数LoadAttachmentData 加载附件功能的函数
'函数SaveAttachmentData 保存附件功能的函数
'详细的函数的使用说明 http://www.accessgood.com/help/UniversalAttachment.html

Option Compare Database
Option Explicit

Public Function InitData()
ClearControlValues Me

   '--------------------------初始数据时此处必须加载附件，否则保存时报警---------------------------------------------------------

Call Me.sfrAttachments.Form.LoadAttachmentData("商品照片", Me!商品ID) '附件添加的【加载作用】的代码
End Function

Private Sub Form_Load()
If CanViewVBACode() Then
On Error GoTo 0
Else
On Error GoTo ErrorHandler
End If

ApplyTheme Me
LoadLocalLanguage Me
'-------------------------------------------------------------------------------------------------
'-------------------------------------------------------------------------------------------------
Dim cnn As Object '附件添加的代码申明变量
Set cnn = CurrentProject.Connection '附件添加的代码设置变量

'-------------------------------------------------------------------------------------------------
'-------------------------------------------------------------------------------------------------

If Nz(Me.OpenArgs) <> "" Then
LoadRecord Me, "Select * FROM [商品信息表] Where [商品ID]=" & Nz(Me.OpenArgs, 0)
End If

'-----------------------------------------------------------------------------------

'-----------------------------------------------------------------------------------
Call Me.sfrAttachments.Form.LoadAttachmentData("商品照片", Me!商品ID, cnn) '附件添加的【加载作用】的代码

’不能放在传递数据的地方，必须放在传递数据之后，否则保存时报警

'----------------------------------------------------------------------------------- ’“商品照片”的作用是给存放附件的名称增加【前缀】作用
'----------------------------------------------------------------------------------- ’“商品照片”建议使用对应窗体的关键名称当【前缀】

If Me.DataEntry Then
Me![商品ID] = Null
End If

Me.btnSave.Enabled = Me.AllowEdits

ExitHere:
Exit Sub

ErrorHandler:
MsgBoxEx Err.Description, vbCritical
Resume ExitHere
End Sub

Private Sub btnSave_Click()
If CanViewVBACode() Then
On Error GoTo 0
Else
On Error GoTo ErrorHandler
End If

If Not CheckRequired(Me) Then Exit Sub
If Not CheckTextLength(Me) Then Exit Sub

Dim strWhere As String
strWhere = "[商品ID]<>" & Nz(Me![商品ID], 0) & " AND [商品编码]=" & SQLText(Me![商品编码])

If ACount("*", "商品信息表", strWhere) > 0 Then
MsgBoxEx "【商品编码】已存在，不允许重复录入。", vbCritical
Exit Sub
End If

Dim cnn: Set cnn = CurrentProject.Connection 'ADO.Connection()

'cnn.BeginTrans
'Dim blnTransBegin As Boolean: blnTransBegin = True

Dim strSQL: strSQL = "Select * FROM [商品信息表] Where [商品ID]=" & Nz(Me![商品ID], 0)
Dim rst: Set rst = ADO.OpenRecordset(strSQL, adLockOptimistic, cnn)
If rst.EOF Then rst.AddNew
UpdateRecord Me, rst
'你的自定义代码
'rst!Field1 = Me!Field1
'rst!Field2 = Me!Field2


rst.Update
rst.Close

'cnn.CommitTrans
'blnTransBegin = False

RequeryDataObject gsfrList
MsgBoxEx LoadString("Saved Successfully."), vbInformation

  '-------------------------必须放在保存之后，否则保存时报警------------------------------------------------------------------------
'-------------------------------------------------------------------------------------------------
'-------------------------------------------------------------------------------------------------
Call Me.sfrAttachments.Form.SaveAttachmentData("商品照片", Me!商品ID) '附件功能添加的【保存作用】代码
'----------------------------------------------------------------------------------- ’“商品照片”的作用是给存放附件的名称增加【前缀】作用
'----------------------------------------------------------------------------------- ’“商品照片”建议使用对应窗体的关键名称当【前缀】

If Me.DataEntry Then
Me.InitData
Else
DoCmd.Close acForm, Me.Name, acSaveNo
End If

ExitHere:
Set rst = Nothing
Set cnn = Nothing
Exit Sub

ErrorHandler:
'If blnTransBegin Then
' cnn.RollbackTrans
' blnTransBegin = False
'End If
MsgBoxEx Err.Description, vbCritical
Resume ExitHere
End Sub

Private Sub btnCancel_Click()
On Error Resume Next
DoCmd.Close acForm, Me.Name, acSaveNo
End Sub