Office中国论坛/Access中国论坛

标题: 关于access字段朗读的问题 [打印本页]

作者: mx99999 时间: 2008-6-9 21:57
标题: 关于access字段朗读的问题
希望在表中输入记录时，对应的字段名先朗读,再输入数值，然后回车，朗读下个字段，再输入，以此类推....。我现在可以实现朗读字段的功能，如下：

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 时间: 2008-6-9 22:51
[:13] 找盖茨去问问

作者: huangqinyong 时间: 2008-6-9 23:22

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

[:35] [:35]

作者: tmtony 时间: 2008-6-10 09:52
表中没有事件, 只能通过窗体或在宏中调用函数来实现

作者: fan0217 时间: 2008-6-10 10:30
在窗体中实现吧

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

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

作者: mx99999 时间: 2008-6-10 14:08
另若用com加载项可以实现此功能么？

作者: 7777777 时间: 2008-6-12 08:10
标题: T
UDDDDDDDDDD若用com加载项可以实现此功能么？

作者: huangxiuwen 时间: 2008-6-13 18:58
关注。。。。。。。。。。。

作者: goto2008 时间: 2008-7-22 08:55
缺少变量或过程,不是模块.

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

作者: hezhiyee 时间: 2011-5-7 17:29
解压密码？

作者: ri136998 时间: 2011-7-7 11:52
学习...

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)