プロが教えるわが家の防犯対策術！

レコードを保存するコード　アクセスｖｂａ

解決済

  • 質問者：vbjhtqpsla
  • 質問日時：
  • 回答数：2件

アクセスですが
DoCmd.Save acForm, Me.Name
このコードはフォームを保存するコードですよね？
フォームではなく、レコードを保存するコードはありますか？

通報する

この質問への回答は締め切られました。

質問の本文を隠す

このQ&Aに関連する最新のQ&A

「アクセス コード」に関するQ&A： Accessの画像挿入のVBAコード

さらに表示

「保存 VBA」に関するQ&A： EXCEL VBAでwebページを保存する方法

「VBA アクセス」に関するQ&A： アクセス　VBAが使えれば、マクロは覚える必要はな

A 回答 (2件)

No.2ベストアンサー

  • 回答者： hatena1989
  • 回答日時：

フォームのカレントレコードの保存ということですよね。



Docmd.RunCommand acCmdSaveRecord

または、

Me.Refresh

でどうぞ。
Refresh は再読み込みも行われます。
    • good
    • 1
    • 件
通報する
この回答へのお礼

そういう意味でーす！
有難うございます。

通報する
お礼日時：2013/12/08 11:02

No.1

  • 回答者： bin-chan
  • 回答日時：

レコードセットをaddかeditで編集したのち、updateすることで確定。


Docmdでやりたいなら、Docmd．RunSQL SQL文 もアリ
    • good
    • 1
    • 件
通報する
この回答へのお礼

ありがとうございました。

通報する
お礼日時：2013/12/27 23:57

このQ&Aに関連する人気のQ&A

「保存 VBA」に関するQ&A： Excelで入力したデータを自動的に並び替える方法

さらに表示

「アクセス コード」に関するQ&A： Accessでボタンを押したらエクセルデータを読み込み処理をしたい

「VBA アクセス」に関するQ&A： フォームを開くときに、コンボボックスの値を選択（アクセスVBA)

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう！

Q質問する（無料）

このQ&Aを見た人はこんなQ&Aも見ています

関連するQ&A

関連するカテゴリからQ&Aを探す

専門家回答数ランキング

専門家

※過去一週間分の回答数ランキングです。

Q質問する（無料）

他の専門家の回答をチェック

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

Qアクセエスのレコードの更新をVBAでするには？

アクセスで、一覧表のフォームにボタンを取りつけています。レコードの内容を変更したら、ペンの形のマークが現れますね。これは変更中ということですが、そこでボタンを押しても変更は確定されないから、更新確定させたいのです。

それで、DoCmd.Requery を最初の行に入れてみたら、元の一覧表は最初のレコードに飛んでしまう。

元の一覧表の位置を動かさないために、Ctrl＋Enter キーを押して更新確定させたような状態をVBAで実現する方法あるのでしょうか？

よろしくお願いします。

Aベストアンサー

No1 です。
今回の場合には
Docmd.RunCommand acCmdSaveRecord の方が良かったですね
文字通りレコードを保存します。
Requery に引きづられてしまいました (^_^;)

Recalc、Refresh、Requery の使い分けは下記が参考にはなりますか？
http://www.nurs.or.jp/~ppoy/access/access/acF007.html

他の回答も見る

QAccessのRefresh・Requery・Repaintの違い

Requeryはもう一度ソースレコード（テーブル）を読み込むようです。このとき、テーブルの先頭レコードに移動してしまいます。
Refreshは最新のレコード（テーブル）を再表示するような気がします。レコードの移動は起こらない気がします。
Repaintは、VBAでキャプションなどを変更したとき使っています。
でも、よくわかっていません。
どんなときにどんなメソッドを使えばいいのでしょうか？
詳しい方、よろしくお願いいたします。

Aベストアンサー

たびたびすみません。
調べてたらこんなのがでてきました。
http://www.nurs.or.jp/~ppoy/access/access/acF007.html

