很简单,但不知你窗体上各个控件的Name,以下代码供参考:
我假设组合框的name是“cmb月”,以下文本框依次为txt1,……txt11.
窗体设计时组合框为未绑定,记录源设为任一月份绩效考核统计表,将各个文本框的控件来源绑定到相应字段。
完成后写入以下代码:
Private Sub cmb月_AfterUpdate()
Me.Form.RecordSource = "#" & Me!cmb月 & "绩效考核统计表"
Me.Requery
Me.Repaint
End Sub
注意,你的组合框里月份是阿拉伯数字,表名中是中文数字,应改为一致。