资源描述：
《access编程学习手札》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、Access编程学习手札（一）注册和登陆窗体1安全设置2判断文件和文件夹是否存在函数4在表中新增一个字段的代码5执行"压缩和修复数据库"的代码6Access输出资料到Word用于打印6公历农历计算函数13逐条删除子窗体中的记录20为主窗体、报表设置数据源的方法21超好用的智能文本框通用函数21ACCESS中如何禁用Shift键和启用Shift键22论述Access和Execl互相结合的作用23在子窗体数据表中应用DCOUNT函数24如何解决禁止用SHIFT键打开MDB/MDE文件25附件链接25（一）注册和登陆窗体1.1注册窗体1.1.1用户名提示制作label
2、提示form_load()设置.caption=“新用户注册”判断函数：IsNull(Dlookup(“密码”,”用户管理表”,”用户名=’”&Me.txt用户名&“’”))1.1.2注册DoCmd.RunSQL"INSERTINTO用户管理表(用户名,管理级别,密码)VALUES("&"'"&UserName&"'"&","&"'"&pass&"',"&"'"&password&"'"&")"1.2登录窗体1.2.1使程序窗口最小化DoCmd.RunCommandacCmdAppMinimize1.2.2保存最后一次登录信息1.2.2.1建立登录信息保存表（用
3、户名；密码；是否保存；用户id【数值型】）1.2.2.2调用该表信息Setdbs=CurrentDbSetrec=dbs.openRecordSet(登录信息保存表)rec.MoveFirstIfrec!是否保存=TrueThenMe.txt用户名=rec!用户名Me.txt密码=rec!密码Me.是否保存.value=rec!是否保存ElseMe.txt用户名=””Me.txt密码=””EndIfrec.closedbs.closeSetdbs=NothingSetrec=Nothing1.2.3判断登录密码Me.txt密码=Dlookup(“密码”,”用户管
4、理表”,”用户名=’”&Me.txt用户名&“’”)1.2.4保存当前用户信息Docmd.RunSQL“UPDATE登录信息保存表SET是否保存=true,用户名=‘”&Me.txt用户名&“’,密码=’”&Me.txt密码&“’where用户id=1”1.2.5更新登录次数Docmd.RunSQL“UPDATE用户管理表SET登录次数=DLookup("登录次数","用户管理表","用户名='"&Me.Text用户名&"'")+1&“,上次登录时间=#”&format(Date,”yyyy-mm-dd”)&“#where用户名=’“&Me.txt用户名&“’”
5、安全设置FunctionChangeProperty(strPropNameAsString,varPropTypeAsVariant,varPropValueAsVariant)AsIntegerDimdbsAsObject,prpAsVariantConstconPropNotFoundError=3270Setdbs=CurrentDbOnErrorGoToChange_Errdbs.Properties(strPropName)=varPropValueChangeProperty=TrueChange_Bye:ExitFunctionChange_Er
6、r:IfErr=conPropNotFoundErrorThen'Propertynotfound.Setprp=dbs.CreateProperty(strPropName, varPropType,varPropValue)dbs.Properties.Appendprp ResumeNextElse'Unknownerror.ChangeProperty=FalseResumeChange_ByeEndIfEndFunction'以下代码放在启动窗体中PrivateSubForm_Open(CancelAsInteger)DimStrmdeAsStrin
7、gOnErrorResumeNextStrmde=CurrentDb.Properties("mde")IfErr.Number=0AndStrmde="t"ThenChangeProperty"AllowBypassKey",1,False'False为禁止Shift键，True为恢复ElseChangeProperty"AllowBypassKey",1,True'False为禁止Shift键，True为恢复EndIfEndSub'如要用命令调用可用如下方法PrivateSub允许_Click()OnErrorResumeNextChangeProperty
8、"AllowBypass
