Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

405 / 500 ﾍﾟｰｼﾞ

←次へ　｜　前へ→


	【5094】Re:訂正と追加です。

小僧 - 05/5/23(月) 17:41 -


	引用なし

	パスワード

▼サチチさん：
こんにちは。

確認なのですが、T_事故情報に登録されたレコード…たとえば

事故ID　発生日時　　被災者名　　　　…
　 1　　5/23 17:30　山田　太郎　　　…

というものがあったとして、人的な要素で事故を起こしてしまったため
T_物的にはレコードが入らないという事があるのでしょうか？

また、リレーションが張れているかについてですが、
クエリで確認してみるのはいかがでしょうか？

たとえばクエリのデザインビューで

T_事故情報、T_管理、T_物的、T_人的

を表示させ、事故IDでリレーション（不要なものは外してください。）

→T_事故情報の事故ID、T_管理の安全ポイント、T_物的の起因…等を表示させると
きれいにシートビューに結果がでると思うのですが…。

・ツリー全体表示


	【5093】Re:訂正と追加です。

サチチ - 05/5/23(月) 17:19 -


	引用なし

	パスワード

すみません。間違えです。
下の標準のインデックスの欄ですが、

T_事故情報=はい(重複あり)
T_管理=はい(重複なし)
t_物的=はい(重複なし)
t_人的=はい(重複なし)　になってました。

それと、リレーションは、一対多になってます。

一対一になると、おかしいですよね?

・ツリー全体表示


	【5092】訂正と

サチチ - 05/5/23(月) 17:13 -


	引用なし

	パスワード

すみません。追加と間違えです。

下の標準のインデックス

・ツリー全体表示


	【5091】Re:職番でリレーションシップを組むのは?

サチチ - 05/5/23(月) 16:42 -


	引用なし

	パスワード

▼小僧さん：

見捨てずに、ありがとうございます。
いいところまでは、いくのですが・・・。

>T_事故情報の事故ID（数値型）とT_物的要素の事故ID（数値型）
>T_事故情報の事故ID（数値型）とT_管理的的要素の事故ID（数値型）

↑okです。何の問題もなく、結べました!

>T_事故情報の事故ID（数値型）とT_人的要素の事故ID（数値型）

やはり、人的を結ぼうとすると、参照整合性と下2個にチェックを
入れると、こんなメッセージが出てきてしまいます。

"このリレーションシップを作成して、参照整合性を設定できません
と出てしまいます。t_事故情報のデータが、参照整合性に違反しています。"
とでます。他は、結べたのに・・・なんででしょう。

チェックを入れないと、結べるのですが、テーブルを開くと、
他はT_物的・管理的とも、＋が2つ出で、開くと、きちんと氏名などが出ます。
T_人的は＋が1つで、氏名がでるはずなのが、出てきません。

これは、どうすればいいのでしょうか?ちなみに、事故IDの下の標準の所は
全てのテーブルが、
フィールド=長整数
小数点=自動
規定値=0
値要求=いいえ
インデックス=はい(重複なし)

先ほどのコンボは、1つにしました。T_人的をとりました。

・ツリー全体表示


	【5090】Re:リストボックス

クロ - 05/5/23(月) 16:36 -


	引用なし

	パスワード

テーブル情報とは何を差すのでしょうか？

・ツリー全体表示


	【5089】リストボックス

ぶる - 05/5/23(月) 16:14 -


	引用なし

	パスワード

現在VBAの勉強している初心者です。

「フォルダを参照すると自動でそのフォルダにあるテキストファイルをテーブルにインポートして、そのテーブルの情報をリストボックスに表示させる」
ということをやりたいと思っています。
なんとかフォルダを参照してインポートするところまでは出来たのですが
テーブルの情報をリストボックスに表示させるやり方がわかりません。
どなたか教えていただけませんか。
説明不足だったらすみません

・ツリー全体表示


	【5088】MS-ACCESSの本体未インストールマシンでの...

うさこ - 05/5/23(月) 16:03 -


	引用なし

	パスワード

こんにちは！

MS-ACCESS2000で開発したアプリケーションを
MS-ACCESS2000未インストールマシンで実行させるには
MS-OFFICE2000のデベロッパーバージョンでランタイムを
同梱させて配布する事できると聞きましたが、
MS-OFFICE2000デベロッパーを手に入れることが難しいので、
最新のVisual Studio Tools for　the　Microsoft　Offise System　2003に
パッケージされているAccess 2003　Developer　Extention　でも　
ACESS2000　のランタイム版の作成配布はできるのでしょうか？

よろしくお願いします(*^_^*)

・ツリー全体表示


	【5087】Re:職番でリレーションシップを組むのは?

小僧 - 05/5/23(月) 15:34 -


	引用なし

	パスワード

▼サチチさん：
こんにちは。
もう一度整理して一緒に考えましょう。

