Question

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

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

Answer 1

这完全取决于您是仅在第一次加载表单时还是在每次加载新记录时填充文本，在这种情况下，您是否要使用Form_current（）事件。

要只在第一次运行代码，可以使用如下代码：

Private Sub Form_Load()
   Text1106_Click()
End Sub

或者为每个记录运行它，就像这样：

Private Sub Form_Current()
   Text1106_Click()
End Sub

无需单击即可填充VBA访问文本框

1 个答案: