计时器角发帮忙

小何

自动打开窗体问题



我在一个窗体的计时器触发事件是写

Private Sub Form_Timer()

If txtCount >= 1 Then
DoCmd.OpenForm "新邮箱阅读"
   Exit Sub
   Me.Requery
   End If
End Sub


为什么当窗体txtCount >=1时,不会自动打开新邮箱阅读窗体啊?提示计时器触发事件错误?请帮忙看看````

小何

请大家帮忙,好吗

sgrshh29

这样试一试：
Dim i As Long
Private Sub Form_Timer()
i=i+1
txtCount = i
If txtCount >= 1 Then
DoCmd.OpenForm "新邮箱阅读"
Me.TimerInterval = 0
End If
End Sub

小何

谢谢!好的,我先试一下

小何

还是不行,提示:

产生错误如下:在引用一个对象的属性或方法时出现问题

sgrshh29

把你有关的窗体发上来看看。

andymark

用WINSOCK 会灵活些

也可以尝 试 调用 API NetMessageBufferSend 直接向客户机发送信息

lihaizhu

将I声明为STATIC静态变量,将I放在程序的PUBLIC处即可,还有你为什么要用一个变量来定啊，直接放在ＴＭＩＥＲ事件中就行了。呵呵！