access-vba

-1热度

1回答

我已经创建了一个用户窗体来将一个Excel工作表导入到一个特定的Excel表格。但是，我需要导入的工作簿包含多个工作表，这些工作表是每个工作表上每月的31天。有没有办法在用户表单上创建组合框，以允许用户使用VBA选择他们希望导入访问表的工作表？这里是我的代码： Private Sub btnBrowse_Click() Dim diag As Office.FileDialog

0热度

1回答

使用Windows API在窗体中使用Ms Access淡入淡出

我已经设法使表单正常淡出，但出于某种原因，我的淡入功能无法正常工作。加载过程中形式为“挂钩”。它正常加载，然后淡入。而不是在开始时淡化。这是通过创建一个模块，然后在表单内编码完成的。形式代码： Option Compare Database Dim gintC Private Sub Form_Load() Me.TimerInterval = 2 FadeForm Me, Fade

4热度

1回答

常数，指示访问或Excel

我写一般用一些宏。我有一个应该可以在Access和Excel下执行的宏。我尝试了以下想法。 #If Application.Name = "Microsoft Excel" Then sFile = Left(ThisWorkbook.FullName, InStrRev(ThisWorkbook.FullName, ".")) & "foo" #ElseIf Application.

0热度

1回答

错误3075 - 语法错误，当我写</p> <pre><code>" ***and LaDate=#"" & Format([LaDate] - 1, ""mm/dd/yyyy"") & ""#"")) = 0))*** As C " </code></pre> <p>什么是错的，上面的代码下面的代码

我的代码崩溃？ SELECT LaTable.Num, LaTable.LaDate,((DCount(""LaDate"", ""Latable"", ""Num="" & ""[num] "" " _ & " ***and LaDate=#"" & Format([LaDate] - 1, ""mm/dd/yyyy"") & ""#"")) = 0***)) As C " _

0热度

1回答

当文本框内容在Access 2013 VBA中发生更改时，如何将组合框的选择更改为默认值

当需要将文本框的内容更改为默认值时，我需要将两个组合框的选择更改为默认值更改。我有一个与字段绑定的审计线索，当库存日期发生变化（文本框Qtr1Date1）时，我需要用户选择新的“更改原因”和“更改发起者”（组合框Qtr1Date1Changer和Qtr1Date1Initiator）。我有一个AfterUpdate事件文本框在审计表中记录新的日期;如果日期更改为默认值，我可以在此添加更改两个组合框

0热度

1回答

Access 2013中1：m表的主窗体和子窗体

我想显示窗体上两个表中的字段。这两个表格是“客户”和“车辆”。（1：M）。客户字段将显示在主窗体中，并显示我已经在数据表视图中放置子窗体的车辆字段，并且我为车辆ID添加了一个文本框。当我输入CustomerID并在另一个窗体上单击一个命令按钮时，将使用子窗体（sfrmVehicle）打开此主窗体（frmCustomerDetails）。客户字段正确显示在主窗体中。没有错误消息，但我不能在子窗体

-1热度

1回答

为什么我的照片闪烁着我的计时器

我有一个文本框，每隔一秒钟打勾一次。我的表格上有一张照片，而且一切正常，我决定改变照片，为照片添加一张新照片，照片每秒闪烁一次，无法解决突然发生的原因，或者如何阻止它。帮助

1热度

1回答

使用Access VBA（DMax）函数在Where /条件列中使用表格字段和变量

这可能是一个基本的格式问题，但由于某种原因，我无法找到解决方法。我使用的场景是我想使用VBA从给定类别的表中的一个字段中查找最高数字（在同一个表中的另一个字段中标识）。我有八类，各有不同的数字（例如） ATD 500 ATD 250 ATD 700 MLK 500 MLK 120 PTO 900 我认为要做到这一点，最好的办法是在DMAX功能，但由于某种原因，我遇到的语法错误无论怎样

0热度

1回答

运行SQL语句时无效的过程调用（带参数的最大功能）

所以这是我在这么多小时中的第三个问题。再次感谢所有花时间帮助我完成SQL考验的人。我想这可能是我对昨晚的探戈，所以这里有云：从@Vojtěch多纳尔采取了一些很好的意见后，我将我的查询一个从一个连接字符串参数化的SQL查询的位置： PARAMETERS NewPrefix TEXT; SELECT MAX([Suffix]) FROM [SalesTable] WHERE [Prefix]

0热度

1回答

试图从Excel运行访问查询

我刚遇到两个问题。首先，我似乎无法在Excel中运行Access中的表查询。我收到一条错误消息，说'表格风险评级已经存在'。必须有一种方法可以从Excel运行生成表查询。此外，更重要的是，我的代码看起来很不稳定。如果我反复运行F8来运行它，一切正常。如果我通过按钮单击事件运行它，会出现以下错误：'远程服务器机器不存在或不可用'。看起来Excel似乎正在失去与Access的沟通。这只是一个猜测。这个