如何在窗体中传递变量

dreamice01

如何把登陆界面中用户录入的用户名与密码等信息传递给其它的窗体显示。
比如说：
在模块中，声明了全局变量，用来保存用户名和密码

我在登陆界面输入了用户名和官码，系统判断为合法用户，然后关闭登陆界面，进入主界面。但无法在主界面的FORM——LOAD中把登陆界面中保存起来的用户名和密码获取过来，用一个标签显示出来，测试的结果都是传递过来的变更是空值

请大侠教教我怎么弄，急，在线等。谢谢！

tmtony

全局变量 有否使用public 或global声明

rjacky

上传你的例子才好说

dreamice01

以下是我登陆界面的代码
Private Sub Command12_Click()
Dim stdocname As String
Dim stlinkcriteria As String
'Dim user_name_login As String
Set rsX = CurrentDb.OpenRecordset("select * from [login] where [user_id]='" & Text8 & "' and [user_password]='" & Text10 & "'")
If Not rsX.EOF Then
     
     user_id = Me.Text8.Value   '保存用户工号
     user_name_login = rsX.user_name  '保存用户名
     user_password = Me.Text10.Value  '保存密码
      rsX.Close
     DoCmd.Close
     stdocname = "考核管理信息系统主界面"
     DoCmd.OpenForm stdocname, , , stlinkcriteria
Else
     MsgBox "用户名或密码错误，请重新登陆！", vbOKOnly, "系统提示"
     Text8 = Null
     Text10 = Null
     rsX.Close
     Text8.SetFocus
End If
End Sub
以下是在模块中的变更声明
Global user_id As String
Global user_name As String
Global user_password As String
以下是我在登陆进去后主窗体的FORM_load代码
Private Sub Form_Load()
  
  DoCmd.Maximize
  Me!Label51.Caption = Str(Year(Date)) + "年" + Str(Month(Date)) + "月" + Str(Day(Date)) + "日"
   
  Me!Label49.Caption = user_name_login

End Sub
现在我想在主窗体的label49上显示登陆界面的用户名信息。

jsf2008

学习中！！！！！！！！

rjacky

只声明了3个变量，user_name_login这个变量没有声明，Me!Label49.Caption = user_name_login当然为空

jsf2008

学习中！！！！！！！！

dreamice01

谢谢，怎么把这个给漏了，晕倒

dreamice01

非常感谢

jpj123123

虚心学习啊!!!!!!!!!