database - Access ，选择 Case ActiveControl.Name?

Question

我在表单 Access 中有 2 个组合框(c1，c2)，如果用户从中选择一个值，则带有按钮 Search c1 并点击Search 它应该打开一个FORM1，如果用户从c2 中选择一个值并点击在搜索中它应该打开 FORM2。

Private Sub Commande6_Click()
    Select Case ActiveControl.Name
        Case "c1"
            DoCmd.OpenForm "FORM1"
        Case "c2"
            DoCmd.OpenForm "FORM2"
        Case Else
            'traitement
     End Select
End Sub

Answer 1

如果您单击一个组合框然后单击您的搜索 按钮，则组合框不是最后一次单击，因此它不是事件的 - 搜索按钮是 ( Commande6 在你的情况下)

Public lastCBclicked as String

Private Sub c1_Click()
    lastCBclicked  = ActiveControl.Name
End Sub

Private Sub c2_Click()
    lastCBclicked  = ActiveControl.Name
End Sub

Private Sub Commande6_Click()
  Select Case lastCBclicked  
    Case "c1"
        DoCmd.OpenForm "FORM1"
    Case "c2"
        DoCmd.OpenForm "FORM2"
    Case Else
        'traitement
   End Select
End Sub