| |
▼なお さん：
こんにちは。
>この５個のデータをフォームに作ったテキストボックス５個に
>それぞれ表示させることがなかなかできません。
連結フォームで行うのでしたら、帳票フォームで実現できると思います。
ですが、見かけ上は 5つのテキストボックスが表示されますが、
実体は 1つのテキストボックスしかない為、多少扱いにくくなります。
非連結フォームで行うためには、AccessVBAにてレコードセットを
使いながらフォームにセットしていく事になります。
フォーム上のテキストボックスの名前を
「txt設問1」「txt設問2」「txt設問3」「txt設問4」「txt設問5」として
フォームの読み込み時に以下のコードを記述されてみて下さい。
Private Sub Form_Load()
'要参照 Microsoft DAO x.x Object Library
Dim RS As DAO.Recordset
Dim QName As String
Dim i As Long
QName = "Q_設問" 'RND関数を用いてソートしたクエリ名
Set RS = CurrentDb.OpenRecordset(QName)
For i = 1 To 5
Me.Controls("txt設問" & i).Value = RS![設問]
RS.MoveNext
Next
RS.Close: Set RS = Nothing
End Sub
|
|
小僧
- 05/12/5(月) 14:55 -