まず事故IDは数字型が好ましいかと思います。
１件目の災害、２件目の災害…のような考え方です。

さてここから…。

>他のT_人的・物的・管理的が事故ID(テキストで作成)で
>結ぼうとしたのですが、T_物的とT_管理的だけなら
>結べるのですが、T_人的を結ぼうとすると、ダメです。
>それと、T_事故情報にT_人的も結ぼうとしてもダメなんです。

T_事故情報の事故ID（数値型）とT_人的要素の事故ID（数値型）
T_事故情報の事故ID（数値型）とT_物的要素の事故ID（数値型）
T_事故情報の事故ID（数値型）とT_管理的的要素の事故ID（数値型）

となっていますか？

>T_事故情報に災害形態というのを、コンボでできる様に
>なっているのを、T_人的にも同じように使用しているので、
>災害形態で結んでみようかとおもったら、未定義とかに
>なってしまって、どうも出来ません。

T_事故情報の事故ID「1」とT_人的の事故ID「1」は同じ事故をさすものであるので
二つのテーブルに同じフィールドを作る必要はありません。
災害形態という項目は

A) 人的要素に絡むもの
B) どの要素にも分類できにくいもの

のどちらかによって、T_事故情報か T_人的に１つだけあれば良いはずです。

・ツリー全体表示


	【5086】Re:職番でリレーションシップを組むのは?

サチチ - 05/5/23(月) 14:26 -


	引用なし

	パスワード

▼小僧さん：

やってみました!しかし、出来ないのです。
T_事故情報とT_被災者情報で氏名で結ぶことはできたのですが、
テーブルで　+　になる所を押すと、きちんとクエリで結べた
のは分ったので、OKだと思います。

他のT_人的・物的・管理的が事故ID(テキストで作成)で
結ぼうとしたのですが、T_物的とT_管理的だけなら
結べるのですが、T_人的を結ぼうとすると、ダメです。
それと、T_事故情報にT_人的も結ぼうとしてもダメなんです。

T_事故情報に災害形態というのを、コンボでできる様に
なっているのを、T_人的にも同じように使用しているので、
災害形態で結んでみようかとおもったら、未定義とかに
なってしまって、どうも出来ません。

あー、助けて～という気分です。よろしくお願いします。

・ツリー全体表示


	【5085】Re:テーブルの結合

小僧 - 05/5/23(月) 9:45 -


	引用なし

	パスワード

▼sakaiII さん：
おはようございます。

自分も色々調べてみたところ、交差結合(Cross Join)とか
直積 (Cartesian product) とか呼ばれるらしいですね。

SELECT テーブルA.名称A, テーブルA.属性１, テーブルA.属性２, テーブルA.属性３,
テーブルB.名称B, テーブルB.属性４, テーブルB.属性５, テーブルB.属性６
FROM テーブルA , テーブルB;

まさにそのままですが、SQLビューに貼り付けて結果を確認してみて下さい。

・ツリー全体表示


	【5084】テーブルの結合

sakaiII - 05/5/22(日) 21:31 -


	引用なし

	パスワード

こんばんわ
　いつもお世話になっております。以下のような結合関係を作りたいのです。
いくつかの方法でやってみましたが、問題の解決までには至りません。
ご伝授ください。

テーブルＡ：
--------------------------------
名称Ａ　属性１　　属性２　　属性３
Ａ１　　a1　　　　b1　　　　c1
・
・
・
Ａ１０　a10　　　b10　　　 c10
--------------------------------

テーブルＢ：
--------------------------------
名称Ｂ　属性４　　属性５　　属性６
Ｂ１　　a1　　　　b1　　　　c1
・
・
・
Ｂ５　　a5　　　 b5　　　　c5
--------------------------------

テーブル結果：
レコード合計数＝テーブルＡ×テーブルＢ
結　　　　合：テーブルＡの第一レコードとテーブルＢの第一～最後のレコードを結合
　　　　　　　して、その次
　　　　　　　テーブルＡの第二レコードとテーブルＢの第一～最後のレコードを結合
　　　　　　　して、ずっとテーブルＡの最後レコードまで。
------------------------------------------------------------------
名称Ａ　属性１　　属性２　　属性３　名称Ｂ　属性４　　属性５　　属性６
Ａ１　　a1　　　　b1　　　　c1　　Ｂ１　　a1　　　　b1　　　　c1
Ａ１　　a1　　　　b1　　　　c1　　Ｂ２　　a2　　　　b2　　　　c2
Ａ１　　a1　　　　b1　　　　c1　　Ｂ３　　a3　　　　b3　　　　c3
Ａ１　　a1　　　　b1　　　　c1　　Ｂ４　　a4　　　　b4　　　　c4
Ａ１　　a1　　　　b1　　　　c1　　Ｂ５　　a5　　　　b5　　　　c5
Ａ２　　a2　　　　b2　　　　c2　　Ｂ１　　a1　　　　b1　　　　c1
・
・
・
------------------------------------------------------------------

　

