我有个if。在第一个条件中,我使用了一个Dlookup函数来检查表单中文本的值是否与我拥有的某个表不同,但该条件并未被采用。 我已经将<>操作符更改为=,但我仍然得到相同的结果。它永远不会进入Else部分。 Private Sub btn_Cambiar_Click()
On Error Resume Next
DoCmd.SetWarnings False
Dim CambiarContraseña As String
Dim coincidenContraseñas As Variant
CurrentDb.Execute d
我想从存储它的表阈值中获得lower_limit值搜索,但是我总是得到:"Error RunTime 94:无效使用Null值“。我不想让子例程把lower_limit还给我,这对于SearchAbnormalities的下一步是唯一有用的。我已经检查了表阈值( PK由ID_parInput、rangeagein、性别组成),并且有对应于此选择的行。
Private Sub SearchAbnormalities(ByVal ID_parInput As Integer, ByVal gender As String, ByVal eta As Integer, Optional By
新用户在这里:)
我在下面的代码中有一个关于DLookup的问题。假定该代码只允许选定的用户打开窗体。用户在tbl中,接下来是On错误恢复,代码正在工作,允许用户访问应用程序,但是当我注释掉On错误时,就会得到运行时错误'13':类型不匹配。我希望有人能解释一下,为什么它会因为错误而失败。我理解如果语句需要一个条件来计算,那么如何获得用户名允许应用程序打开表单呢?
Private Sub Form_Open(Cancel As Integer)
On Error Resume Next
If DLookup("[CitrixID]", "tbl_Us
我试图计算当前记录的LetterSent1Bool字段,该记录是使用按钮打开的。
所以我想要的是:如果LetterSent1bool字段大于零(即1),那么MsgBox运行查询。
到目前为止,我已经:
DoCmd.SetWarnings False
If DCount("[LetterSent1Bool]", "dbo_T_Volunteers" & Me!VolunteerID) > 0 Then
MsgBox "ERROR ! This Volunteer has already received this Letter ,&
当单击窗体上的按钮时,我有以下代码:
If DLookup("ECN_Class_I_Change", "ENGINEERING_CHANGE_NOTICE_TABLE", "[ECN_Class_I_Change] = -1") Then
If DLookup("ECN", "ENGINEERING_CHANGE_NOTICE_TABLE", "'ECN' = 'Forms!DRAWING_INFO_FORM!Subform_DRAWING_STATUS!Subform_DRAWI
我有一个有几个不同文本框的表单。每个文本框都填充不同查询的结果。我不太熟悉VBA / Access (我正在自学),也不确定我所做的工作是否是最有效的。我希望有人能建议一种不那么麻烦的方法,在表单上填充不同查询的文本框,或者甚至建议一种更好的变量命名约定。
*编辑--我认为有一种方法可以将公式直接放置在文本框中,而不是通过VBA进行,但我收到了一个#name错误。
Private Sub Form_Load()
Dim db As DAO.Database
Dim qdf As QueryDef
Dim rst As Recordset
Dim qdf2 As QueryDef
Dim rs
是否可以将查询结果放入表单的文本框中?我有一个表单,我想把最后一个“订单号”(这是一个文本字段)放入表单的文本框中。我编写了一个查询来显示最后一个订单号-- SELECT Max(SwitchingProcedure.OrderNumber) AS MaxOfOrderNumber FROM SwitchingProcedure--这个结果可以放在绑定到这个表的表单上吗?有没有更好的方法来做这件事?
我有几个具有查找字段的表,它们指向第三个表中的相同数据,这两个字段都可以选择多个值。用户可以从每个表中选择一条记录,我需要能够分离出VBA中的重叠值。
为此,我尝试在VBA中创建第三个数组,将结果值转储到其中,但我得到了一个Type不匹配错误。我似乎找不到发生这种事的原因。代码,尽量减少,但又不失去它的意义如下:
Function SetEnabledColours()
'Indexes for arrays of available colours
Dim IndA As Long, IndG As Long, IndO As Long
'Arrays of availabl
我在Access中有一个db,我正在尝试获取一个textbox来运行我的查询,并将另一个有界textbox的值作为DLookUp中的条件传递。我在设计视图中运行了查询,当我直接输入条件时,它会返回正确的结果。当我打开报告时,它会给出所有可能的行的总和。换句话说,它不过滤行。
谢天谢地,我已经12年没有使用Access了,到目前为止,我所做的一切都是教程/示例拼凑,但这里是.
SQL查询:
SELECT Sum(IIf(Attended=-1,1,0)) AS attendance
FROM Students_Classes_Attendance
WHERE (((CStr([Students_
我正在尝试将查询结果赋值给变量。我有一个查询(让我们称之为"Query1"),它将检查各种条件。我试了一下,如下。
Dim rst As DAO.Recordset
Dim strSQL As String
Dim Variable1 As String
strQry = "Query1"
Set rst = CurrentDb.OpenRecordset(strQry)
Variable1 = ?????
rst.Close
Set rst = Nothing
我需要帮助来完成上面的代码,这样我的变量才能获得查
我是ms_access的新手,正在尝试创建一种方法来检查我的数据库中是否有打开的记录,如果有,则不允许打开输入的新记录的表单。 我正在尝试检查表单加载,如果表中的任何记录在yes/no列上被选中Yes。我需要确保一次只有一条记录可编辑。 我终于到了一半,它将检查,要么禁用或启用按钮,使他们不能输入额外的记录,但我不确定如何继续检查一旦我关闭记录。它只是在第一次加载表单时保持不变。其次,即使varX为-1,我也无法将标题从“开始飞行记录”更改为“正在进行中的飞行”。 Dim varX As Variant
varX = DLookup("strWorkingRecord",
很简单的问题。我在表单中有一个文本字段,希望将默认值设置为查询结果。此特定查询返回我在Access中设置的小型发票系统的默认税率。
查询(qrySettingsDefaultTaxRate)如下所示,并返回一行,与我希望在此表单中设置为默认税率的十进制税率相等:
SELECT CDbl([value]) AS default_tax_rate
FROM settings
WHERE (((settings.key_name)="default_tax_rate"));
我尝试将文本字段的默认值设置为:
=[qrySettingsDefaultTaxRate]![default_
我正在使用VBA为on Access创建一个登录。
一切正常,直到输入的用户名(在登录表单上)拼写错误。如果拼写错误,我会得到"Error 94;Invalid use of Null“。以下是我的代码(直到bug所在的位置)
Private Sub Command1_Click()
Dim user As String
Dim userlevel As Integer
Dim TempPass As String
Dim ID As Integer
Dim UserName As String
Dim TempLoginID As String
Dim password As St
我有rest web服务,当我返回一个结果作为xml响应是好的,但是当我尝试作为xml返回列表时,它返回奇怪的响应。只有一个对象满是params,而其他对象没有填充数据。
我的服务班:
@Path("/result")
public class Service {
@GET
@Path("/{paymentId}")
@Produces("application/xml")
public Response getPaymentResult(@PathParam("paymentId") String
我正在使用我在网上找到的代码来填写Word文档中的表单域。当我在一个空文档上使用它并向它添加一个表单域时,它可以工作。但是,当我在表单上使用它时,当我执行代码时,我试图填充什么也没有发生。我检查了Word中字段的名称,它们与代码匹配,我不知道出了什么问题。
我还检查了Access中的数据类型,这不是问题所在,我现在还不能访问代码,但是有人知道是什么导致了这个问题吗?
编辑:这是一个类似的代码,我不能访问完全相同的代码:
Dim appWord As Word.Application
Dim doc As Word.Document
'Avoid error 429, when Word
我继承了一个VBA项目,并试图调试正在接收的一个错误:Invalid use of Null。过了一段时间,我找到了错误发生的地方,但还没有找到具体的罪魁祸首和/或问题的解决方案。请参见下面的片段(抛出异常的行带有注释):
Dim db As Database, wsp As Workspace
Dim retVal As Variant
Dim tableType As Long
'Check to see if the table name exists in the zLinked_Tables table; if it does, that means
SET @v1 = '';
SET @v2 = '';
SET @Query = CONCAT('SELECT sum(colName1), sum(colName2) INTO @v1, @v2 FROM tableName WHERE id=1 ');
PREPARE stmt FROM @Query;
EXECUTE stmt;
DEALLOCATE PREPARE stmt;
SET @Query = CONCAT('SELECT id, name,',@v1,' as value1, ',@v2,&
我需要创建一个独立的函数来检查一个值是真还是假。我尝试设置一个SQL查询来完成这个任务,但是无法将结果传递给变量。
查询始终只返回一条记录。
如何将SQL字符串的结果作为函数的返回值传递?
已更新
Private Function HasBM(iMandate As Variant) As Boolean
'Returns boolean value for whether or not mandate has a benchmark
Dim sSQL1 As String
Dim sSQL2 As String
Dim db As Database
Dim rs As Record
我有一个从DLookup获取模型的MyTable公式。直到字段名模型的值为空为止,一切都可以工作。
关于它如何不理解空信息,我得到了一个运行时错误94。
我试过使用Nz()函数。当我有这么多双引号和单引号时,使用这些函数是令人困惑的。
这就是我所拥有的。
Dim other as String
other = DLookup("[Model]", "[Part Number & Part Name]", "[Part Number]='" & Forms![Press 2]![Containment - Press 2 s