- ベストアンサー
Accessでの自動加算方法とは?
- Accessでのデータの自動加算方法について質問があります。
- 現在の処理をSQLで書き換えたい場合、どのような方法があるのでしょうか?
- 具体的なコードや手順について教えてください。
- みんなの回答 (7)
- 専門家の回答
質問者が選んだベストアンサー
その他の回答 (6)
- hatena1989
- ベストアンサー率87% (378/433)
- hatena1989
- ベストアンサー率87% (378/433)
- piroin654
- ベストアンサー率75% (692/917)
- piroin654
- ベストアンサー率75% (692/917)
- piroin654
- ベストアンサー率75% (692/917)
- piroin654
- ベストアンサー率75% (692/917)
関連するQ&A
- アクセス2013MoveNextでエラーになります
Me.Recordset.MoveFirst i = 1 While (Not Me.Recordset.EOF) Me.フィールド = i i = i + 1 Me.Recordset.MoveNext Wend >Me.Recordset.MoveNext ここで、アクセス2010ではエラーになりませんが、アクセス2013でエラーになります。 > i = i + 1 この箇所にブレークポイントを入れて1回1回ストップ、再実行させるとエラーになりません。 なぜでしょう?対処法がありましたらご教授を。
- ベストアンサー
- その他(データベース)
- ACCESSでfilterとorderbyについて
ACCESS2000でfilterとorderbyを同時に指定する場合について教えてください。 ACCESS2000とwindows7を使用しております。 あるフォームにテキストボックスとコマンドボタンを用意しております。 テキストに入力した文字を元にfilterをかけております。 Me.filteron=true Me.filter=カラム名 like ~~ filterをした後に特定のカラムでソート(降順)したいと考えております。 上記に記載したfilterの後に Me.OrderByOn = True Me.OrderBy = カラム名 を追加したのですがfilterはするのですが、ソートはしてくれません。 上記以外になにか指定するものがあるのでしょうか。 お手数ですが、お力添えお願い致します。
- 締切済み
- その他(データベース)
- Access フォームから並び替えレポート
お知恵をお貸しください。 Access2010 フォームでオプショングループを2種類用意しました。 規則グループ 昇順 降順 並び替えグループ ID ふりがな レポートに Private Sub Report_Open(Cancel As Integer) Select Case Forms!フォーム4!fra並べ替え Case 1 Me.OrderBy = "ID ASC" Me.OrderByOn = True Case 2 Me.OrderBy = "ふりがな ASC" Me.OrderByOn = True End Select End Sub 並び替えでは、昇順のみうまくレポートを行えますが。 規則で ID ふりがな を昇順 降順 に行えません。 なにを加えればよいのでしょうか。 よろしくお願いします。
- ベストアンサー
- その他MS Office製品
- Access2007 サブフォームのレコードを一括印刷する方法
お世話になっております。 サブフォームは帳票型になっており、下記で表示されている全レコードのチェックが入ります。 これと平行して、各レコードを印刷したいのですが、カーソルがあるレコードのみがレコードの数だけ印刷されてしまいます。 これを各レコードごとに印刷したいと思います。 Dim dbs As Database Dim rst As Recordset Dim strSQL As String Set dbs = CurrentDb Set rst = Me.RecordsetClone With rst If .RecordCount > 0 Then .MoveFirst Do Until .EOF .Edit !チェック = True DoCmd.OpenReport "印刷", acNormal, , "コード=" & Me.コード .Update .MoveNext Loop End If .Close End With ご教授いただければ幸いです。よろしくお願いいたします。
- ベストアンサー
- その他(データベース)
- 「Me.Form」と「Me」の違いは?
アクセスのフォームで並べ替えをする時、 --------------------------------------------------------- Private Sub cmd_昇順_Click() With Me.Form .OrderBy = "フィールド1 ASC" .OrderByOn = True End With End Sub でも Private Sub cmd_昇順_Click() With Me .OrderBy = "フィールド1 ASC" .OrderByOn = True End With End Sub --------------------------------------------------------- でも出来ますが、 「Form」は必要なのでしょうか? あってもなくてもどっちでもいいなら、理由が知りたいです。
- ベストアンサー
- その他MS Office製品
- ACCESSとVBAとレコード
こんにちわ。 このサイトは何回も利用させて頂いてるのですが、今回も宜しくお願い致します。 環境はOS:Xp・Access2000です。 フォームを開くときにレコードを並べ替えたいのですが、単に「顧客コード」を昇順で並べ替えるには Private Sub Form_Load() Me.OrderBy = "顧客コード" Me.OrderByOn = True End Sub というのは解ったのですが、 何の関連付けもしてない、指定のテーブルの内容を並べ替えるにはどのように記述したらよいのでしょうか? 「Me」の箇所をそのテーブル名 (例えば、顧客テーブル.OrderBy = "顧客コード") のようにすれば良いのでしょうか? 宜しくお願いします。
- ベストアンサー
- オフィス系ソフト
- サブフォームの並べ替えをVBAで指定したい
親フォームを開くときにサブフォームの並べ替えを実行したいのですが 親フォームのフォームモジュールに Private Sub Form_Load() With Me.Controls("サブフォーム ") .OrderBy = "日時 DESC" .OrderByOn = True End With End Sub としてるのですが、 OrderByの部分で、 実行時エラー438になります。 サブフォーム名は「サブフォーム」です。 サブフォームの中に日時と言うコントロールは存在します。 なぜエラーになるのでしょうか? ちなみにOrderByをなくしても .OrderByOn = True で同じエラーが発生します。
- 締切済み
- その他MS Office製品
- accessのレポートの並べ替え条件
こんにちわ。 いまaccess2000でレポートを作成しています。 そこでレポートの並べ替え条件(昇順/降順)を 呼び出し元であるフォームのある条件によって, 動的に変えたいと思い, レポートファイルのReport_Open()イベントで 下記のようにコーディングしました。 「 Me.OrderByOn = True If [グローバル変数] = "1" Then Me.OrderBy = " [ID] Desc " Else Me.OrderBy = " [ID] " End If 」 ところが実行すると上記の箇所が処理されているにもかかわらず, 並べ替え条件が正しく反映されません。 どうすれば並べ替え条件が正しく反映されるでしょうか? 教えてください。 宜しくお願いします。
- ベストアンサー
- その他([技術者向] コンピューター)
- Access2003 テーダの並び替えについて
レポートにて、データの並び替えがうまくいきません。 日付順に並び替えをしていますが、只今日付が古い順に並び替えています。 それを逆にしたいのですが、うまくいきません。 日付が新しい順に並び替えるにはどうしたら良いのでしょうか? 現在、レポートのプロパティでは 開く時・・・[イベントプロシージャ] ******************************************* Private Sub Report_Open(Cancel As Integer) Me.OrderBy = "日付" Me.OrderByOn = True End Sub ******************************************* になっています。 宜しくお願い致します。
- 締切済み
- オフィス系ソフト
- ACCESSの印刷ダイアログについて
いつも大変お世話になっております。 レポートをFILTER(県名)で抽出した状態でプレビューしたいと思い以下のようにPGを組みました。 DoCmd.OpenReport "レポートR", acViewPreview Reports!レポートR.Filter = "[県名] Like '*" & txtbox_県名1 & "*'" Reports!レポートR.FilterOn = True プレビューはうまくいきましたが、この抽出した状態で印刷したいのですがどうすればいいのでしょうか。また、印刷の前に印刷ダイアログをだしたいと思い、 DoCmd.SelectObject acReport, "レポートR", False DoCmd.RunCommand acCmdPrint と組んだのですが全件印刷されてしまいます。 ご教授宜しくお願いします。
- ベストアンサー
- オフィス系ソフト
お礼
おかげさまで、かなり改善されました。 1日の予約欄が3行から7行あります。 例えば日曜は7行あって、その週に定例の予約が複数件発生したとします。 ですので1年分約53週分をLoopさせていますが、時間順に並び替え。 次の年に、定例の予約を更に適用追加。 こんな感じなのですが、 >stSQL = "SELECT * FROM テーブル名 WHERE グループ別 OREDER BY 速い順" > Set rs = CurrentDB.OpenRecordset(stSQL, dbOpenDynaset) これと、呼び出し先の見直しで体感的に10位早くなりました。 >If curDate = rs!予約西暦年 Then > jj = jj + 1 > Else > jj = 1 > curDate = rs!予約西暦年 > End If 処理速度に満足していますので、ご指導のコードはいつかの機会にまた参考させて頂きます。 (バグ混入が怖いので、今回はここまで) いつも的確なご指導、ありがとうございます。