请教红尘如烟老师的一个注册窗体中的确认代码中的问题

殷小宝　发表于：2013-05-23 22:45:07 　

这是注册窗体的设计视图：

确认按钮单击事件部分代码是：

'将注册内容保存表用户表

If NewRecord = False Then DoCmd.RunCommand acCmdRecordsGoToNew

Me![FUserName] = Me.txtUserName

Me![FPassword] = RC4(Me.txtPassword) '密码加密后再保存

If Nz(Me.cboPwdprompt) <> "" Then Me![FPwdPrompt] = Me.cboPwdprompt

If Nz(Me.txtPromptAnswer) <> "" Then Me![FPromptAnswer] = RC4(Me.txtPromptAnswer)

DoCmd.Save

'添加注册用户权限信息,所有窗体权限都被设为默认值0(不允许使用)

strSQL = "INSERT INTO usysRights ( FFormID, FUserID ) SELECT FFormID, " & Me![FUserID] & " FROM usysForms"

CurrentDb.Execute strSQL

问题是 strSQL 语句中的 FFormID, " & Me![FUserID] & "字段是从哪里来的，公共变量上没有她们，FFormID又是指哪个窗体的ID呢？

Me![FUserName] = Me.txtUserName中[FUserName]是字段名吧，对这些感到不解，敬请老师们给予解答，谢谢。

竹笛发表于：2013-05-23 22:49:59

注册是用来防止别人盗版的，怎么还可能解释啊。。。。

殷小宝发表于：2013-05-23 23:07:28

有用这样的代码将数据保存到表中!真没见过。

If NewRecord = False Then DoCmd.RunCommand acCmdRecordsGoToNew

Me![FUserName] = Me.txtUserName

Me![FPassword] = RC4(Me.txtPassword) '密码加密后再保存

If Nz(Me.cboPwdprompt) <> "" Then Me![FPwdPrompt] = Me.cboPwdprompt

If Nz(Me.txtPromptAnswer) <> "" Then Me![FPromptAnswer] = RC4(Me.txtPromptAnswer)

DoCmd.Save

下图是表usysUsers的设计视图：

FRegisterDate默认为now(), Me![FUserName] 中的Me是指本表吗？而不是本窗体。

殷小宝发表于：2013-05-23 23:19:49

Me![FUserID]它是从usysUsers表中来的，FFormID现在是这个字段不知从哪里来的了？

红尘如烟发表于：2013-05-24 22:04:59

Me只能是指代代码所在的VBA类（窗体、报表属于特殊点的类）

这里的FFormID虽然在窗体中没有相应的文本框等绑定控件，但是它在窗体的记录源中存在，所以可以直接引用。

即，Me!XXX，这里的XXX不光可以是控件名，也可以是记录源中的字段名。

殷小宝发表于：2013-05-24 23:38:38

ME还是指当前窗体，可以引用数据源中的字段。FFormID是usysForms表中的一个字段，可它有很多值呀，是指哪一个呢？看来是指所有窗体ID了。

殷小宝发表于：2013-05-24 23:47:26

插入一个字段名就可以将所有的字段值都插入进去了，哇噻。

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

Access交流中心