***************************************************
Private Sub Form_Load()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Set cn = CurrentProject.Connection
mySQL = "select * from テーブル"
rs.Open mySQL, cn, adOpenForwardOnly, adLockOptimistic
’コントロールに代入
Me.No = rs![No]
Me.項目 = rs![項目]
・・・
End Sub
***************************************************
こんな感じで、クエリでなくSQLで
フォームにテーブルの全レコードを表示させたい場合、
どのようにすればよいのでしょうか?
上の文には、何が不足しているのでしょうか?
http://www.accessclub.jp/ado/09.html
を見ましたが、解決できませんでした。
No.1
- 回答日時:
Private Sub Form_Load()
mySQL = "select * from テーブル"
Me.RecordSource = mySQL
End Sub
とかの方が良いと思いますよ。
それと、折角なら Access Club さんで質問されたほうが良かったのにと思います。
お待ち申しております。。。
※その時は、こっちは閉じてね!
この回答への補足
あぁ、すいません!
お礼した後なんですが、もう一度ご回答願います!
前提を書き忘れていました!
テキストボックスは非連結なんです。
非連結にしたいんです。
なので、テキストボックスに代入したんです。
よろしくお願いします!
ありがとうございます。
>Me.RecordSource = mySQL
レコードソースのことをすっかり忘れてました。
>折角なら Access Club さんで質問されたほうが
Access Club で質問できる事をすっかり忘れてました。
No.2ベストアンサー
- 回答日時:
ええと・・たとえばレコードが一つだけなら何も問題は無いですよね?
まず単票フォームの場合だったとしましょう。
当然1レコードしか表示できないわけですので
私だったらこんな風に考えます(あくまでも一例です)
アクティブX コントロールのスピンボタンコントロールを配置します
で、そのコントロールの値の増減によって、Rs.MoveNextやPreviousしてから
それぞれの値の代入を行えば出来るかと思います。
スピンボタンコントロールは、OldValue の値を持っていてくれないので
Public 変数にでもいったん退避させて置くしかないかも
Dim SpnVal as Long
フォームのオープン時にSpnVal = 0
レコードセットを adOpenDynamic で開いておく
スピンコントロール(仮名 Spn)の更新時処理に
Private Sub spn_Updated(Code As Integer)
if SpnVal > Me!SpnVal Then
Rs.MovePrevious
それぞれのコントロールに代入処理
Else
Rs.MoveNext
それぞれのコントロールに代入処理
End if
spnVal = Me!spn
End Sub
大雑把に言ってこんな風かと思いますが
フォームが帳票タイプだと実用的なのは不可能だと思います。
レコード数分のコントロールを予め作っておくのは愚かですし
連結コントロールのような分けにはいきません。
何故、非連結にしたいのか分かりませんが、ユーザーのご修正を排除したいのなら
フォームのプロパティで、更新・削除・追加 の許可を「いいえ」にしておくとか
レコードセットをスナップショットにしておけば済むかとおもいますよ。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) access count数を変数に格納 2 2022/03/30 19:21
- Access(アクセス) チェックボックスにチェックが入った後の挙動 1 2022/08/21 12:39
- Access(アクセス) 実行時エラー3131 FROM 句の構文エラーです について 7 2022/06/13 15:45
- Visual Basic(VBA) データベースから絞り込んでデータを読み込み 1 2023/02/21 19:51
- Access(アクセス) docmd.gotorecordを起動するには 5 2022/06/17 15:20
- Access(アクセス) DoCmd.SearchForRecord が動かない時の解決方法 3 2022/07/22 15:31
- Visual Basic(VBA) ユーザーフォーム「frm_基本❶」を立ち上げると新規で入力する行数を右下のNoとして表示しています。 1 2023/03/16 19:02
- Access(アクセス) Accessでセレクタをダブルクリックで別フォームで詳細表示 3 2022/12/20 10:36
- Visual Basic(VBA) ExcelからAccessのテーブルに書き込む時に時間がかかる 1 2022/10/14 20:38
- Visual Basic(VBA) ①ExcelVBAでカレンダーを作り、別のユザーフォームで日付を入力したいのですがエラーになります。 1 2023/02/17 18:39
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
フォーム上の現在アクティブな...
-
コンボボックスの文字によるif...
-
C#で角が丸いテキストボックス
-
カメラスクロールするのを動画...
-
chr関数の呼び出しで「プロ...
-
エクセル・VBA CheckBoxのオブ...
-
RefEditで完全にハマっています。
-
コントロールを移動できない
-
vb.netで画面のコントロールId...
-
Labelコントロールの(左右)余...
-
VB.NETで、DataGridのヘッダー...
-
VBA_カレンダーコントロールの...
-
'ckbl' コントロールは作成され...
-
C#で自分のウインド・ハンド...
-
VB6.0 実行時エラー 374について
-
ExcelVBAでListViewが使用できない
-
アクセス特有の書き方?
-
With~EndWithの省略部分と引数...
-
(VBA)スピンボタンの大量...
-
ExcelVBAのフォーム上のimageコ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
カメラスクロールするのを動画...
-
エクセル・VBA CheckBoxのオブ...
-
vb.netで画面のコントロールId...
-
EXCELでactivexコントロールを...
-
ExcelVBAでListViewが使用できない
-
(VBA)スピンボタンの大量...
-
エクセルVBAでオプションボタン...
-
C#で角が丸いテキストボックス
-
ユーザーフォームで動的(Me.Con...
-
アクセス特有の書き方?
-
間違えて配置してしまったコン...
-
VBAのエラーについて、”実行時...
-
コンボボックスの文字によるif...
-
変数をコントロール型で使用す...
-
chr関数の呼び出しで「プロ...
-
With~EndWithの省略部分と引数...
-
C#で自分のウインド・ハンド...
-
excelのリストボックスで選択し...
-
'ckbl' コントロールは作成され...
-
フォーム上の現在アクティブな...
おすすめ情報