access-vba

1热度

1回答

我想通过在我的AccessDB应用程序中实现晚期绑定来解决少数用户的一些XLS引用不匹配问题。我解决了一些问题，但创建了一个新问题。使用延迟绑定和删除XLS引用时，我在术语“LookAt：= xlWhole”（请参阅下面的代码段）中获得“Variable Not Defined”。问题：我是否无法使用Late Binding访问这些变量？然后，我如何解决在Late Binding方案中保留

0热度

1回答

多次调用函数后需要在文本字段中保留值

我有一个按钮，我有一个名为[input norm]的表和两个字段ITEM AND MFG，并且我已经像这样写了代码，当我单击在按钮上它应该保留msgstr的值，当它第二次调用函数时，旧的Text32.Value也应该被保留。例如，在我调用函数CheckColumnType_TEXT("INPUT NORM", "ITEM")时，它会显示'ITEM不是TEXT类型' - 在这种情况下它是正确的，但

0热度

2回答

如何使用控件源的名称从控件获取值？

我正在尝试编写一些代码来审计通过窗体所做的更改。我有工作要做这样的功能： Function WriteChanges() Dim f As Form Dim c As Control Dim user As String Dim db As DAO.Database Dim cnn As ADODB.Connection Dim MySet As ADODB.Recordset D

-1热度

1回答

插入数据从sql查询与MS Access中的一个常量与SQL

我想创建一个MS Access的窗体，您首先在基于条件的表中搜索公司。返回的数据仅仅是匹配公司的名称。然后我想把这些名字加入到不同的表格中。到目前为止，有3个表格：一个存储用户名（tblStartup），一个存储公司名称（tblVC），一个用于保存匹配（tblContact）。我遇到的问题是我想在查询中添加一个常数用户名。因此，例如， “MAX”搜索来自Automotive的公司。他获得了匹

1热度

1回答

如果月份不同，比较日期不起作用

我想比较访问数据库中的4个日期字段，并将最新值和adatum之间的日期差异设置为parkdauer。它适用于日期在同一月份的任何行。 strSQL = "UPDATE Steuerungsboard SET parkdauer = DateDiff('d', [kspausgang], [adatum]) WHERE FORMAT(kspausgang, 'dd/MM/

-2热度

1回答

访问VBA脚本未成功将变量传递到报告中的文本框字段

我试图通过VBA将简单变量传递给报告上的文本框。我已经完成了研究，并看到使用Me.fieldName = value的东西，但我得到关键字错误试图做到这一点。因此，我尝试使用OpenReport的Where部分，但似乎也没有飞。会发生什么情况是代码按预期请求输入，然后打开报告，然后请求参数，即使它应该从字符串中接收它。我知道我错过了一些东西，但我的眼睛没有看到它。请帮我解开我的白痴。现行的

2热度

1回答

TransferText不正确地导入像“FS ###”这样的字符串作为货币

我正在使用VBA DoCmd.TransferText命令将数据从CSV文本文件导入到Access数据库中的新表中。我遇到了一些问题，其中某些文件的前三列中的文本数据导入为货币。我无法弄清楚发生了什么事。 Here是与正确导入（VollintineLines.csv）一个CSV沿测试数据库... PipeID,UpstreamMH,DownstreamMH,Diameter,GISLength,S

0热度

3回答

错误91：对象变量或块变量未设置需要帮助

我试图使用下面的给定过程来下载唯一的邮件，但出现错误（91对象变量或块变量未设置）错误行：。 FindFirst "task =""" & Mailobject.UserProperties.Find("taskID") & """" Private Sub getml() Dim rst As DAO.Recordset Dim OlApp As Outlook.Application

0热度

1回答

如何编辑匹配记录集？

我正在使用下面的两个代码之一下载Outlook邮件，另一个更新它。第一个下载邮件的代码没有问题。但是，当我使用第二个代码来查找任务并对相应的记录集进行一些添加时，有时错误的记录集正在更新可以帮助我吗？的senttime和sentto是反映了错误的任务首先代码： Private Sub getml() Dim rst As DAO.Recordset Dim OlApp As Outlook

0热度

2回答

在这种情况下，DLookup如何工作？

新用户:) 我在下面的代码中得到了关于DLookup的问题。该代码假设只允许选定的用户打开表单。用户在tbl中并且On Error Resume Next代码正在工作，允许用户访问应用程序，但是当我注释掉On Error时，我得到运行时错误'13'：类型不匹配。我希望有人能解释为什么On Error会失败并将其注释掉。我知道If语句需要条件来评估，那么如何获取用户名允许应用程序打开表单？ Priv