参考URL：http://www.nurs.or.jp/~ppoy/access/access/acF007.html

他の回答も見る

QAccess サブフォームでの選択行の取得

こんにちは。

Access初心者です。

サブフォームでテーブルの項目を表示させていますが、
選択された行を取得する方法はありますか？
サボフォームの下の方に現在選択されているレコード数が表示されてますが、その値でかまいません。

調べているのですが、なかなか検討がつきません。
宜しくお願い致します。

Aベストアンサー

フォーム名がフォーム1、サブフォームコントロールの名前がサブフォーム1だとすると、

Forms!フォーム1!サブフォーム1.Form.CurrentRecord

で取得できます。
(「Forms」と「Form」がありますのでご注意下さい)


また、フォーム1にコードを記述する場合であれば

Me!サブフォーム1.Form.CurrentRecord

サブフォーム1へのコード記述であれば

Me.CurrentRecord

という構文によっても、それぞれ取得が可能です。

他の回答も見る

QAccessで別テーブルの値をフォームに表示したい

初めてのＡｃｃｅｓｓで分からない事があり質問させてください。

＜会社テーブル＞
会社ID
会社名
住所

＜社員テーブル＞
会社ＩＤ
社員名
ソート番号

＊1社に対し複数の社員レコードが存在

以上のようなテーブルがあるとします

現在「会社テーブル」を表形式で一覧表示しています
会社ＩＤ，会社名、住所とフィールドが並んでいるのですが、その後ろに「社員テーブル」のソート番号が一番若い社員名を表示したいと考えています（現状は番号関係なく表示させる方法すら分かりません）

色々いじくりまわしたのですが、初めてＡｃｃｅｓｓをさわる事もあってよくわかりません

リレーション等でひっぱってくる事ができるのでしょうか？

どなたか教えて頂けませんでしょうか

何卒よろしくお願い致します

ＰＳ．Ａｃｃｅｓｓ2013で作成中です

Aベストアンサー

単純にテーブル[会社]のみでフォームを作成し、社員表示用テキストボックスを追加。そして、そのプロパティを表示し

コントロールソース=DBLookup("SELECT 社員名 FROM 社員 WHERE 会社ID=" & [会社ID] & " ORDER BY ソート番号")

これは、以下の標準モジュールに登録したユーザ関数 DBLookup()を使っています。これで、クエリを用意しなくても目的を達成できます。

さて、かかるユーザ関数を標準ライブラリに登録したくない場合、

１、"社員ソートクエリ"を作成します。

SELECT 社員.会社ID, 社員.社員名
FROM 社員
ORDER BY 社員.ソート番号;

２、コントロールソースに次のように書きます。

=DLookUp("社員名","社員ソートクエリ","会社ID=" & [会社ID])

http://office.microsoft.com/ja-jp/access-help/HA001228825.aspx

DLookup()については、マイクロソフトの解説を参照されてください。

【DLookup()の限界を破るにはVBAで同じ関数を作るしかない】

マイクロソフトの解説を読めば判りますが、ORDER BY 節を指定する引数が用意されていません。ですから、どうしても、"社員ソートクエリ"を作成するという手間が必要となります。そこで、SQL文を引数とするDBLookup()をVBAで書けば、その手間を省けるという算段になります。この辺りは、好みと趣味の問題。どっちでも良いと思います。そういうお断りをした上で DBLookup()を紹介しておきます。なお、ADOは、つぎのように参照設定しないと利用できません。

http://www.happy2-island.com/access/gogo03/capter00307.shtml

Public Function DBLookup(ByVal strQuerySQL As String, _
　　　　　　　　　　　　　Optional ByVal ReturnValue = Null) As Variant
On Error GoTo Err_DBLookup
　　Dim DataValue
　　Dim rst　　　　 As ADODB.Recordset

