如何使用DLookup使用VBA按Microsoft Access中的按钮更改标签的标题

Question

在Microsoft访问中，我希望能够在Microsoft Access中按下表单上的某个按钮后更改标签的标题。我已经尝试了如下所示的VBA代码，但它不起作用，标题保持不变。

如何解决此问题？

表中的字段是一个名为＆＃34; Sem1-Credits＆＃34;的整数。并且根据相关的programmeID这个字段的内容是我想要将标签标题改为的。 例如，＆＃34; AM＆＃34;的ProgrammeID拥有＆＃34; 30＆＃34;的Sem1-Credits在表格中

该表被称为＆＃34; Program＆＃34; 该表的唯一标识符是＆＃34; ProgrammeID＆＃34; 按钮的名称是AMButton

Forms!StudentOptionForm!S1CreditsL.Caption = DLookup("[Sem1-Credits]", "Programme", "[ProgrammeID]= '" & AMButton & "'")

由于

Answer 1

您 ProgrammedID 可以（并且应该）是 Long 。如果是这样，没有引号：

Forms!StudentOptionForm!S1CreditsL.Caption = DLookup("[Sem1-Credits]", "Programme", "[ProgrammeID] = " & AMButton & "")

并且 DLookup 将返回 Null ，因为没有 Caption 不接受的结果，因此包裹在 Nz ：

Forms!StudentOptionForm!S1CreditsL.Caption = Nz(DLookup("[Sem1-Credits]", "Programme", "[ProgrammeID] = " & AMButton & ""))