ACCESSのVB初心者です。
専門書も買って読んでるのですが、どうにも行き詰ったので質問させてください。
今やろうとしているのは、データNoが入るフィールドと文字列が入るフィールドの2つのフィールドから出来ている「Aテーブル」を作ってあり・・・フォームのテキストボックスに入力された任意の数字とAテーブルのデータNoを照合し、同じ番号を処理するコードを打ち込みたいのですが、どうにもやり方がわかりません。
フォームで「12」という数字をテキストボックスで指定し、「新規追加」をすると、Aテーブルに12のデータNoがない場合は、Aテーブルに12というデータNoと文字列を追加し、「データ削除」をすると、AテーブルのデータNo12を削除と言う感じでやりたいのですが・・・。
どなたか知識のある方、教えてくださいませ。
または、このサイトを見れば分かるんじゃないかと言う情報もお待ちしております。
A 回答 (3件)
- 最新から表示
- 回答順に表示
No.3
- 回答日時:
> 理由があって、フォームのコントロールソースは使えないんですよ
Set Rs = Me.Recordset
の部分を
Set Rs = CurrentDb.OpenRecordset("SELECT * FROM Aテーブル", dbOpenDynaset)
と変更してもOKです。
No.2
- 回答日時:
Aテーブル(出来上がっている)
データNO 氏名
112 山田太郎
・・・・
ーー
フォームにテキストボックスがある。
テキストボックスに例えば「112]と入力
ーーー
Aテーブルの「112 山田太郎」を見て(読んで)
>同じ番号を処理するコードを打ち込みたいのですが
この意味がわかりません。
山田太郎に関する、他のデータを追加して、Bテーブルを作りたいということか?(更新的)
ーー
テキストに入力した例えば「113」がAテーブルに無い場合は
新規レコードを追加したい。(新規追加的)
ーーー
>データ削除」をすると、AテーブルのデータNo12を削除と言う感じでやりたいのですが・・・。(レコード削除的)
実際はAテーブルを読み飛ばして処理しないでよいと思うが)
データ削除はどのように、して知らせるのか。質問に書いてない。
削除ボタンを作るのか?
ーー
「文字列」と言っているのは番号の名前(人名だけでなく商品名など名前らしい)だったらそのような模擬実例を考えて挙げるべきだ。
変に抽象化しないほうが良い。
===
結局、ファイル更新の1セットのVBAの知識が要る課題であって、もっとコード実例でもWEBや本で調べまくり(特にADOのファイル更新プログラム例)、それをいじくってから質問すべきだ。中級以上のレベルだ。
「したい」というだけで、すぐ質問に走り、課題丸投げではないか。
そうですね。
もっと自分で調べてみます。
一応、
Aテーブル(出来上がっている)
データNO 氏名
112 山田太郎
・・・・
で当たっていて(氏名でなく商品名ですが)、フォームにはテキストボックスの他に削除ボタンと追加ボタンもつける感じです。
処理内容は、フォームのテキストボックスでAテーブル内のデータNoを指定、追加・削除の処理をしたいってことです。分かりにくくてすみません(汗
回答ありがとうございました。
No.1
- 回答日時:
書き方は色々ありますが、フォームのコントロールソースを利用する基本的なもので
Aテーブルの中身が、データNo(長整数)、テキスト(テキスト)
フォームのコントロールソースがAテーブル
データNoが入るコントロール名 データNo、テキストが入るコントロール名 テキスト
とします。
コマンドボタンのイベント(Click)コードが以下の通り
Dim Rs As Recordset
Set Rs = Me.Recordset
'フォームのコントロールソースをデータNoで検索
Rs.FindFirst "データNo = " & Me.データNo
If Rs.NoMatch Then
'検索の結果が不一致なら新規レコードの追加
Rs.AddNew
Else
'検索の結果が一致なら該当レコードの編集
Rs.Edit
End If
Rs.Fields("データNo") = Me.データNo
Rs.Fields("テキスト") = Me.テキスト
Rs.Update
Set Rs = Nothing
Me.テキスト = vbNullString
Me.データNo = vbNullString
理由があって、フォームのコントロールソースは使えないんですよ(汗
とりあえず、自分でなんとか頑張ってみます。
回答ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(データベース) 更新クエリをリンクデータベーステーブルに実行し実行時エラー3362固有インデックスに重複する値が含ま 1 2022/09/21 11:44
- Access(アクセス) Access 登録ボタンからサブフォームの更新 1 2022/07/22 10:23
- その他(データベース) pythonでsqlight勉強中、クエリー結果の利用法教えて下さい 1 2022/04/28 20:38
- Ruby pandasでsqlite3にテーブル作成・追加・読み出しでindexの取り扱い方教えてください 5 2023/03/08 09:57
- Access(アクセス) アクセスの更新クエリでカレントレコードのみ更新したい 1 2022/06/02 23:32
- Access(アクセス) Accessテーブルの結合で別々のテーブルのフィールドを組み合わせて値を出す方法について 2 2022/07/20 19:43
- Excel(エクセル) Excel ドロップダウンリスト(入力規則)に関してです データの入力規則で元データ79000行のド 3 2023/07/17 10:06
- その他(データベース) IT用語について質問です。 以前ITパスポートの試験を受けた際にデータベースが何の集まりかについての 2 2022/12/10 12:29
- Visual Basic(VBA) VBAで、1つのエクセルで、2つのシートからもう1つのシートに条件のある転記コードを教えてください。 1 2023/03/16 18:07
- Access(アクセス) access,vbaでフォルダ内のファイルをテーブルにインポート、ファイル名もフィールドに追加したい 1 2022/08/31 11:11
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Accessのクエリでデータの入力...
-
Accessクエリーで両方のテーブ...
-
Accessのリンクテーブルのパス...
-
Excel→Accessへ貼り付けがおかしい
-
Accessファイルを作成者以外は...
-
アクセスのコンボボックスのデ...
-
GETPIVOTDATAを使...
-
AccessのクエリをExc...
-
Excel VBA からの Access 呼び...
-
AccessからExcelのデータを消す...
-
EXCELのグラフ内データテーブル...
-
ACCESS2003のデータ取得関数(ク...
-
Excel 2019 のピボットテーブル...
-
エクセルVBAで5行目からオート...
-
Accessでテーブル名やクエリ名...
-
Accessでテーブルの値をテキス...
-
ACCESSでの改行コード
-
「直需」の意味を教えてください
-
異なるサーバのDBデータ同士を...
-
ACCESSに同時アクセス(編集)を...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Accessのクエリでデータの入力...
-
Accessのリンクテーブルのパス...
-
Accessクエリーで両方のテーブ...
-
Excel→Accessへ貼り付けがおかしい
-
Accessファイルを作成者以外は...
-
Accessのことで教えてください...
-
AccessのDBを理解するコツは?
-
GETPIVOTDATAを使...
-
アクセスのコンボボックスのデ...
-
AccessのクエリをExc...
-
Access 旧データを新データに入...
-
EXCEL データテーブルの数字を...
-
AccessからExcelのデータを消す...
-
EXCELからSharepointデータを参照
-
グラフとデータテーブルの順序...
-
ExcelデータをAccessにてリンク...
-
what-if分析ツールのデータテー...
-
Accessでオートナンバーの値を...
-
Excel2007のデータテーブルボタ...
-
ACCESSデータを削除してしまい...
おすすめ情報