Vba 在文本框中设置默认值

我想在文本框中设置一个默认值。而是显示“名称”

价值有三个部分
1.DocTypeShortName：文档类型名称；PM
2.Y：年；20
3.DocumentNum：该年的文档数；005

我想要的结果是PM20005

Dim Y As Long
Dim DocumentNum As String
Dim DocTypeShortName  As String
rsfilter = SQL..
DocumentNum = Format(Right(rsFilter!DocumentNumber, 3) + 1, "000")
Y = Format(Date, "yy")
DocTypeShortName = DLookup("Documentshortname", "tblDocumenttype", "documenttypeID = " & 1)

'  1. Its show only "20001"
Forms!frmplanmonth!DocumentNumber.DefaultValue = Y & DocumentNum

' 2. Not ok, show "#Name?"
Forms!frmplanmonth!DocumentNumber.DefaultValue = DocTypeShortName & Y & DocumentNum

' 3. I try to hard code but its show only "PM"
Forms!frmplanmonth!DocumentNumber.DefaultValue = "'PM'"

' 4. Not ok, show "#Name?"
Forms!frmplanmonth!DocumentNumber.DefaultValue = "'PM'" & Y & DocumentNum

---

当我只使用年份和文档编号时，它可以工作。添加docTypeShortName时会出现错误。

请尝试使用带引号的字符串：

Forms!frmplanmonth!DocumentNumber.DefaultValue = "'" & DocTypeShortName & Y & DocumentNum & "'"

---

请尝试使用带引号的字符串：

Forms!frmplanmonth!DocumentNumber.DefaultValue = "'" & DocTypeShortName & Y & DocumentNum & "'"

---

不客气。如果您觉得有问题，请标记为已回答。不客气。如果您觉得有问题，请标记为已回答。