Access 2016命令按钮执行R脚本的问题
我正在尝试从Access 2016命令按钮执行R脚本。该脚本读取文件并根据文件内部的值生成图。 当我从Windows 10命令行按如下所示运行它时，效果很好： C：\Program Files＼ ＼R\R-3.3.2\bin&Rscript --vanilla H：\R\analyze.RH：\R\LCH_22.vcf 我想从Access 2016中的一个按钮执行R脚本
..
access-vba相关内容
System.Object和System.EventArgs
我正在尝试编写一个简单的日历来选择日期。我有一组PushButton，现在我正尝试以编程方式添加事件处理程序。 Public Sub Initialize（） 如果EventID = 0则 GetEmployeeData EventType =“出勤率” Else GetEventData End if Dim Days Days = Array（Sund
..
在Microsoft Access中创建只能由某些字段搜索的数据库
您将如何在Microsoft Access中创建一个只能由某些字段搜索并且仅由表单上的几个（必要）文本框和复选框控制的数据库，因此易于使用-无需困难的查询？ 示例： 表单上有多个文本框和几个对应的复选框，并且选中了该文本框旁边的复选框后，该文本框即被启用然后您可以按输入的文本框中的内容进行搜索 （实际上，我已经知道这一点，只是在玩stackoverflow危险游戏时，我问一个问题，我
..
带按钮的项目数组
我对MS Access（2007）还是陌生的，我有一个很快的问题。我正在构建一个表单，该表单旨在帮助您在不断变化的时间表上输入数据。 因此，我希望该表单如下工作。首先，用户输入他当天要记录的卡车数量。该表格将按时间表抓取第一批X辆卡车，并为每辆卡车创建一个物品。由于时间表可以更改，因此每个项目都有一个向上/向下箭头，可以在时间表周围移动它。 “空线组”实际上是按钮的标题，创建后将其更改为卡车
..
所有功能完成后，VBA关闭访问
我有一个从批处理中运行的vba，该批处理启动了一个宏来执行它们，我试图在所有功能完成后关闭访问，但是创建一个新功能并放置“ Application.Quit”将关闭 有人有什么想法吗？ 谢谢， Simon 编辑： 公共功能finish（） Application.Quit 结束函数 解决方案 在代码中放置一个计时器循环，以使数据库进入睡眠状态并为
..
在Visual Basic for Windows应用程序上作为宏运行-Access数据库
好吧，我试图以编程方式为访问数据库生成记录，但是它一直像宏一样显示，并且所讨论的代码行以红色显示。 我做错了什么？ Sub arrayData（） Dim custnames（）As Varient Dim num作为整数，dbs作为数据库，InsertRecord作为字符串 Dim CustId作为整数，num1作为整数 Dim CustName作为字符串 设置dbs = C
..
将参数添加到现有代码以将访问查询导出到Excel
’下面是我当前拥有的代码，它将正确导出到excel工作簿和工作表。唯一的问题是，我需要将导出的数据限制为月末日期范围（例如：1/31/2017到4/30/2017）以及工厂编号（例如：“ 4101”） 感谢您提供的任何帮助。 公共功能InventoryXport_4100（） Dim appXL作为对象 Dim wb作为对象 Dim wks作为对象 Dim xlf作为字符串
..
访问VBA代码以插入到两个不同的表中
我有一个用户表单，当我单击一个按钮时，该用户表单会插入“用户”表和“组织者”表 中，用户数据插入没有问题，但是组织者表数据却没有。它给我一个错误，说“由于类型转换失败，ms访问集1变为空” 注意：user_id是用户表中的主键，而组织者表中的外键。 的数据类型为长整数。 我将不胜感激 Private Sub InsertSqlIntoOrgTable（） Dim or
..
如何计算EAN-14的校验和数字？
我正在尝试验证vba访问中的EAN 14 UPC代码。我试图在网上找到它，但是没有运气。我刚刚找到了EAN 8和EAN13。因此，我尝试将其编码为类似于EAN 13，如下所示： If Len（条形码）= 14然后 '为EAN 14做14位长 checkDigitSubtotal =（Val（Mid（Barcode，2，1）））_ +（Val （中（条形码，4，1）））_ +（Va
..
MS Access VBA从表中查找图像文件名，搜索并复制它们
我正在使用Access2013。我在一个表中有一个图像列表。然后，我需要搜索一组文件夹（包括子文件夹），找到图像并将其复制到新目录。包含图像名称的表未引用文件路径。 实现此目的的最佳方法是什么？是否可以遍历表并执行搜索，还是我将其分解并手动定位每个文件并更新标记以表示存在，然后返回并复制它们？ 不确定如何执行此操作，但是会感谢您的任何想法。 谢谢。 解决方案 对于某些导入
..
从MS Access填写PDF表格
我在此处上找到了一条帖子如何从MS Access中填充可填充PDF。 这是用于填充可填充PDF的Visual Basic代码。我一直在使用Excel来执行此功能，并且想将数据库迁移到Access并仍然保持相同的功能。我已经想出了如何将我的VB代码添加到按钮上，但是当我单击它时给了我错误。 我有Adobe Acrobat X Pro和MS Access2010。我的PDF文件是用Word
..
DAO.Recordset性能
如果我要打开表或查询的DAO.recordset 会做类似的事情 Set rs = CurrentDb.OpenRecordset（“ dbo_Some_Table”，dbOpenDynaset，dbSeeChanges） 然后快 Set rs = CurrentDb.TableDefs（“ dbo_Some_Table”）。OpenRecordset（db
..
VBA更改矩形的背景色-Access
因此，我尝试在Access中更改矩形的背景色。我知道您可以轻松地执行 Box1.BackColor = RGB（0，0，0），但是我想在文本框中输入一个值，然后将该颜色值显示为我更新了文本框。 我认为以下方法会起作用，但那没有用。 Textbox1 = 0、0、0 将Dim P1作为字符串 P1 =“ RGB（” + Textbox1.text + “）” Box1.Bac
..
关闭用户从Access-VBA打开的特定Excel文件
我看到了如何使用的版本 Dim运行为Excel。应用程序 但是我使用的Access版本没有Excel.Application作为选项。 我已编写了以下代码，但可以运行，但没有关闭文件 将Path1视作字符串 Dim objXL作为对象 Dim xlWB As对象 Path1 =“ C：/ .....” Set objXL = CreateObje
..
MS Access：将组合框中的选定条目插入表格
这是我使用MS Access所做的示例。我有一个带有人名的表和两个用于添加电话号码的文本字段。我创建了一个带有名称的列表框。我设法从列表框中插入选定的姓名，电话号码将文本字段（Tel1和Tel2）插入表（ContactTable）中。我使用了如下所示的脚本。如何更改此脚本以使用组合框而不是列表框。 Private Sub ListBoxEnter_Click（） Dim名称为字符
..
将字符串数据拆分为多列访问
我有一个包含多个服务代码的列，我希望将它们拆分成不同的列，以便在Access中进行计数。一行示例如下所示： $ = **; = AA AC BB1 CA5 CC4 CC5 CC6 CC7 CC9 CD1 CI CR D0 D1 D2 D3 D9 F F> FA7 FA9 FB1 HA6 KJ P * P？ PW PZ QG V4 WJ 1D 2O 目标是创建AA列，AC列
..
在vba中使用多个字符串过滤访问报告，导致数据类型不匹配
在过去的几周里，我一直在自学Access，并且使用旧问题解决了我遇到的许多编程难题方面做得很好。我终于碰壁了，无法使此过滤器正常工作。 我正尝试在表单上使用多个组合框，以根据多个条件过滤报表。当按客户，分支机构和日期范围进行过滤时，它的效果很好，但是我为增加G / P％范围过滤器而进行的许多尝试都令人非常沮丧。 我正在使用vba连接来自组合框的字符串以将它们转换为过滤器，但是我遇到了数
..
尝试从Excel中在Access中运行Make Table查询
我正在测试以下脚本。 Sub Update_All（） Dim MyDatabase As DAO.Database Dim MyQueryDef as DAO.QueryDef Dim MyRecordset As DAO.Recordset Dim i Integer '步骤2：识别数据库并查询 PathOfWorkbook = ThisWorkbook.
..
在vba Access 2000中创建新表和字段时。获取错误数据类型转换错误
我正在尝试为Access 2000在vba上创建一个带有一些字段的新表。当该字段的数据类型为Text时，我可以创建该表和一个字段，但我需要将其设为Number。当我将数据类型从文本更改为数字时，出现错误数据类型转换错误。任何帮助，将不胜感激。谢谢 公共子CreateNewDB（） Dim db作为DAO.Database Dim tdf作为DAO.TableDef Dim fl
..
将附件保存到硬盘
我正在尝试编写一个简单的任务：从Access（2013）数据库检索附件并将其保存到磁盘。目前，我希望代码从记录集中获取第一条记录并将附件保存到C：\maptest.pdf 它显示错误3265：找不到项目在这个集合中（但是数据库中的每个记录都有一个附件）。 有人知道我在做什么错吗？ Private Sub CommandButton4_Click（） Dim appAcc作为新
..