关于access字段朗读的问题

mx99999

希望在表中输入记录时，对应的字段名先朗读,再输入数值，然后回车，朗读下个字段，再输入，以此类推....。我现在可以实现朗读字段的功能，如下：

Function 读字段()
Set myobject = CreateObject("excel.application")
Set db = DBEngine.Workspaces(0).Databases(0)
Set pp = db.OpenRecordset("表1")

With pp
  For i = 0 To .RecordCount
  myobject.speech.speak (.Fields(i).Name)
  If .EOF Then
  Exit For
  End If
  Next i
  .Close
End With

End Function

这段函数只能连续读字段，但是无法在表记录操作时进行即时朗读。烦请高手将此段程序改成可以在表中运行的程序，例如利用宏-AutoExec-RunCode,在access启动的时候，自动在表中（非窗体）运行。

Grant

[:13]  找盖茨去问问

huangqinyong

原帖由 Grant 于 2008-6-9 22:51 发表
[:13]  找盖茨去问问

[:35] [:35]

tmtony

表中没有事件, 只能通过窗体或在宏中调用函数来实现

fan0217

在窗体中实现吧

mx99999

呵呵，我是初学者，认识肤浅。不过还是要谢谢Grant的提醒，让我少走弯路，顺便能帮我查一下盖兹的号码么，我打电话问他去[:28] 。

谢谢tmtony，fan0217的真诚帮助，真诚会助您成功。

mx99999

另若用com加载项可以实现此功能么？

7777777

UDDDDDDDDDD若用com加载项可以实现此功能么？

huangxiuwen

关注。。。。。。。。。。。

goto2008

缺少变量或过程,不是模块.


Private Sub Command143_Click()
Dim strText As String
    strText = Me.Text145
   
If IsExistExcel Then
  Call MySpeak_Excel(strText)
Else
    MsgBox "你是否安装了Excel？"
End If

End Sub