Access2000を使っており以下のような処理を行いたいと思っております。
お力添え何卒宜しくお願いいたします。
■処理内容
電話で注文を受ける際に、お客様から言われた商品番号を画面に入力→検索をすると、その商品内容が画面に表示される。
上記の処理は出来ております。
そして画面に表示された内容を、【保存】ボタンを押すことで履歴として残す。
という処理を行いたいと思っております。
※テーブル・フォームの構成
-------------------------------------------------------------------
T_product←商品基本情報テーブル
├id←商品ID
├price ←商品価格
├memo ←商品詳細
└photo ←商品画像格納用
T_phistory ←注文履歴保存用テーブル
├phid ←オートナンバー
├oder_no ←オーダーNo
├product_id ←商品ID
├price ←商品価格
└data ←注文日時
F_SOGO ←フォーム ←検索を行うフォーム
F_SUB ←サブフォーム ←詳細を表示するフォーム
-------------------------------------------------------------------
F_SOGO にある非連結テキストボックス serch_id に商品番号を入れて検索ボタンを押すと
サブフォーム F_SUB に商品情報が表示される。
表示される内容は、
T_product から商品IDをキーにして、商品価格、商品詳細、画像を表示します。
また、F_SOGO には非連結テキストボックス oder_id を作り
規定値に =Now()
書式に yymmddhhnnss
として 2011年12月24日 14時04分05秒だと 111224140405 と入るようになっており
そこまではいいのですが、その結果を 仮に F_SOGOに【保存】というボタンを作り
押すと T_phistory に新規で
oder_no に 非連結テキストボックス oder_id の 111224140405 を
product_id に F_SUB の id
price に F_SUB の price
を追加したいのですが、できません。
自分で調べた結果、
Private Sub 保存_Click()
Dim Rst As DAO.Recordset
Set Rst = CurrentDb.OpenRecordset("T_phistory", dbOpenTable)
With Rst
.AddNew
.oder_no = Me.oder_id
.product_id = F_SUB.id
.price = F_SUB.price
.Update
End With
End Sub
としてみましたが全くです。
何卒宜しくお願いいたします。
No.1ベストアンサー
- 回答日時:
> を追加したいのですが、できません。
「どこで」「どう」できない?
モジュール[保存_Click()]のSETの行でF9を押してブレークポイントを設定。
以降、F8キー押下ごとに1行ずつ実行できます。
Withでレコードセットが受け取る(右辺)の値は、期待通り?
フォーム名の修飾は正しいのかな>
この回答への補足
色々と試した結果
Private Sub 保存_Click()
Dim Rst As DAO.Recordset
Set Rst = CurrentDb.OpenRecordset("T_phistory", dbOpenTable)
With Rst
.AddNew
!oder_no = Me.oder_id
!product_id = F_SUB!id
!price = F_SUB!price
.Update
End With
End Sub
で動作いたしました。
!じゃないといかなかったんですね。
ただ、oder_idは 期待通りのデータではなく
日付のようなデータになっておりました。
ここも一工夫いるようですね。
調べてみますが分からないときにはスイマセンがまたお願いいたします。
回答ありがとうございます。
> モジュール[保存_Click()]のSETの行でF9を押してブレークポイントを設定。
> 以降、F8キー押下ごとに1行ずつ実行できます。
SETの行にブレークポイントは設定できたのですが、以降F8を押しても
なにも反応いたしません。
そのためまだこちらは検証できておりません。すいません。
F_SOGOで 保存ボタン を押すと
.oder_noの部分で
コンパイルエラー
メソッドまたはデータ メンバが見つかりません。
とのエラーが表示されます。
ということは
.oder_no = Me.oder_id
.product_id = F_SUB.id
.price = F_SUB.price
の書き方がおかしいでしょうか?
むむむ。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- 経営情報システム accessでの請求管理について 12 2022/06/11 16:20
- Visual Basic(VBA) ユーザーフォーム「frm_基本❶」を立ち上げると新規で入力する行数を右下のNoとして表示しています。 1 2023/03/16 19:02
- Excel(エクセル) 製品番号での整列と、検索に関して 3 2023/06/28 19:20
- その他(データベース) accessについて 2 2022/05/31 16:58
- Visual Basic(VBA) 検索のユーザーフォームの表示について 1 2023/03/27 23:31
- その他(データベース) accessでの請求管理について 2 2022/06/13 21:51
- HTML・CSS FC2カートのテンプレートでの商品表示について 1 2023/03/02 18:05
- その他(データベース) c言語の問題です。これを踏まえてコーディングしたいのでおしえていただきたいです。 3 2023/08/03 09:27
- Visual Basic(VBA) 【ExcelVBA】Powerクエリーでいうピボット解除と同じ処理をVBAで 4 2022/07/06 17:09
- Visual Basic(VBA) VBAで最新のデータを別シートに転記する方法をお教えください。 3 2022/04/07 19:20
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
YahooのIDがロックされてしまい...
-
「フォームを作成できませんで...
-
フォームの高さを数値で指定し...
-
Accessで、フォームからフォー...
-
Accessのフォームで開く時のウ...
-
デフォルトでチェックボックス...
-
アクセス フォームをリクエリ...
-
Excelのデータフォームの設定変更
-
Accessに関する質問です。 クエ...
-
アクセスで、スマホサイズのフ...
-
アクセスで同じフォームを違う...
-
ファイルへのアクセスエラーが...
-
Access2003 フォーム入力中に...
-
Accessのフォーム更新方法
-
Accessのフォームを改ページしたい
-
アクセスで、androidのスマホサ...
-
Wordのテキストフォーム書式設...
-
Access 2010フォームの全画面表示
-
エクスポートされたエクセルの...
-
Access2003 リンクテーブルを...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
YahooのIDがロックされてしまい...
-
Accessで、フォームからフォー...
-
「フォームを作成できませんで...
-
フォームの高さを数値で指定し...
-
デフォルトでチェックボックス...
-
MSワード 年齢を計算表示でき...
-
Accessフォームを開くときに決...
-
アクセス フォームをリクエリ...
-
Accessのフォームで開く時のウ...
-
アクセスで複数列にまたがる同...
-
Excelのデータフォームの設定変更
-
帳票フォームのなかにリストを...
-
ACCESSでオートメーションエラー
-
アクセスのレコードをフォーム...
-
エクスポートされたエクセルの...
-
Access 2010フォームの全画面表示
-
アクセスで同じフォームを違う...
-
Accessに関する質問です。 クエ...
-
Access2003 フォーム入力中に...
-
エクセルで各セルをダブルクリ...
おすすめ情報