如何使用VBA将在文本框中输入的值分配给另一个窗体MS Access上的组合框选择

Question

我有一个包含6个文本框的表单，其中3个包含每月、季度和年度会员类型的更新货币值。在另一种形式中，我有一个包含3种成员类型的组合框，当选择成员类型时，我想将所选内容的更新货币值输出到文本框中。如果有人能帮助/推荐任何足智多谋的链接，我将不胜感激。我对vba的理解是不错的，但在编写正确运行的代码时遇到了困难。

Private Sub cbMmemberType_change()
If cbMemberType.Text = "Monthly" Then
frmSubscriptionDetails.txtSubCost.Text = frmUpdatedCosts.txtUpdatedMonth.Text
ElseIf cbMemberType.Text = "3 Months" Then
frmSubscriptionDetails.txtSubCost.Text = frmUpdatedCosts.txtUpdated3Months.Text
ElseIf cbMemberType.Text = "Annual" Then
frmSubscriptionDetails.txtSubCost.Text = frmUpdatedCosts.txtUpdatedAnnual.Text
End If
End Sub

Answer 1

Text属性只有在控件具有焦点并使用AfterUpdate事件时才有效，因此请尝试：

Private Sub cbMmemberType_AfterUpdate()
Select Case Me!cbMemberType.Value
Case "Monthly" 
frmSubscriptionDetails!txtSubCost.Value = frmUpdatedCosts!txtUpdatedMonth.Value
Case "3 Months" 
frmSubscriptionDetails!txtSubCost.Value = frmUpdatedCosts!txtUpdated3Months.Value
Case "Annual" Then
frmSubscriptionDetails!txtSubCost.Value = frmUpdatedCosts!txtUpdatedAnnual.Value
End Select
End Sub