[5分]请老师帮忙，关于窗体中录入数据，设定字段默认值的问题

你该做的是在 主窗体 上加多一个 隐藏文本框控件 譬如叫 Num

然后在加上

Private Sub 系列_AfterUpdate()

  BuildNum

End Sub

Private Sub 设备编号_AfterUpdate()
If Me.设备编号 = "1102" Or Me.设备编号 = "APM" Then Me.设备名称 = "阳机"
If Me.设备编号 = "1103" Then Me.设备名称 = "始极片"
If Me.设备编号 = "1104" Then Me.设备名称 = "电铜"
If Me.设备编号 = "SM1" Or Me.设备编号 = "SM2" Then Me.设备名称 = "剥片"
BuildNum

End Sub

Private Sub BuildNum()

If Me.系列 = "一系列" And Me.设备编号 = "1102" Then me!num = "11"
If Me.系列 = "一系列" And Me.设备编号 = "1103" Then me!num = "12"
If Me.系列 = "一系列" And Me.设备编号 = "1104" Then me!num = "13"
If Me.系列 = "二系列" And Me.设备编号 = "SM1" Then me!num = "21"
If Me.系列 = "二系列" And Me.设备编号 = "SM2" Then me!num = "22"
If Me.系列 = "二系列" And Me.设备编号 = "APM" Then me!num = "23"
If Me.系列 = "三系列" And Me.设备编号 = "SM1" Then  me!num = "31"
If Me.系列 = "三系列" And Me.设备编号 = "SM2" Then  me!num = "32"
If Me.系列 = "三系列" And Me.设备编号 = "APM" Then  me!num = "33"
End Sub

在 Form_机组作业时间-temp 窗体里面的插入后加上的要改为

Private Sub Form_AfterInsert()
If Not IsNull(Me.日期) Then

d=DateAdd("d", 1, Me.日期)
Me.日期.DefaultValue = "=#" & Format(d, "yyyy-m-d") & "#"

me.编号.defaultvalue = "='" & format(d, "yyyymmdd") & me.parent!num & "'"

Me.开机时间.defalutValue = "=#" & Format( DateAdd("n", 460, d),"yyyy-m-d hh:nn") & "#"
Me.结束时间.defalutValue = "=#" & Format( DateAdd("h", 18,  d),"yyyy-m-d hh:nn") & "#"

End If
End Sub

不过保存之前记得检查 me.parent!num 是否空置！