计时器问题

fengdong　发表于：2014-10-19 22:33:05 　

复制

一个窗体上有两个按钮，分别是“新建”和“自动编号”，觉得按两个太麻烦，能不能按完“新建”后2秒自动实现“自动编号”呢？以前有老师说用计时器，能帮我改一下吗？谢谢！

点击下载此附件

Top

茼蒿发表于：2014-10-19 23:07:44

你要的效果不需要计时器就能完成，见附件

点击下载此附件

Top

竹笛发表于：2014-10-19 23:11:37

将代码直接放到添加记录的单击事件代码中即可，如下所示：

Private Sub Command9_Click()

On Error GoTo Err_Command9_Click

DoCmd.GoToRecord , , acNewRec
Me.Text0 = DateID("明细表", "协议编号", Me.txtDate, 5, "X")
Exit_Command9_Click:
Exit Sub
Err_Command9_Click:
MsgBox Err.Description
Resume Exit_Command9_Click

End Sub

Top

fengdong 发表于：2014-10-20 13:27:00

多谢！！

Top

fengdong 发表于：2014-10-20 13:45:47

竹笛老师，我现在的添加记录单击事件代码中还有事件，就是每月20日为下月，怎么把您现在的代码加进去呢？谢谢！

Private Sub cmdAdd_Click()
DoCmd.GoToRecord , , acNewRec
setFormCtlDefValue Me, "Ã÷Ï¸", "ÑøàÏ»ùêy,ÑøàÏ×′ì¬,ò½áÆ×′ì¬,ê§òμ×′ì¬,òøDD,′úàí»ú11", "ID"
' setFormCtlDefValue Me, "fd", "saleDate,company,weight", "ID"

If Day(Date) > 20 Then
Me.±￡ÏÕÆeê¼ÔÂ = Month(DateAdd("m", 1, Date))
Me.±￡ÏÕÄê¶è = Year(DateAdd("m", 1, Date)) & ""
Else
Me.±￡ÏÕÆeê¼ÔÂ = Month(Date) & ""
Me.±￡ÏÕÄê¶è = Year(Date)
End If

End Sub

Top

总记录：4篇页次：1/1 9 1 :

Access交流中心

计时器问题