![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
<環境>ACCESS2000
サブフォーム(データシートビュー)の並び替えを、メインフォームのオプショングループの
更新後処理イベントで操作しようと思っています。
コーディングは以下の通りです。
並び替え自体はうまく動作するのですが、メインフォームで閉じるボタンを押すと
「直前の操作はキャンセルされました.」とエラーが出てしまいます。
サブフォームのプロパティを替えることが原因なのでしょうか?
どなたか回避策をお願いします。
<メインフォーム開く時>
Public Function 開くイベント()
DoCmd.OpenForm "Fメイン"
Set FM = Forms![Fメイン]
Set FS = Forms![Fメイン]![SubForm].Form
'テーブル作成
strSQL = "CREATE TABLE AAA ("
strSQL = strSQL & " [選択] [bit] NULL ,"
strSQL = strSQL & " [番号] [varchar] (7) NOT NULL ,"
strSQL = strSQL & " [カナ] [varchar] (20) NULL ,"
strSQL = strSQL & " PRIMARY KEY(番号))"
db.Execute strSQL
'データ作成
strSQL = "INSERT INTO AAA"
strSQL = strSQL & " SELECT"
strSQL = strSQL & " [選択]= 1 ,"
strSQL = strSQL & " [番号]= [番号] ,"
strSQL = strSQL & " [カナ]= [カナ] "
strSQL = strSQL & " FROM BBB"
db.Execute strSQL
FS.RecordSource = "SELECT * FROM AAA ORDER BY 番号"
FM.Refresh
End Function
<オプショングループ更新後処理>
Private Sub GRP_並び順_AfterUpdate()
Select Case Me!GRP_並び順
Case 1
With Me![SubForm].Form
.OrderBy = "番号"
.OrderByOn = True
End With
Case 2
With Me![SubForm].Form
.OrderBy = "カナ"
.OrderByOn = True
End With
End Select
End Sub
No.1
- 回答日時:
最初に直接的な回答から、
メニュー→ツール→オプションの『名前の自動修正』のチェックを外す。
最適化を試す、もしくは新規MDBを作成してすべてインポート。
念のために『名前の自動修正』オプションは無し。
で解決するかもしれません。
ところで、提示されたコードがエラーもなく進むのは不思議です。
'テーブル作成
strSQL = "CREATE TABLE AAA ("
strSQL = strSQL & " [選択] [bit] NULL ,"
strSQL = strSQL & " [番号] [varchar] (7) NOT NULL ,"
strSQL = strSQL & " [カナ] [varchar] (20) NULL ,"
strSQL = strSQL & " PRIMARY KEY(番号))"
db.Execute strSQL
は
'テーブル作成
Dim strSQL as string
strSQL = "CREATE TABLE AAA ("
strSQL = strSQL & " 番号 varchar(7) CONSTRAINT BANGO PRIMARY KEY,"
strSQL = strSQL & " 選択 bit NULL,"
strSQL = strSQL & " カナ varchar(20) NULL)"
Currentdb.Execute strSQL
のような感じでは?
'データ作成 の方も、やりたいことは分かりますが?
テーブル作成処理も無くして、単純にテーブル作成クエリで済ませてはどうですか?
Dim strSQL as string
Dim tdf As DAO.TableDef
'既存テーブル削除
For Each tdf In CurrentDb.TableDefs
If tdf.Name = AAA Then
CurrentDb.Execute ("drop table " & tdf.Name)
End If
Next
strSQL = "SELECT 1 AS 選択, 番号, カナ INTO AAA FROM BBB"
Currentdb.Execute strSQL
のような感じで。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
許せない心理テスト
私は「あなたの目の前にケーキがあります。ろうそくは何本刺さっていますか」と言われ「12本」と答えたら…
-
アクセスでテキストボックスの値が空白だったら
Access(アクセス)
-
Accessでテーブル名やクエリ名一覧の抜き出し
Access(アクセス)
-
ACCESS──メインフォームでサブフォームのレコード件数をカウントしたい
Access(アクセス)
-
-
4
Accessの画面更新を一時的に停止する方法。
その他(データベース)
-
5
ACCESS VBAでインポート定義の場所
Access(アクセス)
-
6
ACCESS フォームから開く【クエリ「パラメータの入力」】でキャンセルしてもエラーにならない方法は?
Access(アクセス)
-
7
アクセス VBAで列の入れ替え データシートビュー
その他(Microsoft Office)
-
8
SQL文で パラメータが少なすぎます エラー
Access(アクセス)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・「I love you」 をかっこよく翻訳してみてください
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・昔のあなたへのアドバイス
- ・かっこよく答えてください!!
- ・あなたが好きな本屋さんを教えてください
- ・スタッフと宿泊客が全員斜め上を行くホテルのレビュー
- ・【大喜利】【投稿~8/27】 こんなガソリンスタンド二度と来るか!なぜそう思った?
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・【お題】動物のキャッチフレーズ
- ・【お題】甲子園での思い出の残し方
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・「それ、メッセージ花火でわざわざ伝えること?」
- ・自分用のお土産
- ・人生で一番お金がなかったとき
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・ちょっと先の未来クイズ第1問
- ・ゴリラ向け動画サイト「ウホウホ動画」にありがちなこと
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Accessで別テーブルの値をフォ...
-
[Access]異なるレコード間の文...
-
access 自動採番 「10-AA-000...
-
最新の日付とその金額をクエリ...
-
access 自動採番 年が変わる...
-
Accessでのレコード存在チェック
-
【アクセスVBA】テーブルにフィ...
-
Access 文字+年ごとの自動採番
-
vba 直前の操作はキャンセルさ...
-
Access終了時の最適化が失敗?
-
GROUP BYを行った後に結合した...
-
最初の値から次の行の値までを...
-
select insertで複数テーブルか...
-
固有レコード識別子の選択とは
-
SELECTで1件のみ取得するには?
-
SELECTの結果で同一行を複数回...
-
レコードが存在しなかった場合
-
Oracleでの文字列連結サイズの上限
-
キーが同じを複数行を1行にま...
-
実績累計の求め方と意味を教え...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Accessで別テーブルの値をフォ...
-
最新の日付とその金額をクエリ...
-
Accessでのレコード存在チェック
-
[Access]異なるレコード間の文...
-
【SQL】existsでの商演算
-
access 自動採番 「10-AA-000...
-
Recordset.FindFirstについて
-
access 自動採番 年が変わる...
-
【アクセスVBA】テーブルにフィ...
-
質問です。 下記のテーブルとデ...
-
access 請求番号の自動採番
-
Accessで日付が変わると番号が...
-
アクセスで「空き番」の確認
-
【Access】選択クエリのグルー...
-
Access 文字+年ごとの自動採番
-
Access:抽出して、色をつけたい。
-
vba 直前の操作はキャンセルさ...
-
SELECT * FROM `生徒名簿` INNE...
-
サイベースには、オラクルのROW...
-
条件をつけて日付の古い行を抜...
おすすめ情報