求助：“保存按钮”根据组合框内的特定项目选择自动增加记录或保存（有附件）

Henry D. Sy

定义窗体模块级变量bln

1. Private Sub 施工内容_AfterUpdate()
   
2.     Dim str
   
3.     bln = False
   
4.     If Not IsNull(Me.施工内容) Then
   
5.         str = DLookup("替换内容", "工作内容", "编号=" & Me.施工内容)
   
6.         If Not IsNull(str) Then
   
7.             bln = True
   
8.         Else
   
9.             str = DLookup("分类", "工作内容", "编号=" & Me.施工内容)
   
10.         End If
    
11.         Me.分类 = str
    
12.     End If
    
13. End Sub
    

复制代码

1. Private Sub 保存工单_Click()
   
2.     Dim rs As DAO.Recordset
   
3.     Set rs = Me.RecordsetClone
   
4.     If bln Then
   
5.         With rs
   
6.             .AddNew
   
7.             .Fields("施工日期") = Me.施工日期
   
8.             .Fields("井号") = Me.井号
   
9.             .Fields("施工内容") = Me.施工内容
   
10.             .Fields("施工类别") = Me.施工类别
    
11.             .Fields("班组") = Me.班组
    
12.             .Fields("员工") = Me.员工
    
13.             .Fields("分类") = Me.分类
    
14.             .Update
    
15.             .Close
    
16.         End With
    
17.     Else
    
18.         DoCmd.RunCommand acCmdSaveRecord
    
19.     End If
    
20.     Set rs = Nothing
    
21. End Sub

复制代码