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

knightsw

组合框内的内容来自[工作内容]表，组合框内容选定后，分类文本框自动出现与之对应的分类，如果
选定窗体“施工内容”字段中有*的内容，点击保存按钮后，自动增加一条记录，该记录是复制最后一条
记录的内容（即ID为最大），新记录“分类”字段内容更改为工作内容表“替换内容”相应项目，然后保
存  
     反之，没有*的内容则保存。

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

举例如下：
  点击新建按钮后，编号为100，选定组合框内容为：“更换井架基础*”，分类文本上自动显示“拆井架
”，按保存按钮，自动新增加一记录，即编号101。该记录的分类文本框内容更换为[工作内容]表中与“
更换井架基础*”相对应的 db1.rar (19.35 KB, 下载次数: 21)

2012-3-18 15:07 上传

点击文件名下载附件

替换内容：“立井架”，其它内容重复100，并保存记录101
如果组合框出现非*内容时，如选定“提电热电缆，”按保存按钮，则保存记录100

ASLXT

保存100号记录的时候，设置101记录的【组合框】的默认值为100号记录的【分类】文本框的值，并自动转到新记录即可
Private Sub 保存工单_Click()
  Me.施工内容.DefaultValue = """" & 分类 & """"
  DoCmd.GoToRecord , , acNewRec
End Sub

knightsw

ASLXT 发表于 2012-3-18 23:28
保存100号记录的时候，设置101记录的【组合框】的默认值为100号记录的【分类】文本框的值，并自动转到新记录 ...

ASLXT老师：
     谢谢你的解答，按照您的方法，只是把101记录的【组合框】的默认值更改为100号记录的【分类】文本框的值。
    我想要的结果是：选择带*的内容时，101记录中【组合框】的值是不更改的，与100号记录相同，其他的【文本框】也与100号记录相同，只有【分类】文本框的内容更改为表【施工内容】中的【替换内容】字段。按保存以后，停留在101号记录上。

      选择非带*记录时，仅仅保存100号记录，并停留在100号记录上，其他没有任何改变。

       请老师或各位高手再看看，谢谢！

ASLXT

那就加上判断的语句即可：
Private Sub 保存工单_Click()
   If Right(施工内容, 1) <> "*" Then
  Me.施工内容.DefaultValue = """" & 分类 & """"
  DoCmd.GoToRecord , , acNewRec
  End If
End SubEnd Sub

ASLXT

If Right(施工内容, 1) <> "*" Then
  ...
else
  ...
end if