Access VBA質問箱 IV

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

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


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

3394 / 9994

←次へ　｜　前へ→


	【9861】Re:collectionの指定方法をおしえてください

hatena - 07/9/19(水) 19:02 -


	引用なし

	パスワード

>　　call dataset("GRP_bp16",7)
>　　txt単価2とtxt単価3に７をセットしたいのです
>
>
>　　dim GRP_bo16 as new collection
>　　dim GRP_bp16 as new collection
>　　dim GRP_bq16 as new collection
>
>
>　　GRP_bo16.Add txt単価1
>　　GRP_bp16.Add txt単価2
>　　GRP_bp16.Add txt単価3　　　　
>　　GRP_bq16.Add txt単価4

なぜ、

function dataset(grpname as collection, setdata as integer)

というように collection で渡してはダメなのでしょうか。

その理由が分からないので、外しているかも知れませんが、
下記のようなコードを考えてみましたが、目的に合致しますでしょうか。

Dim Cl_GRP As New Collection

Private Sub コマンド8_Click()
　　Cl_GRP.Add New Collection, "GRP_bo16"
　　Cl_GRP.Add New Collection, "GRP_bp16"
　　Cl_GRP.Add New Collection, "GRP_bq16"
　　
　　Cl_GRP("GRP_bo16").Add Me.txt単価1
　　Cl_GRP("GRP_bp16").Add Me.txt単価2
　　Cl_GRP("GRP_bp16").Add Me.txt単価3
　　Cl_GRP("GRP_bq16").Add Me.txt単価4

　　dataset "GRP_bo16", 1
　　dataset "GRP_bp16", 2
　　dataset "GRP_bq16", 3
End Sub

Function dataset(grpname As String, setdata As Integer)
　　Dim aaa As Access.Control

　　For Each aaa In Cl_GRP(grpname)
　　　aaa.Value = setdata
　　Next

End Function

コントロールのcollection自体を、collection に格納してみました。

505 hits

▼

【9857】collectionの指定方法をおしえてください BLUELION 07/9/19(水) 13:57