No.4
- 回答日時:
おはようです。
すみません。Upするときに、DCountをDMaxに変更したため、思惑通り動作してませんでした><
申し訳ありません。
変更した理由が「1,2,3」とあって、「2」を削除後「1,3」とした時、Countだと3を追加、連続番号ではなくなるので、Maxに変更してみたんですが・・・。
Private Sub Form_BeforeUpdate(Cancel As Integer)
If IsNull(Me.受付番号子.Value) Then
If IsNull([Forms]![フォーム1]![受付番号親]) Then
Me.受付番号子.Value = 1
Else
If DCount("[受付番号子]", "サブフォームに使用しているテーブル名", _
"[サブフォームに使用しているテーブル名]![受付番号親] =" & [Forms]![親フォーム名]![受付番号親]) = 0 Then
Me.受付番号子.Value = 1
Else
Me.受付番号子.Value = _
DMax("[受付番号子]", "サブフォームに使用しているテーブル名", _
"[サブフォームに使用しているテーブル名]![受付番号親] =" & [Forms]![親フォーム名]![受付番号親]) + 1
End If
End If
End If
End Sub
多分これで^^;
単に連続する番号を振りたいのであれば、テーブルにフィールドを作成する必要もなくなるのですが、フィールドを作った理由を深読みしすぎてますか?
おはようございます。回答くださった方法で試してみましたが全て"1"が代入されてしまいます。
社内販売の管理として使用したく、依頼者が複数の方に商品を発送する際の管理番号として付番したかったので、レコードに保存します。
もう一度考えてみます。
No.3
- 回答日時:
サブフォーム内での連番でしたら、「CurrentRecord」の代入でやるのが楽です。
既存のデータに割り当てるのでしたら、
1)メインフォームで先頭レコードに移動
2)サブフォームで先頭レコードに移動(念のため)
3)サブフォームの「受付番号」にCurrentRecordを代入したら、
次のレコードに移動
4)同様に、サブフォームの最後のレコードまで繰り返し
5)メインフォームで次のレコードに移動
6)上の「2)~5)」を、メインフォームの最後のレコードまで繰り返し
となります。
新規レコードの場合は、「レコード挿入時」イベントでCurrentRecordを代入するのがよいでしょう。
一応、既存レコードへの代入については、以前の回答でサンプルを作成してますので、よければそちらも参考に。(→参考URL)
参考URL:http://oshiete1.goo.ne.jp/kotaeru.php3?q=1575853
回答ありがとうございます。
基本的に新規レコードのみに適用します。
ただし、結構ド素人なもんでCurentRecordの使い方がよくわかりません
もう少し詳しく教えていただくと幸いです。
No.2
- 回答日時:
結構、フォームで行おうとすると、難しいですね^^;
サブフォームの更新前処理で、
Private Sub Form_BeforeUpdate(Cancel As Integer)
If IsNull(Me.受付番号子.Value) Then
If IsNull([Forms]![親フォーム名]![受付番号親]) Then
Me.受付番号子.Value = 1
Else
Me.受付番号子.Value = DMax("[受付番号子]", "サブフォームに使用しているテーブル名", _
"[サブフォームに使用しているテーブル名]![受付番号親] =" & [Forms]![親フォーム名]![受付番号親]) + 1
End If
End If
End Sub
で、サブフォームに使用しているテーブルの「受付番号子」の既定値を0を削除し、Nullに変更してます。
更新前処理まで「受付番号子」を空欄で置いてあるのですが、レコード移動時にすればカーソールがレコードに移った時にも数値が入れられますが・・・ESC等でデータを消された際、やはり更新後にも必要になってきます。
受付番号子(数値)を演算として、テーブルに保管せず、裏でサブフォームにオートナンバー型のインデックスを取り付け、表の表記だけ、子の連番を取り付けるって考えたのですが・・・。こちらの方だと新規の時にもレコードに受付番号子に値が入ってくるように何とかなるかな~っと^^;
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) ユーザーフォーム「frm_基本❶」を立ち上げると新規で入力する行数を右下のNoとして表示しています。 1 2023/03/16 19:02
- Access(アクセス) Accessでセレクタをダブルクリックで別フォームで詳細表示 3 2022/12/20 10:36
- Access(アクセス) Access DLookup vbaで条件を2件設定したい場合どうすればよいでですか? 現在 If( 1 2023/06/28 14:28
- X(旧Twitter) Twitter(X)のアカウントの作り方 Twitterでサブ垢を作りたかったので、今まであったサブ 3 2023/08/28 08:08
- 書類選考・エントリーシート 家の固定電話番号を書きましょうか?それとも携帯電話番号を書きましょうか? 7 2023/01/07 17:59
- Amazon Amazonで注文した商品をローソンで受け取りにしているのですがコロナにかかってしまい取りにいけなく 4 2022/08/22 10:55
- その他(SNS・コミュニケーションサービス) Yahoo知恵袋の登録番号の知り方について 2 2022/09/17 21:04
- 楽天市場 楽天市場の店舗の不手際によるキャンセルと受取拒否について(長文です) お世話になっております。 11 4 2022/09/22 18:46
- その他(プログラミング・Web制作) 入力フォームへ、データを自動的に入力するプログラム。どうやって作る? 4 2023/01/16 10:24
- 確定申告 公金受取口座登録後、e-Taxで口座情報を入力する必要はありますか 2 2022/05/09 06:48
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
Accessフォームに行番号を自動的に付与するには
Access(アクセス)
-
Access サブフォームに連番を入れたい
その他(プログラミング・Web制作)
-
Access サブフォームでの選択行の取得
その他(データベース)
-
-
4
アクセスのフォームに連番を表示するには?
Access(アクセス)
-
5
ACCESSのテーブルからデータを抽出する方法
Access(アクセス)
-
6
Accessのフォーム上にレコード数とレコード番号の表示
その他(データベース)
-
7
Access 最後のレコードに到達するまでループ処理を行う方法
Access(アクセス)
-
8
ACCESS クエリで1から順番に番号を表示したい
Access(アクセス)
-
9
accessでオートナンバーを使わずに「文字+数字」の自動採番する方法
Access(アクセス)
-
10
レコードを保存するコード アクセスvba
その他(Microsoft Office)
-
11
Accessで別テーブルの値をフォームに表示したい
その他(データベース)
-
12
ACCESS──メインフォームでサブフォームのレコード件数をカウントしたい
Access(アクセス)
-
13
ACCESSのBookmarkプロパティの使い方
その他(データベース)
-
14
ACCESSでVBAから選択クエリの抽出条件を指定したい
Access(アクセス)
-
15
非連結サブフォームのレコードソース
その他(データベース)
-
16
アクセスで#エラーを表示させない方法は?
Access(アクセス)
-
17
親フォームからサブフォームのレコードソースを設定
Access(アクセス)
-
18
サブフォームの新規レコードに移動したい アクセス
Access(アクセス)
-
19
サブフォームに対してGoToRecordするには?
その他(Microsoft Office)
-
20
Accessのサブフォームから値を参照する方法について
その他(データベース)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Access サブフォームでの選択行...
-
Access2000、これはいったい・...
-
access サブフォームにリストを...
-
(ACCESS)条件に応じて、テキ...
-
Accessのサブフォームから値を...
-
Accessのコンボボックスに連動...
-
ACCSESS2013VBA フォームのレコ...
-
Access2000 サブフォームのReco...
-
別MDBのフォームを起動
-
単票フォームと帳票フォームを...
-
サブフォームでのダブルクリッ...
-
サブフォームの切り替え方を教...
-
googleフォームでインストール...
-
サブフォームが見えなくなる。
-
Access 複数フォームを...
-
複数項目でのサブフォームとの...
-
2回目に画面のレコードセットの...
-
Access2000について
-
[Access2000] フォーム間で値の...
-
Accessのサブフォーム上で常に...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Access サブフォームでの選択行...
-
ACCSESS2013VBA フォームのレコ...
-
Access 複数フォームを...
-
Access2000、これはいったい・...
-
Accessのサブフォームから値を...
-
access サブフォームにリストを...
-
サブフォームでのダブルクリッ...
-
Access2000 サブフォームのReco...
-
(ACCESS)条件に応じて、テキ...
-
サブフォームが見えなくなる。
-
2回目に画面のレコードセットの...
-
サブフォームのデータを保存す...
-
Accessで、一覧からクリックし...
-
Accessでのフォーム表示がうま...
-
AccessのFormのみをスクリーン...
-
ACCESSでfilterとorderbyについて
-
サブフォームでフィルタしたデ...
-
レコードセットで得た結果をサ...
-
アクセスでサブフォームのレコ...
-
初心者です。accessで請求書を...
おすすめ情報