　　Set rst = New ADODB.Recordset
　　With rst
　　　　.Open strQuerySQL, _
　　　　　　　CurrentProject.Connection, _
　　　　　　　adOpenStatic, _
　　　　　　　adLockReadOnly
　　　　If Not .BOF Then
　　　　　　.MoveFirst
　　　　　　DataValue = .Fields(0)
　　　　End If
　　End With
Exit_DBLookup:
On Error Resume Next
　　rst.Close
　　Set rst = Nothing
　　DBLookup = IIf(Len(DataValue & ""), DataValue, ReturnValue)
　　Exit Function
Err_DBLookup:
　　MsgBox "SELECT 文の実行時にエラーが発生しました。(DBLookup)" & Chr$(13) & Chr$(13) & _
　　　　　 "・Err.Description=" & Err.Description & Chr$(13) & _
　　　　　 "・SQL Text=" & strQuerySQL, _
　　　　　 vbExclamation, " 関数エラーメッセージ"
　　Resume Exit_DBLookup
End Function

単純にテーブル[会社]のみでフォームを作成し、社員表示用テキストボックスを追加。そして、そのプロパティを表示し

コントロールソース=DBLookup("SELECT 社員名 FROM 社員 WHERE 会社ID=" & [会社ID] & " ORDER BY ソート番号")

これは、以下の標準モジュールに登録したユーザ関数 DBLookup()を使っています。これで、クエリを用意しなくても目的を達成できます。

さて、かかるユーザ関数を標準ライブラリに登録したくない場合、

１、"社員ソートクエリ"を作成します。

SELECT 社員.会社ID, 社員.社員名
FR...続きを読む

他の回答も見る

QAccessの画面更新を一時的に停止する方法。

こんにちは。
Accessの画面更新を一時的に停止する方法を捜しています。
ExcelのScreenUpdatingと同様な機能です。

VBAでの更新処理時に画面がチラチラと動くのを防止したいと思っています。
(Ver:Access2000)
ご存知の方宜しくお願い致します。

Aベストアンサー

Application.Echo False '画面の描画を止める

・・・処理を実行する・・・

Application.Echo True '画面の描画を行う

他の回答も見る

Q【ACCESS】フォーム名/コントロール名を文字列型変数で指定するには

バージョン：Access2002

フォーム「frm01」にテキストボックス「tb01」が作ってある場合、
Forms.frm01.tb01.Value="あいう"
とすれば、フォームもコントロールも指定できるのですが、
Dim strTxt As String
strTxt = "tb01"
Forms.frm01.strTxt.Value="あいう"
だと、文字列型変数"strTxt"が展開されないのでフォーム「frm01」のコントロール「strTxt」を探してしまいエラーになってしまいます。

文字列型変数でフォームやコントロールを指定するには、どのようにすればよいのでしょうか？

Aベストアンサー

フォームの場合
　Forms(strFrm)

フォームのコントロールの場合
　Forms(strFrm).Controls(strTxt)


これでも参照できますが、普通ここまで省略しませんね。
　Forms(strFrm)(strTxt)

あとで見たとき、訳がわからなくなりそう。

他の回答も見る

QアクセスVBAのMe!と[ ]

基本的なことですみません。

アクセスのイベントプロシージャで、Me!ってありますけど、これはどういう意味なんでしょうか？

また、Me!の後に、Me!.～～と書く場合と、Me!.[～～]と書く場合がありますが、どこが違うのでしょうか？

Aベストアンサー

>プロシージャ内で[]を使う場合は、そのフォーム外のオブジェクトを使う場合と考えてよろしいでしょうか？
別のオブジェクトを使う場合だけではありません。
Hensu = Me![Text1]のようにHensuという変数に自身のTest1の値を代入する場合のように。
[]で括られているのがオブジェクト名やコントロール名だよという事。
クエリの抽出条件に存在しない[？]とすれば？というコントロール等が参照できないので？というダイアログが表示されるように？というオブジェクトやコントロールは何？と聞いてくるように。
>フォーム内のオブジェクトの場合はあくまでMe!で良いのでしょうか
Forms.[フォーム名]![コントロール名]やForms![フォーム名]![コントロール名]が構文。
アクティブなフォームが自分自身ならForms![フォーム名]の変わりにMeでもOKですという事。