・ツリー全体表示


	【5083】Re:リストボックスの選択解除

うさこ - 05/5/22(日) 16:50 -


	引用なし

	パスワード

▼うさこさん：
>▼クロさん　小僧さん：
>
>別のことなんですけど、クリアした時に
>　１．線を消す　　　　　←　解決！
>　２．１ページ目に戻す
>の２番がうまくできません・・
>
>何か方法はあるのでしょうか？
>よろしくお願いします！

なんかいろいろやってみたらできるようになりました(*^_^*)
またよろしくお願いします。
ありがとうございました～！

・ツリー全体表示


	【5082】Re:リストからの別のフォームへの移動

小僧 - 05/5/22(日) 1:17 -


	引用なし

	パスワード

▼H,T さん：
こんばんは。

[#5074]リストのデータの移動

のY.Kさんとは別の方でしょうか？

あちらに似たようなご質問がありましたので
回答を付けておきました。

H.Tさんの参考になれば幸いです。

・ツリー全体表示


	【5081】Re:リストのデータの移動

小僧 - 05/5/22(日) 1:11 -


	引用なし

	パスワード

▼Y.K さん：
こんばんは。
あまりきれいなコードになりませんでしたが、こんな感じでしょうか？

Private Sub 実行_Click()
Dim MyList As ListBox
Dim mybox As TextBox
Dim Cnt As Long
　　Set MyList = Me.選択リスト
　　
　　For Cnt = 0 To MyList.ListCount - 1
　　　　If MyList.Selected(Cnt) Then
　　　　　　Call Frm1探し(MyList.Column(0, Cnt), MyList.Column(1, Cnt))
　　　　End If
　　Next
　
　　Set MyList = Nothing
End Sub
　　
Function Frm1探し(CName As String, CVal)
Dim C As Control
On Error Resume Next
　　For Each C In Forms![Form1].Controls
　　　　If C.Name = CName Then C.Value = CVal: Exit For
　　Next
End Function

・ツリー全体表示


	【5080】Re:リストからの別のフォームへの移動

H,T - 05/5/21(土) 10:44 -


	引用なし

	パスワード

お返事ありがとうございます。
　もし、FormBのリストボックスを複数選択しその結果をFormAの複数のテキストボックスに一回で移動するやり方を教えてください。
（FormAのリストボックスには、検査名と結果が表示されており、FormBの各テキストボックスには各々の検査名　で、その検査名が同じ時の結果をそのテキストボックスに一回でそれぞれ移動したいわけです。）
お願いします。

・ツリー全体表示


	【5079】Re:リストボックスの選択解除

うさこ - 05/5/21(土) 10:29 -


	引用なし

	パスワード

▼クロさん　小僧さん：

お答えありがとうございます。
>
>Private Sub クリア_Click()
>　　Me.プランリスト.Value = ""
>　　Me.プランリスト.Requery
>End Sub
>

これで消えてくれました(^_^)vありがとうございました！

別のことなんですけど、クリアした時に
　１．線を消す　　　　　←　解決！
　２．１ページ目に戻す
の２番がうまくできません・・

何か方法はあるのでしょうか？
よろしくお願いします！

・ツリー全体表示


	【5078】Re:リストボックスの選択解除

小僧 - 05/5/21(土) 0:23 -


	引用なし

	パスワード

▼うさこさんクロさん：
こんばんは。

Private Sub クリア_Click()
　　Me.プランリスト.Value = ""
　　Me.プランリスト.Requery
End Sub

はずしていたらすみません。

・ツリー全体表示


	【5077】Re:テキストboxの初期化（クリア）って・...

初心者

- 05/5/20(金) 22:02 -


	引用なし

	パスワード

▼Gin_II さん：
>>　For i = 1 to 34
>>　　Me.txt& i & = Null
>>　Next
>
>Me.Controls("txt" & i)
>とか
>Me("txt" & i)
>
>で、どうでしょうか？
できました。ありがとうございます。

・ツリー全体表示


	【5076】Re:テキストboxの初期化（クリア）って・...

Gin_II - 05/5/20(金) 21:28 -


	引用なし

	パスワード

>　For i = 1 to 34
>　　Me.txt& i & = Null
>　Next

Me.Controls("txt" & i)
とか
Me("txt" & i)

で、どうでしょうか？

・ツリー全体表示


	【5075】Re:リストのデータの移動

Y.K - 05/5/20(金) 21:01 -


	引用なし

	パスワード

先ほどの質問の追加をします。
リストボックスの中のColumn1に検査名、Column2に結果が表示されています。
どうかお願いします。

・ツリー全体表示


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

405 / 500 ﾍﾟｰｼﾞ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free