窗体间数据传递问题

Question

应该很简单,
一个软件,上面有个 设置 按钮, 点击设置后出现一个窗体, 里边有几个文件框里的值 读自ACCESS数据库.情况:
每次启动软件,都要点设置窗体里的保存按钮,这些数据才会传递到启动时的那个窗体.
问题:
怎么让软件一运行就可直接调用设置窗体里的数据而不用再支点击 设置窗体里的保存按钮?

Answer 1

你把过程写到 窗体的加载里面
在前面写上
show

Answer 2

这个不行的哦,因为只有点击了设置窗体里的保存按钮 才可以引用 FORM2 里的TEXT值我的FORM2里有个DATA1控件

Answer 3

我的设置窗体里代码如下:
Private Sub form_load()
  Data1.DatabaseName = App.Path + "\data.mdb"
  Data1.RecordSource = "userdata"
End Sub
Private Sub Form_Activate()
On Error Resume Next
    username.Text = Data1.Recordset.Fields("username")
    userpass.Text = Data1.Recordset.Fields("userpass")
    proname.Text = Data1.Recordset.Fields("proname")
    proimage.Text = Data1.Recordset.Fields("proimage")
     picfrom.Text = Data1.Recordset.Fields("picfrom")
     picto.Text = Data1.Recordset.Fields("picto")
    keywords.Text = Data1.Recordset.Fields("keywords")
    category.Text = Data1.Recordset.Fields("category")
    primarykeywords.Text = Data1.Recordset.Fields("primarykeywords")
    'selloffer.Item = Data1.Recordset.Fields("selloffer")
    proprice.Text = Data1.Recordset.Fields("proprice")
    shortdesc.Text = Data1.Recordset.Fields("shortdesc")
    fulldesc.Text = Data1.Recordset.Fields("fulldesc")End SubPrivate Sub savedata_Click()
Data1.Recordset.Edit
On Error GoTo err
'Data1.Recordset.Edit
err:
If err.Number = 3021 Then
Data1.Recordset.AddNew
End If
   Data1.Recordset.Fields("username") = username.Text
   Data1.Recordset.Fields("userpass") = userpass.Text
   Data1.Recordset.Fields("proname") = proname.Text
   Data1.Recordset.Fields("proimage") = proimage.Text
   Data1.Recordset.Fields("picfrom") = Val(picfrom.Text)
   Data1.Recordset.Fields("picto") = Val(picto.Text)
   Data1.Recordset.Fields("keywords") = keywords.Text
   Data1.Recordset.Fields("category") = category.Text
   Data1.Recordset.Fields("primarykeywords") = primarykeywords.Text
    'selloffer.Value = Data1.Recordset.Fields("selloffer")
   Data1.Recordset.Fields("proprice") = proprice.Text
   Data1.Recordset.Fields("shortdesc") = shortdesc.Text
   Data1.Recordset.Fields("fulldesc") = fulldesc.Text
Data1.Recordset.Update
    MsgBox "保存成功"
Form1.Show
Form2.Hide
End Sub
要把这代码写到FORM1窗体里的form_load()里吗?

Answer 4

你这个和保存按钮没有关系
和Private Sub Form_Activate()有关 form2.show
form2.hide
text1.text=form2.username.Text

Answer 5

你在第一个窗口启动时，把MDB库中的设置内容读一遍不行么？

Answer 6

谢谢,按jhone99 操作, 让FORM2 SHOW 一下再 HIDE 更方便 些,谢谢,顺便再帮我看下以下这个问题:http://topic.csdn.net/u/20100820/14/a36c6a37-3fcd-4c60-95c0-02d6c5f3e24d.html最后一个问题 了,解决了的话就全OK了