Question

我有一个标题标题，以＆＃34; Placeholder＆＃34;开头。然后我有三个领域;名字，姓氏和头衔。我想更新，然后在用户输入这三个字段时附加该标题。

所以如果有人输入名字，＆＃34;史蒂文＆＃34;在第一个名称字段中，标题应该从占位符更新为Steven。

Private Sub First_Name_AfterUpdate(Cancel As Integer)
    Me.provider_label.Caption = Me.First_Name.Value
End Sub

我认为这段代码可行，但它没有。几乎看起来太简单了。我在表单上的Microsoft Access中用VBA编写它。

Answer 1

使用文本框ControlSource中的表达式的非VBA解决方案：

= IIf([Last Name] & [First Name] & [Title] & "" = "", "Placeholder", [Last Name] & IIf(IsNull([Last Name]),"",", ") + [First Name] & " - " + [Title])

或

= IIf([Last Name] & [First Name] & [Title] & "" = "", "Placeholder", Nz([Last Name], "No LN") & ", " & Nz([First Name], "No FN") & " - " & Nz([Title], "No Title))

Answer 2

我刚刚测试过没有问题。你的first_name是一个文本框吗？

Private Sub ProviderUpdate()
    Me!provider_label.Caption = Me!first_name & " " & me!last_name & " " & me!Title
End Sub

然后在每个单独的text_box中，设置事件过程以调用ProviderUpdate sub。

基于实时输入更新标题到文本字段

2 个答案: