出来るのだＡＳＰ Ｑ＆Ａ掲示板（過去ＬＯＧ） 　訪問数 52046 昨日 889 今日 776
     【PR】 パソコン入門からIT専門書まで幅広く取り揃えています。セブン-イレブン受取り手数料無料のセブンアンドワイ。
Topに戻る 掲示板に戻る 検索 削除 管理者
[2527] 子フォームから親フォームのリストボックスを選択したいのですが
投稿者：kabigonさん 2002/08/22 19:02:58
初心者なのですが、教えてください。
仕様は下記の通りです。
ACCESSのデータ
Kyori.mdb
地区データ(TABLE)
場所 Integeer （コード）
場所名 string
距離データ(TABLE)
開始場所 integer
終了場所 integer
距離 integer
フォームは２つ
子フォーム 親フォームの入力を簡単にする
親フォーム リストボックスで場所範囲を決定後
距離表示ボタンで、どこでもよいから
距離データより距離を表示したい。
質問：
教えて戴きたいことは２つあります。
１つは子フォームで地名をクリックした時、親フォームのリスト
ボックス（ここから）内から同じ名称を自動で選択し、
ついで次のリストボックス（どこまで）へ移動したいのですが、
子フォームの記述がわからないのです。
もう一つは、距離表示ボタンを押したあとで．．．距離を表示する
方法！まっ、これは、自分で解決出来そうなのでよいのです．
宜しくお願い致します。

以下ソース：
子フォーム

<省略>

<A href="xxxxxx" target="xxxx">東村山</A>
<A href="xxxxxx" target="xxxx">渋谷</A>
<A href="xxxxxx" target="xxxx">埼玉</A>

<省略>


親フォーム
<HTML>
<HEAD>
<TITLE>距離データ表示 </TITLE>
</HEAD>
<BODY>
<%
'データベース接続
Set conn = Server.CreateObject("ADODB.connection")
conn.Open "Kyori"
SQL = "SELECT * FROM 地区データ"
%>
<FORM Name="List_FROM"><B>ここから</B>
<SELECT name="List_FROM_MN" size="1">
<option value="0"> スタート</option>
<%
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open SQL, conn,3,3
Do until rs.EOF
%>
<option value="<%=rs("場所")%>">
<%=rs("場所名")%> </option>
<%
'次のデータに移動します
rs.MoveNext
Loop
rs.close
%>
</SELECT>
<INPUT type="reset" value="ｸﾘｱ" name="CL">
<B>ここまで</B>
<SELECT name="List_TO_MN" size="1">
<OPTION value="999"> おわり</OPTION>
<%
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open SQL, conn,3,3
Do until rs.EOF
%>
<option value="<%=rs("場所")%>">
<%=rs("場所名")%> </option>
<%
'次のデータに移動します
rs.MoveNext
Loop
rs.close
%>
</SELECT>
<INPUT type="reset" value="ｸﾘｱ" name="CL">
</FORM>
<P><INPUT type="reset" value="距離表示" name="CL"></P>
<%
conn.close
Set conn = Nothing
%>
</BODY>
</HTML>
子フォームから親フォームのリストボックスを選択したいのですが 　 kabigonさん [2002/08/22 19:02:58] [2527]
　 Re:子フォームから親フォームのリストボックスを選択したいのですが 　 北岳さん [2002/08/26 17:49:37] [2548]

TreeBBS For ASP V.0.1.3
Program By ＹａｓＮｅｔ