質問編集履歴

3

文章修正

2023/08/07 03:52

投稿

Mayfil_Will
Mayfil_Will

スコア3

test CHANGED
@@ -1 +1 @@
1
- Access エラー
1
+ Access エラー(解決出来ました)
test CHANGED
File without changes

2

画像追加

2023/08/07 03:34

投稿

Mayfil_Will
Mayfil_Will

スコア3

test CHANGED
File without changes
test CHANGED
@@ -3,6 +3,7 @@
3
3
  VBAを使用して、「名前」のフォームから入力された姓と名を使って「MS_個人情報C」のクエリの情報と一致するデータを抽出し、結果をテキストボックスにリストとして表示するプログラムを作成するシステムを作っています。
4
4
  ここでは、AccessのフォームとVBAコードを使用しています。
5
5
  名前の姓だけを入力し、抽出を実行した際にメソッドまたはデータ メンバーが見つかりません (エラー 461)が発生しました。
6
+ ![イメージ説明](https://ddjkaamml8q8x.cloudfront.net/questions/2023-08-07/b11f61ee-48e1-40e4-bca4-e623f3c9ef18.png)
6
7
 
7
8
  ### 発生している問題・エラーメッセージ
8
9
 

1

文章追記

2023/08/07 03:24

投稿

Mayfil_Will
Mayfil_Will

スコア3

test CHANGED
File without changes
test CHANGED
@@ -2,12 +2,16 @@
2
2
 
3
3
  VBAを使用して、「名前」のフォームから入力された姓と名を使って「MS_個人情報C」のクエリの情報と一致するデータを抽出し、結果をテキストボックスにリストとして表示するプログラムを作成するシステムを作っています。
4
4
  ここでは、AccessのフォームとVBAコードを使用しています。
5
- 抽出の機能を実行した際にメソッドまたはデータ メンバーが見つかりません (エラー 461)が発生しました。
5
+ 名前の姓だけを入力し、抽出を実行した際にメソッドまたはデータ メンバーが見つかりません (エラー 461)が発生しました。
6
6
 
7
7
  ### 発生している問題・エラーメッセージ
8
8
 
9
9
  ```
10
10
  メソッドまたはデータ メンバーが見つかりません (エラー 461)
11
+ ーーソースコードーー
12
+ Me.txt抽出結果.Value = "抽出結果:" & vbCrLf
13
+ の .Value = の所で止まってしまう
14
+ ーーーーーーーーーー
11
15
  ```
12
16
 
13
17
  ### 該当のソースコード
@@ -89,6 +93,8 @@
89
93
  ### 試したこと
90
94
 
91
95
  ChatGPTを利用し、コードを入力し直してみたりしました。
96
+ ・追記
97
+ ChatGPTを利用し、コードは現在のソースコードの通りになっております。
92
98
 
93
99
  ### 補足情報(FW/ツールのバージョンなど)
94
100
  ・Chat GPT 3.5