Question

access中关于VBA问题

有一个[窗体A]中的文本框“结束时间”
另一个窗体“播放声音”

当前时间等于文本框“结束时间”内的时间的时候，会弹出窗体“播放声音”
请问在窗体A计时器触发中编写什么样的代码才能实现！

望高手指点啊！
哎，这问题怎么就搁这了呢!
高手帮帮忙啊！！！！！！！！

Answer 1

Form 是你的timer控件的名字？？如果不是不能触发事件的。如控件名为timer1。
Private Sub timer1_Timer()
Me.Labnow.Caption = Format(Now(), "yyyy年mm月dd日 dddd hh:mm:ss ") & " SMT焊膏使用列表"
If Format(结束时间.Text, "hh:mm:ss ") = Format(Now(), "hh:mm:ss ") Then
播放声音.Show
End If
End Sub

Private Sub Form_Load()
Timer1.Interval = 100
end sub
下面的这部分可以添加到form的另段程序中。
Me.[结束时间].Requery
Me.[开始时间].Requery
Me.[内容].Requery
Me.[标题].Requery

Answer 2

Private Sub Timer1_Timer()
If Text1.Text=Now() then 播放声音.Show
End Sub

追问

请问
Text1.Text 是 窗体.文本框 吗
Private Sub Timer1_Timer() 这好像不是在 计时器触发 中事件过程，是在哪里？

初学者，，见谅！

追答

我不知道你的那么文本框的Name是什么
Text1一般是默认的，当然你也许把它改称别的了，你直接修改一下就可以了

Timer1_Timer()
就是计时器Timer1的计时触发事件，如果你把计时器的Name改变了，这里就也要跟着改变

追问

Private Sub Form_Timer()
Me.LabNow.Caption = Format(Now(), "yyyy年mm月dd日 dddd hh:mm:ss ") & " SMT焊膏使用列表"
Me.[结束时间].Requery
Me.[开始时间].Requery
Me.[内容].Requery
Me.[标题].Requery
End Sub

当前窗体因为要刷新数据，已经占用计时触发事件
文本框的名字为：结束时间
你看我这么添加你写的这个代码呢？会有冲突吗？