关于form_load()里的问题！！！！！

Question

在form1的command1中调用form2(load form2),并向它传递一个参数到form2.tag中（字符串）,可是我现在想在form2的form_load事件里，判断form2.tag的值。但这样做可能行不通，大家能给我一下帮助吗，谢谢
command1_click()
form2.tag="YEIAD"
load form2
end subfrom2
from_load()
if me.tag="YEIAD" then
   rs.open"....."
else
   rs.open"...."
end if
end

Answer 1

你应该在form2中设置一个变量存放需要传递的参数﹐再进行比较就可以啦﹗

Answer 2

你可以在form2窗口中声明一个共有变量 tag
form1
command1_Click
   form2.tag = "YELAD"
   form2.show
end subform2
form2_load()
if tag = "YELAD"
  rs.open ""
else
  rs.open ""
end if
end sub

Answer 3

Public Form2_Tab As String '定义全局变量Private Sub Command1_Click()
Form2_Tab = "a"
Form2.Show
End SubPrivate Sub Form_Load()
Me.Tag = Form2_Tab
If Me.Tag = "a" Then MsgBox ("dsf")
End Sub

Answer 4

我不知道你是否知道,一个窗体Form_Load过程的执行时间，当你在form2.tag="YEIAD"复值时，你是先调用的Form_Load过程，后给form2.tag付值。因此，你在Form_Load判断时，它是为空值。你可以采用如下方法：
你可以在公共模块中申明如下:
Public mTab As String '定义全局变量Private Sub Command1_Click()
     mTab = "YEIAD"
     Form2.Show
End SubPrivate Sub Form_Load()
     Me.Tag = mTab 
    If Me.Tag = "YEIAD" Then
       MsgBox ("YEIAD")
    End if
End Sub

Answer 5

呵呵，最简单的方法是将Form_Load中的代码放到Form_Activate之中就OK了！

Answer 6

Public mTab As String '定义全局变量Private Sub Command1_Click()
     mTab = "YEIAD"
     Form2.Show
End SubPrivate Sub Form_Load()
     Me.Tag = mTab 
    If Me.Tag = "YEIAD" Then
       MsgBox ("YEIAD")
    End if
End Sub