No.1ベストアンサー
- 回答日時:
マクロを作れるなら、
そのマクロをVBAに変換してみたらいかが?
ツール→マクロ→マクロをVisualBasicに変換
だったかな。
その方が勉強になると思いますよ。
私なら?
Docmd.GotoRecord , , acNewRec
で、新規データに飛ばしますかね。
ありがとうございます。
>ツール→マクロ→マクロをVisualBasicに変換
それも考えたのですが・・・
アクセスは久しぶりなので、マクロのやり方があやふやです。
同じ一からやるなら、VBAの方がいいかな~と思っています。
>Docmd.GotoRecord , , acNewRec
やってみたのですが、「指定したレコードに移動できません」と出ます。
もしかして・・・
フォームを開いたときに、何もない状態にしたいので、フォームのプロパティの「データ入力用」を「はい」にしています。
これが原因でしょうか?
でも、いいえにすると、全データが表示されるし。
何かいい方法は無いでしょうか?
No.5
- 回答日時:
No2 です。
> とりあえず、Me.Undoをいれてみました。
> すると、「Meキーワードの使用方法が不正です。」と怒られてしまいました。
処理は、標準モジュールに書かれている、ということですね。
「Me 」 がフォーム やレポート の クラスモジュールに書かれている場合は
自分自身のフォーム(レポート)を表します。
いろんな書き方がありますが
Forms("フォーム名").Undo
Screen.ActiveForm.Undo
とか。
後者は、ポップアップウィンドウでは NG です。
ありがとうございます。
エラーはでなくなりました。
しかし、入力するデータが正しくないので、テーブルに入れていないのでUNDOをしても意味が無いようです。
なんとなく、refreshをしてみました。(野生の感なので根拠はありません)
これもだめでした。
改めて、フォームを開いたときの状態にしたいのですが・・・
どうすればいいのでしょうか?
No.3
- 回答日時:
1です。
なるほど、入力用フォームなんですね。
入力中のレコードを「削除する」文です。
一応、フォームは空になってくれます。
Private Sub ボタン_Click()
On Error GoTo Err_ボタン_Click
'警告メッセージ非表示
Docmd.SetWarnings False
'入力中のレコードを選択して
DoCmd.DoMenuItem acFormBar, acEditMenu, acSelectRecord, , acMenuVer70
'削除します。
DoCmd.DoMenuItem acformber, acEditMenu, acDelete, , acMenuVer70
'修了処理
Exit_ボタン_Click:
'警告メッセージ表示
Docmd.SetWarnings True
Exit Sub
'エラー処理
Err_ボタン_Click:
MsgBox Err.Description
Resume Exit_ボタン_Click
End Sub
ちょっと強引ですが、こんな感じですか。
ありがとうざいます。
書いていただいたコードですが、私が知らない内容が多数あるので、また試していません。
一個一個調べてから試そうと思います。
それより、質問する時に、「ある処理」と推理小説の犯人を隠すような書き方をしたので、質問内容がわかりにくくなっているようなので、改めて今回したい内容を書きます。
まず、データをコピーします。
↓
それを、クリップボードから変数に入れます。(ボタンがありクリックすると変数にいれる処理をします)
↓
それを正規表現で、必要なデータを抜き出します。
↓
それをテーブルに入力します。
と言う流れです。
なぜ、入力用のフォームか?
フォームを開くと、今まで入力したデータすべてが表示されます。
私としては、クリップボードから入力したデータだけ表示させたかったです。
そこで、入力用にすると、今まで入力したデータが表示されませんでした。
(今、考え付いたのですが、別のテーブルを作ってデータがOKの場合、既存のテーブルにデータを追加して、新規に追加したテーブルを削除すれば、問題ないような気がしますが、なるべく手間は減らしたいとおもっています。)
ボタンを押すと、クリップボードからデータを読み込むのですが、ボタンを押す前は、前回読み込んだデータの一覧が表示されています。
読み込んだときに、読み込んだデータが正しくない場合、注意のダイアログを出して、OKボタンを押すと、前回入力したデータが表示されているのを消して、何もない状態にしたいと思っています。
ついでに、sql serverにデータを入れたいので ADOの使用を考えています。
これが今回したい内容です。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(データベース) Accessフォームからパラメーターで表示したレコードを指定のExcelのセルへ転送する方法について 2 2022/08/22 18:04
- Excel(エクセル) Excel VBAについてです。 少しだけ知識はあるのですが、 うまくいかなかったので 質問させてい 3 2022/09/13 18:40
- Access(アクセス) Access 登録ボタンからサブフォームの更新 1 2022/07/22 10:23
- Visual Basic(VBA) VBA 「,」・空白・カタカナ等の複数条件のマクロ 2 2023/08/23 11:57
- Access(アクセス) Access DLookup vbaで条件を2件設定したい場合どうすればよいでですか? 現在 If( 1 2023/06/28 14:28
- Access(アクセス) アクセスの更新クエリでカレントレコードのみ更新したい 1 2022/06/02 23:32
- JavaScript javascriptで入力フォームが空欄の時にアラートによるエラーを出すコードを書いています。 2 2023/06/13 17:58
- Access(アクセス) Access IF文でテーブルに存在しない場合の処理について 2 2022/10/10 18:09
- Excel(エクセル) 【vba】日付の形式が勝手に変わってしまう。 1 2022/09/29 10:54
- Access(アクセス) Accessにインポートした複数のテーブルを表示させる方法が分かりません。 1 2023/01/30 20:22
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
レコードを保存するコード ア...
-
アクセスの自動保存解除はでき...
-
Accessでレコードの保存をせず...
-
Access 「このレコードを保存す...
-
ACCESSフォームのリストボック...
-
Access:フォームプロパティ「...
-
フィルタ後のフォームの件数の...
-
新規レコード行を非表示にしたい
-
ACCESSのクエリで抽出したデー...
-
Access 帳票フォームでカレント...
-
Accessでチェックボックスで抽...
-
レコード削除時に(サブ)フォー...
-
異なるフォームに属する関数間...
-
アクセス データの競合を非表...
-
ACCESSでフォームを使って、テ...
-
Access2010、値を入力したら自...
-
Access 更新キャンセルするには?
-
Accessで新しいレコードに規定...
-
accessのクエリで、該当するデ...
-
access2010 カウントアップマクロ
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
レコードを保存するコード ア...
-
アクセスでフォームビューがみ...
-
新規レコード行を非表示にしたい
-
フィルタ後のフォームの件数の...
-
ACCESS起動時に所定フォームを...
-
ACCESSでフォームを使って、テ...
-
アクセスの自動保存解除はでき...
-
accessのクエリで、該当するデ...
-
Accessでレコードの保存をせず...
-
AccessVBA RecordSourceのリセ...
-
Accessで上の行を自動でコピー...
-
Accessでフォーム上に 直前の...
-
Access2010、値を入力したら自...
-
Access サブフォームにフィルタ...
-
レコード削除時に(サブ)フォー...
-
Access 帳票フォームでカレント...
-
Accessで新しいレコードに規定...
-
Access レコード移動時イベント...
-
アクセス データの競合を非表...
-
Access:フォームプロパティ「...
おすすめ情報