时间戳

首页 > 解决方案 > 无需单击即可填充 VBA Access 文本框

ms-access - 无需单击即可填充 VBA Access 文本框

问题描述

我的文本框使用以下代码正确填充。唯一的问题是，我需要文本框自行填充，而无需用户单击、输入或执行任何操作。

Private Sub Text1106_Click()

Dim Chip As Variant

 Chip = DLookup("ExtMaintChip", "TableDataPave", "[YrRated] = Forms![FormsFormattedPave]![YrRated] And [RdSecNo] = Forms![FormsFormattedPave]![TextRdSecNo]")

If Chip = 0 Then
    Me.Text1106 = 0
ElseIf Chip = 1 Then
    Me.Text1106 = "<10"
ElseIf Chip = 2 Then
    Me.Text1106 = "10-20"
ElseIf Chip = 3 Then
    Me.Text1106 = "20-50"
ElseIf Chip = 4 Then
    Me.Text1106 = "50-80"
ElseIf Chip = 5 Then
    Me.Text1106 = ">80"
End If

End Sub

标签： ms-accessvba

解决方案

这完全取决于您是只想在第一次加载表单时填充该文本，还是在每次加载新记录时填充该文本，在这种情况下，您需要使用 Form_current() 事件。

要仅在第一次运行代码，您可能会使用如下内容：

Private Sub Form_Load()
   Text1106_Click()
End Sub

或者为每条记录运行它，如下所示：

Private Sub Form_Current()
   Text1106_Click()
End Sub

推荐阅读