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

snow0011

组合框内的内容来自“工作内容”表，如果选定窗体“施工内容”字段中有*的内容，点击保存按钮

后，自动增加一条记录，并将“分类”字段内容更改为“替换内容”，窗体中其他项目重复，然后保存
  
     反之，没有*的内容则保存。

     本人参考网上知识，试了一下，不能完全达到效果，有什么好方法，请各位老师指点！

Henry D. Sy

是不是这个意思？

1. Dim bln As Boolean
   
2. Private Sub 施工内容_AfterUpdate()
   
3.     Dim str As String
   
4.     bln = False
   
5.     If Not IsNull(Me.施工内容) Then
   
6.         str = Right(Me.施工内容, 1)
   
7.         If str = "*" Then
   
8.             bln = True
   
9.         End If
   
10.     End If
    
11. End Sub
    
12. 
    
13. Private Sub 保存工单_Click()
    
14.     Dim strContent As String
    
15.     Dim rs As DAO.Recordset
    
16.     Set rs = Me.RecordsetClone
    
17.     If bln Then
    
18.         rs.AddNew
    
19.         strContent = "替换内容"
    
20.     Else
    
21.         DoCmd.RunCommand acCmdSaveRecord
    
22.         Set rs = Nothing
    
23.         Exit Sub
    
24.     End If
    
25.     With rs
    
26.         .Fields("施工日期") = Me.施工日期
    
27.         .Fields("井号") = Me.井号
    
28.         .Fields("施工内容") = Me.施工内容
    
29.         .Fields("施工类别") = Me.施工类别
    
30.         .Fields("班组") = Me.班组
    
31.         .Fields("员工") = Me.员工
    
32.         .Fields("分类") = strContent
    
33.         .Update
    
34.         .Close
    
35.     End With
    
36.     Set rs = Nothing
    
37. End Sub

复制代码

Henry D. Sy

附件怎么传不上呢

snow0011

Henry D. Sy 发表于 2012-3-17 13:46
附件怎么传不上呢

版主老师：
     谢谢您的回复，可能是我表述得不太清楚，在我的附件中，点击组合框，窗体上的分类文本框自动显示《工作 内容》表内分类字段与之相关的分类，如：点击   更换抽油机*  ，窗体上分类文本框自动显示  拆抽
我想达到的效果是：点击保存按钮，自动增加一条记录，该记录是复制 最后一条记录的内容（即ID为最大），而上一条分类文本框的 拆抽 也改变为 《工作 内容》表内替换内容字段与之相对应的 装抽

反之，没有*的内容则保存。

不知道表述清楚否，请老师再看看，谢谢！

snow0011

snow0011 发表于 2012-3-17 14:30
版主老师：
     谢谢您的回复，可能是我表述得不太清楚，在我的附件中，点击组合框，窗体上的分类文本框 ...

另：工作内容表内的加*项目只是为了方便给老师看的，正式的程序中是没有这个*的

Henry D. Sy

snow0011 发表于 2012-3-17 14:30
版主老师：
     谢谢您的回复，可能是我表述得不太清楚，在我的附件中，点击组合框，窗体上的分类文本框 ...

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

复制代码

Henry D. Sy

Henry D. Sy

而上一条分类文本框的 拆抽 也改变为 《工作 内容》表内替换内容字段与之相对应的 装抽
？？？？？？？？？？？？？？？

snow0011

Henry D. Sy 发表于 2012-3-17 17:02
而上一条分类文本框的 拆抽 也改变为 《工作 内容》表内替换内容字段与之相对应的 装抽
？？？？？？？？？ ...

Henry D. Sy 版主：
我的意思是假如现在窗体上编号1633，组合框内容为：更换井架基础，分类文本上自动显示“立井架”，老师的最新回复已经做到了这一点。
但是我想在组合框出现带*这些内容时，按保存按钮，自动新增加一记录，即编号1634。该记录的分类文本框内容更换为《工作内容》与更换井架基础相对应的替换内容：“拆井架”，其它内容重复1633，并保存记录1634
如果组合框出现非*内容时，按保存按钮，则保存记录1633

snow0011

不好意思，拆井架和立井架反了


Henry D. Sy 版主：
我的意思是假如现在窗体上编号1633，组合框内容为：更换井架基础，分类文本上自动显示“拆井架”，老师的最新回复已经做到了这一点。
但是我想在组合框出现带*这些内容时，按保存按钮，自动新增加一记录，即编号1634。该记录的分类文本框内容更换为《工作内容》与更换井架基础相对应的替换内容：“立井架”，其它内容重复1633，并保存记录1634
如果组合框出现非*内容时，按保存按钮，则保存记录1633