大家还得帮帮忙！

clsabc

这个数据库能凑合用了，可是又出现了新问题，打印的时候把所有的数据都打印出来了，而我只想打印当前的一页，看了教程，但是基础太差，怎么也没看明白那段代码应该怎么写！

Henry D. Sy

把手术编号加入到报表的记录源

把打印代码更改为

1. DoCmd.OpenReport stDocName, acViewNormal, , "手术编号=" & Me.手术编号

复制代码

clsabc

还有一点，如图，红圈的位置只能从下拉列表中选择，一旦自行输入，就会弹出如图的窗口，有没有办法能解决呢？

roych

1、设置为“仅限于列表”
2、加上“不在列表中”事件。例如：

1. Private Sub Combo0_NotInList(NewData As String, Response As Integer)
   
2. Me.Combo0 = ""
   
3. Response = acDataErrContinue
   
4. End Sub

复制代码

这表示当数据不在列表中时，先清空数据，然后继续执行，但不会弹出错误提示。

Henry D. Sy

也可以由你自己决定是否将不在列表中的值加入值列表或表中

clsabc

万分感谢大家，可是本人实在笨的可以，楼上两位指点的办法我居然没找到怎么设置！