* 以下这段程序,在连编时,出现找不到“BB”, * 请高手指点指点!先谢谢啦! *********************** **** 数据备份 *********************** PUBLIC BB,DD SET safety off && 覆盖文件存盘不提示 CLOSE TABLES ALL && 关闭所有表 BB = messagebox('现在就要进行数据备份吗? ',4+32+256,'提示信息') if BB = 6 if not D IRECTORY(sys(5)
我的一段登陆按钮代码,用户表里有三个用户名,在登陆时只有第一个用户名有效,其他几个都是用户名或密码错误,不知什么原因,请高手指点,代码如下,谢谢! Option Compare Database Dim conn As ADODB.Connection Dim rs As ADODB.Recordset Private Sub cmd_登陆_Click() Set conn = CurrentProject.Connection Set rs = New ADODB.Recordset rs.