と言う解釈の方が良いと思います。

他の回答も見る

QACCESSでフォームを使って、テーブルを参照、データ入力、データ更新をしたいのです

フォームを使って、テーブルを参照、データ入力、データ更新をしたいのです。

売上テーブル

　ID　　　商品コード　　日付　　　　金額　
　1　　　　G1　　　　　20080101　　532153
　2　　　　G1　　　　　20080101　　564281
　3　　　　G1　　　　　20080301　　538123
　4　　　　J4　　　　　20080301　　124531
　5　　　　J4　　　　　20080302　　125483

ID：オートナンバー　商品コード：数値型　日付：数値型　金額：数値型

これを使い、
フォームではまず

レコードナンバーを入力画面
　　　　　　　↓
レコード番号を入れると、そのレコードのデーターが画面に表示され、
その画面で修正可能
　　　　　　　↓
　保存　ボタンで保存

という流れです。

レコードナンバーはIDを使おうと思っています。

データの量が莫大な為、コンポボックスなどは使えません。

できるだけ、VBAなどは使わずに作りたいです。

よろしくお願い致します。

フォームを使って、テーブルを参照、データ入力、データ更新をしたいのです。

売上テーブル

　ID　　　商品コード　　日付　　　　金額　
　1　　　　G1　　　　　20080101　　532153
　2　　　　G1　　　　　20080101　　564281
　3　　　　G1　　　　　20080301　　538123
　4　　　　J4　　　　　20080301　　124531
　5　　　　J4　　　　　20080302　　125483

ID：オートナンバー　商品コード：数値型　日付：数値型　金額：数値型

これを使い、
フォームではまず

レコードナンバーを入...続きを読む

Aベストアンサー

まずそのテーブルを基にしてフォームを作成します。
そのフォームのヘッダー部分にテキストボックスを配置後、一旦
上書き保存。
フォームのレコードソースを
SELECT *
FROM テーブル名 WHERE ID=[Forms]![フォーム名]![テキストボックス名]
とします。
次にテキストボックスの更新後処理に
Me.Requery
とすれば完成です。
フォームを開いてテキストボックスにID入力後エンターしてください。

保存に関しては、コマンドボタン作成後クリック時イベントに
DoCmd.RunCommand acCmdSaveRecord
とすれば良いでしょう。

この手のモノは検索すれば相当数ヒットするので、そちらを参考にされるのもよろしいかと。

他の回答も見る

QACCESSのフォームで次のレコードに移動しない方法を教えてください

Windows2000&ACCESS2000の環境です。
テーブルから連結したフォームに、例えばA,B,C,Dと４つのテキストボックスがあります。
A,B,C,Dと入力していくと、最後のDの入力を入力した後「Enter」キーを押すと次のレコードのA,B,C,Dが表示されます。（次のレコードの入力になってしまいます）
タブオーダー最後のDの入力のあとの「Enter」キーを押しても現在のレコードのAに戻る設定（やり方）を教えていただけると幸いです。

Aベストアンサー

フォームのプロパティで
　Tabキー移動：カレントレコード
にしてください。
既定値は「すべてのレコード」になっています。

他の回答も見る

QAccessのフォーム上にレコード数とレコード番号の表示

Accessでクエリを元に表示するフォーム上で、テキストボックス等に関数を使って、レコード数とレコード番号を表示する方法がありましたら教えてください。

フォームの書式設定で「移動ボタン」の表示をすれば目的の事は出来るのですが、表示の大きさが調整できない為、とても見難いのです。

以上よろしくお願いします。

Aベストアンサー

レコード番号のコントロールソースを
=[CurrentRecord]
レコード数のコントロールソースを
=Count("*")-[NewRecord]
としてみてください。

他の回答も見る
ページトップページトップ

Q質問する（無料）

このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング

おすすめ情報