关于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启动的时候，自动在表中（非窗体）运行。

mx99999

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

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

mx99999

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