投稿日	： 2005/04/13(Wed) 23:44
投稿者	： やくも
Ｅメール	：
ＵＲＬ	：
タイトル	： Re^2: フォーム間でのデータの受け渡し

説明不足ですみません。

FORM_Aで取得したselectの結果のobjDsをFORM_Bに渡して
展開したいのですが、その展開の処理をFROM_BのForm_Load
で行い表示したいのです。
FORM A,Bの値を受け渡しする文法を具体的に教えてください。

----  FORM_A ------
Private Sub Command1_Click()
Dim objSess As Object
Dim objDb As Object
Dim objDs As Object
Dim objCol As Object
Dim str_SQL As String

   Set objSess = CreateObject("OracleInProcServer.XOraSession")
   Set objDb = objSess.OpenDatabase(strDBName, strUser & "/" & strPass,0&am
p;)

   str_SQL = ""
   str_SQL = "・・・・・・・・・・・・・"

   Set objDs = objDb.DbCreateDynaset(str_SQL, 12&)
   Set objCol = objDs.Fields
   If objDs.EOF Then
     Call MsgBox("データが存在しません。")
     Exit Sub
   End If

   FORM_B.Show 1 （ここで、objDsを受け渡したい）
   Show

End Sub

----  FORM_B-----
Private Sub Form_Load()
  ここで、FORM_Aから渡されたobjDsを展開したい
End_Sub

Private Sub Command1_Click()
End Sub

★ - フォーム間でのデータの受け渡し - やくも 04/13-21:19No.2839
• Re: フォーム間でのデータの受け渡し - ガッ 04/13-21:33 No.2840
  • Re^2: フォーム間でのデータの受け渡し - やくも 04/13-23:44 No.2842
    • Re^3: フォーム間でのデータの受け渡し - 花ちゃん 04/14-00:03 No.2843
      • Re^4: フォーム間でのデータの受け渡し - やくも 04/14-01:12 No.2844
        • Re^5: フォーム間でのデータの受け渡し - るしぇ 04/14-07:57 No.2845
          • Re^6: フォーム間でのデータの受け渡し - やくも 04/14-23:36 No.2869