我跑在Access/VBA下面的代码插入到一个Oracle表（SQL修剪的效果，但需要2条独立的语句） Dim mydb As DAO.Database
Dim myq As DAO.QueryDef
Set mydb = DBEngine.Workspaces(0).Databases(0)
Set myq = mydb.CreateQueryDef("")
With my
嘿Geys我坚持使用我的代码，并且无法继续使用它... （maby我只是对它很感兴趣） 这是我的代码： Const ForReading = 1, ForWriting = 2, ForAppending = 8
Dim fso, MyFile, FileName, TextLine
Dim TextArray()
Dim x As Double
Dim SQLString
Set
我正在使用此代码将某些Outlook邮件字段下载到访问中。这工作得很好，但代码继续下载重复的邮件。有没有办法检查现有记录并下载不在表格中的记录？你的回答将帮助很多在我的项目 Private Sub getml()
Dim rst As DAO.Recordset
Dim OlApp As Outlook.Application
Dim inbox As Outlook.MAPIFolder
不完全确定如何解决这个代码给我一个运行时错误3021：没有当前记录。 目的是单击此按钮，它将填充查询的第一条记录的结果的几个文本框。然后应该使用MoveNext从查询结果的下一个记录中填充另外两个文本框。 Private Sub btnSCC07_Click()
Dim dbs As DAO.Database
Dim rsTable As DAO.Recordset
Dim rsQuery
我想建立一个包含vba代码的“Launcher”数据库，它将打开第二个受密码保护的数据库。 （然后我可以转换发射分贝ACCDE所以不能读取包含密码的VBA） 我有下面的代码到目前为止... Private Sub Form_Load()
Dim acc As Access.Application
Dim db As DAO.Database
Dim strDbName As String