Access97および2000を使用しています。
フォーム上で新規入力するとき、タブの位置が直前に入力したレコードの最後のフィールドと同じフィールドに来ています。
 これを新規レコードを開いたら必ずタブは特定のフィールドにくるようにしたいのですが・・・。

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

A 回答 (1件)

こんばんは^^



コマンドボタンにマクロを割り当てればできます。
1.コントロールウィザードがオフの状態でコマンドボタンを作成
(棒と粉(?)のようなボタンがへこんでいない状態)
2.プロパティを表示(「表示」メニューから「プロパティ」を選択)
3.「イベント」タブの「クリック時」の横の「...」ボタンを押す
4.「ビルダ」の選択→「マクロビルダ」を選択してOK
5.(マクロ1行目)
アクション:レコードの移動
レコード:新しいレコード
6.(マクロ2行目)
アクション:コントロールの移動
コントロール名:フォームを開いたときにフォーカスをあてたいコントロール名
(コントロール名は、プロパティの「その他」タブの「名前」に入力されているもの。
テキストボックスなら「txt○○」、コンボボックスなら「cmb○○」とあらかじめ
名前を直しておいた方が良いですヨ)

これでできると思うのですが、説明が不足していたらおっしゃって下さい。
    • good
    • 0

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

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

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

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

QAccess97で任意のフィールドとレコードを選択してExcel97に出力する方法

Access97でデータベースを作っています。
ある機器の部品リストを作っているのですが、テーブルに保存されている情報を
選択画面で、取り出したいフィールドとレコードをチェックボックスなどで選択し、選択したデータのみをExcel97に出力したいのです。
方法ご存じの方、ご教示願います。

Aベストアンサー

再びmaruru01です。

コマンドボタンのクリックイベントにSQLステートメントの実行とファイルのエクスポートを記述すればよいとおもいます。

SQLステートメントは、

Dim SQL As String

SQL="SELECT (フィールド) INTO (一時テーブル名) " & _
"FROM (抽出元のテーブル名) " & _
"WHERE (抽出条件)"
DoCmd.RunSQL SQL

という風で、ファイルのエクスポートは、

DoCmd.TransferSpreadsheet acExport, acSpreadsheetExcel7, (一時テーブル名), (Excelファイル名)

という風です。
詳しくは、個々のヘルプを参照して下さい。
では。

Qアクセス:フォーム入力で、最後の入力が終わっても次のレコードに移動しないようにするには?

お世話になります。
アクセス初心者です。よろしくお願いします。

アクセスのフォームでデータ入力をして最後の入力が終わったら、自動的に次の(新規の)レコードに移りますが、これを留めるにはどのようにすればよいか教えてください。

以前何かの本で見かけたのですが全く思い出せません。それによると簡単な方法でできたような気がします。よろしくお願いいたします。

Aベストアンサー

フォームプロパティ[Tabキー移動]を
[全てのレコード]
から
[カレントレコード]
に変更します。

QACCESS97 サブフォームのレコードソースプロパティーを変更したい。

フォームの中にサブフォーム(データシート)が1つあります。
元のフォームのチェックボックスのオン・オフでサブフォームのレコードソースプロパティーを変更すると、
実行時エラー438
オブジェクトはこのプロパティまたはメソッドをサポートしていません。がでます。
サブフォームのビューは変更したくありません。
だれか助けてください。

If Me.未送信のみ = -1 Then
Forms!F_処理選択!F_理選択サブ.RecordSource = "F_処理選択サブ_1"
Else
Forms!F_処理選択!F_処理選択サブ.RecordSource = "F_処理選択サブ_2"
End If

Aベストアンサー

If Me.未送信のみ = -1 Then
Forms!F_処理選択!F_処理選択サブ.Form.RecordSource = "F_処理選択サブ_1"
Else
Forms!F_処理選択!F_処理選択サブ.From.RecordSource = "F_処理選択サブ_2"
End If

と、サブフォーム名と、RecordSource の間に、"From"を入れてみてください。

QAccessで新規レコード専用フォーム

こんばんわ。

Accessで、新規レコード追加専用フォームを作りたいと思います。

まず最初に、フォームAに「新規登録」と「確認」の2つのコマンドボタンを配置し、
前者をクリックしたときに空白状態の「登録フォーム」が表示出来るようにしたいのですが
どのようにしたらいいかわからず困っています。

新規登録専用のフォームを作ることは可能でしょうか?

どなたかご存知の方がいらっしゃいましたらご指導を宜しくお願い致します。

Aベストアンサー

OpenForm メソッド で、DataMode 引数を使うか、
フォームのデータ入力用プロパティを使ってください。

Qaccess前月差分クエリ書き換えたくない フィールド1 年月日 フィールド2 商品名 レコードは月

access前月差分クエリ書き換えたくない

フィールド1 年月日
フィールド2 商品名

レコードは月次で年度単位で持ち、毎月、先月分が今月に追加されます。

毎月、前月と前々月分の商品の個数の差を計算します。

フィールド1をformat関数で年月にし、グループ化したものを、201701-201612みたいにクエリを書いて
計算させています。

まずformatが良いのかmonthが良いかも分からないのですが、毎月の差分を取るクエリを書き換えたくなく、元テーブルから計算しやすいように加工するクエリをどう持てば良いか教えて下さい。

Aベストアンサー

以前回答させていただいた
https://oshiete.goo.ne.jp/qa/9605499.html

年月から1ヵ月の期間を求めるなら
DateSerial(Year([年月]),Month([年月]),1)
DateSerial(Year([年月]),Month([年月])+1,1)-1

上は年月の1日を求める
下は年月の翌月1日を出し、その前日(-1)を求めることで末日を求めている

先月を求めるなら
DateSerial(Year([年月]),Month([年月])-1,1)
yyyymmの形にするなら
Format(DateSerial(Year([年月]),Month([年月])-1,1),"yyyymm")

先々月を求めるなら
DateSerial(Year([年月]),Month([年月])-2,1)
yyyymmの形にするなら
Format(DateSerial(Year([年月]),Month([年月])-2,1),"yyyymm")


このカテゴリの人気Q&Aランキング

おすすめ情報