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