如何修改代码，使操作更灵活？

xiaowuo　发表于：2012-01-19 09:22:28 　

" where instr(1,书名,'教师')=0 or instr(1,书名,'录音带')=0" & _

我的目的是想在窗体上弄个单选打勾按扭，当我想打印含有“教师”的书卡时，就将单选按扭me.check4打勾，否则取消打勾(默认值为打勾)，这样就不用到代码中改来改去，使程序操作更灵活，可是不知道如何改，我用了下面的方法，但运行后出错，请各位老师大大帮忙下，谢谢了。

Dim jc As String '设置一个是否打印教参的参数

If Me.Check14 = False Then

jc = "or" '不进行过滤

Else

jc = "and" '进行过滤

End If

End Sub

然后再将上面那句代码改为

" where instr(1,书名,'教师')=0 & jc instr(1,书名,'录音带')=0" & _

运行后出错，伤脑筋了。俺菜鸟一个，想半天没想出其它方法来。

煮茶论道发表于：2012-01-19 10:27:12

xiaowuo 发表于：2012-01-19 10:31:06

是的，但想通过窗体来控制代码中的or 与and 参数，而不需要到代码中更改，另个这段代码有点特殊，故刚请了西出阳光无故人帮助，稍候再试验后放出解决方法，呵呵

总记录：2篇页次：1/1 9 1 :

Access交流中心