Question

在我的表单标题中，我有一个下拉组合框和一个“全部填充”按钮。在表单标题下面的详细信息部分中，我有一系列用户帐户，每个帐户都有自己的组合框（在标题中选择相同的可用字段集作为组合框）

在标题中选择一个字段以突出显示它后，我希望能够点击此“全部填充”按钮将该文本复制到每个帐户的组合框。

我对此“全部填充”按钮的当前代码是：

Private Sub Copy_Click()

On Error GoTo Err_cmdCopy_Click

DoCmd.RunCommand acCmdCopy
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdPaste

Exit_cmdCopy_Click:
    Exit Sub

Err_cmdCopy_Click:
    MsgBox Err.Description
    Resume Exit_cmdCopy_Click

End Sub

Answer 1

你可以：获取所选值，构造更新查询，更新记录，刷新表单像：

private sub cbo_main_AfterUpdate()
    Dim iVal as string
    ival =  nz(me.cbo_main.value,"")

    dim SQL_SET as string
    sql_set = "update my table set myField='"& iVal &"' Where 'Your where condition'"
    docmd.runSQL sql_set
    me.requery
end Sub

或

如果只有少数组合框只使用主组合框的after事件来更新“其他”组合框。像：

private sub cbo_main_AfterUpdate() update_cbo_value nz(me.cbo_main.value,"") end Sub private sub update_cbo_value(iVal as string) if not ival = "" then cbo_1.value = iVal cbo_2.value = iVal cbo_3.value = iVal end IF End Sub

使用按钮将突出显示的文本复制到表单上的每个组合框字段

1 个答案: