access-vba

    0热度

    1回答

    我在Microsoft Access中有一个表,充当静态的国家/地区列表(名为country table),country_id字段用作主键标识符。我试图在静态列表中使用country_id,并将它们与另一个表(名为引用表)进行比较,后者包含国家引用(country_ref1和country_ref2)。请注意,引用表在country_ref1和country_ref2中有重复条目,并且还包含空值

    0热度

    2回答

    我正在玩一个AccessDB应用程序中的新函数来从医院名称返回Lat/Lon信息。以下功能提供我需要的名称,当我提供一个名称&地址。我注意到(意外的)该函数返回一个格式化的地址,即使我只提供一个有效的医院名称。我想我可以利用这个来将地址信息回填到我的数据库中。 看来Geocode.sRetAddress = .selectSingleNode("//formatted_address").Text

    0热度

    2回答

    我正在尝试使用DCount()函数从我的表中返回一个计数。我的问题是它总是返回一个NULL值。 我应该如何重写这个VBA语句,以便返回准确的计数? ReturnedCount = DCount("CountOfItems", "[__TestTable]", "NameOfItem = " & ItemName) Debug.Print ReturnedCount

    0热度

    1回答

    我想嵌入PDF(这是客户的收据),作为图像在报告中嵌入,这可能是多一个。 这应该在报告中显示为图像而非PDF图标,因为我们希望将其发送给客户。 请让我知道这是否可以做到。

    1热度

    1回答

    我已经收到了我的一个问题,我的一位同事回答了这个问题,但是我想在这里重新发帖,以防其他人遇到问题并提出问题,最后请注意。如果感兴趣的话,原文如下:Original Post 非常感谢社区的所有人,尤其是@Andre的帮助! 很奇怪,但是当我这样做,它一直试图把我的所有字母倒退。例如:如果我搜索“史密斯”,它会将其输入为“受害者”。我确信这与点击事件有关,但我有一位朋友看着它,我认为她已经破解了它!

    0热度

    2回答

    我有两个接近相同的表,唯一的区别是较新的有不同的字段名称。基本上,旧桌子已经过时了,需要重新工作;我试图提取所有字段,其中VendorNumber = Vendor_ID所有被复制到的字段保证为空。 下面的SQL代码,如果非常大,但它是我可以用它最好的... SQL = "INSERT INTO tbleVendorData (EDIContact,EDIPhone,EDIEmail,EDIPla

    0热度

    1回答

    我有一个新的Access 2016数据库。我添加了对MS Internet控件的引用,它基本上可以将Web浏览器控件放置在表单上,​​没有问题像老板一样工作。 我有另一个Access数据库,已从2013年转换为2016年。我添加引用,但这次禁用控件,不会让我把它放在窗体上。 我在同一台机器上,所以我不认为这个问题与权限/安全性有关(我可能是错的)。我搜索了几个小时,但我无法找到关于此问题的任何信息

    1热度

    1回答

    问题 处理Access 2010数据库的文档例程。在数据库内有许多模块&类。我可以轻松地打印这些名称以及Get/Set属性,但尚未找到通过VBE的模块属性面板检索描述输入的方法。 背景 使用Application.VBE.VBProjects收集我可以用 'iterate through modules For Each vbComp In vbProj.VBComponents Se

    0热度

    1回答

    我运行下面的查询在Access VBA Case "Customer Name" strSQL = "SELECT CustomerID, Customer_Name, Industry FROM TBLCUSTOMERSNEW WHERE ucase(Customer_Name) Like '*" & UCase(tempStr) & "*'" & " ORDER BY Custom

    1热度

    1回答

    我有表在Microsoft Access应用程序 ,并以这样的形式我有2个组合框,一个显示显示查询的名称日期和一个 另外,我有,我想动态显示表,基于什么用户在组合框中选择我想要实现 举例子窗体: Private Sub Form_Load() Select Case comboBoxQueries.value Case comboBoxQueries.value = query1 My