没有大区别
借用上面例子
a=1 or a =2 ==>可以写为 a in (1, 2)
唯一的区别应该在于
in 可以跟子查询
select from tab
where dept in (select dept from tab where sno = '001')
2登录窗体中,建立三个控件,一个用户名文本框,一个密码文本框,还有一个登陆按钮;
3登录按钮的单击事件代码:
if isnull(me用户名) or isnull(me密码) thenmsgbox "请输入正确的用户名和密码!"
elseif isnull(DLookup("密码","用户表","用户名='" & me用户名 & "'")) then
msgbox "用户名不存在!"
elseif DLookup("密码","用户表","用户名='" & me用户名 & "'")=me密码 then
docmdopenform 窗体名称
else
msgbox "密码错误!"
end if
'祝你成功!
当年我在这里也走了不少弯路,查了很多资料才发现问题很简单,下面就轻松实现锁定与解锁
在窗体页眉中新建一个复选框或单选框,这里我用的是复选框(我取的名叫ChkLock),下面是这个复选框的单击事件
Private Sub ChkLock_Click()
Dim ctl As Control
For Each ctl In MeSection(0)Controls 'Section(0)是主体的意思
If ctlControlType = acTextBox Or ctlControlType = acComboBox Or ctlControlType = acCheckBox Then
'或用类似下面这句
'If ctlName <> "ChkLock" And ctlName <> "TxtFind" And ctlControlType <> acLabel Then
ctlLocked = MeChkLock '这里就是实现锁定或解锁
End If
Next
End Sub
上面实现锁定的代码,下面实现自动锁定,不管你有没有忘记利用窗体的Current事件(成为当前事件),如果要新建记录要自动解锁
Private Sub Form_Current()
'检查是否要锁定
If MeNewRecord Then '如果是新建状态就可以编辑(将勾取消)
MeChkLock = False
Else
MeChkLock = True
End If
Call ChkLock_Click '调用复选框的单击事件,在这里变成子程序
End Sub
最好把这个控制锁定的复选框放在窗体页眉上,不然连它都锁定了就没法解锁了
附:
'Section(0)是主体的意思,这里就是指循环主体上的控件,页脚页眉上的控件就影响不到了,如你要,Section(1)表示是窗体页眉Section(2)表示是窗体页脚
ControlType 属性是用于指定控件类型的固有常量。
常量 控件
acBoundObjectFrame 绑定对象框
acCheckBox 复选框
acComboBox 组合框
acCommandButton 命令按钮
acCustomControl ActiveX(自定义)控件
acImage 图像
acLabel 标签
acLine 线条
acListBox 列表框
acObjectFrame 未绑定对象框或图表
acOptionButton 选项按钮
acOptionGroup 选项组
acPage 页
acPageBreak 分页符
acRectangle 矩形
acSubform 子窗体/子报表
acTabCtl 选项卡
acTextBox 文本框
acToggleButton 切换按钮
这个是编码的问题,估计你的网页是GBK的编码
只要把以下四个地方都设成统一的编码就OK了~
一、<
%@LANGUAGE="VBSCRIPT"
CODEPAGE="65001"%>
二、<
META
>
以上就是关于access中or跟in()有什么区别全部的内容,包括:access中or跟in()有什么区别、ACCESS数据库怎么制作一个简单的登陆窗口、access数据库的记录如何锁定等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)