Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1539 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【6650】画面のクリアの方法ですが 中直 05/10/28(金) 11:49 質問[未読]
【6657】Re:画面のクリアの方法ですが 小僧 05/10/28(金) 14:42 発言[未読]
【6659】Re:画面のクリアの方法ですが 中直 05/10/28(金) 16:04 お礼[未読]
【6661】Re:画面のクリアの方法ですが 小僧 05/10/28(金) 16:20 発言[未読]
【6663】Re:画面のクリアの方法ですが 中直 05/10/28(金) 21:05 お礼[未読]
【6650】画面のクリアの方法ですが
質問  中直 E-MAIL  - 05/10/28(金) 11:49 -
引用なし
パスワード
   関数のMe.Clear或いはMe.Refreshを使って
伝票入力画面をクリアしたいのですが関数
使い方がわかりません。
実例を上げていただければ大変たすかります。
よろしくお願いします。
Private Sub cmdUpd_Click()
　　'########## [更新] ##########
　　'ﾚｺｰﾄﾞの更新
　　DoCmd.OpenQuery ("qu売上伝票更新")
　　MsgBox "　更新しました。　", , ""
　　
　　ここの部分に入れたいのですが(Me.Clear)

　　DoCmd.GoToControl "伝票番号"
End Sub
【6657】Re:画面のクリアの方法ですが
発言  小僧  - 05/10/28(金) 14:42 -
引用なし
パスワード
   ▼中直 さん：
こんにちは。

>関数のMe.Clear或いはMe.Refreshを使って

ヘルプをご覧になられましたでしょうか。
Clear も Refresh も決して関数ではないと思うのですが…。


>伝票入力画面をクリアしたいのですが

どのような動作を「クリア」というのかが曖昧だと思われます。

フォーム上に見えていたテキストボックスやコマンドボタンそのものを
削除しても「クリア」と言えそうですし、
テキストボックスの値を空白にしたり、
リストボックスで選択された値を何も選択されていない状態にする事も
「クリア」と言えそうですよね。


非連結フォームに配置されたコントロールの値を空白にする例です。

Private Sub クリアボタン_Click()
Dim MyCon As Control

On Error Resume Next
　　For Each MyCon In Me.Controls
　　　　MyCon.Value = ""
　　Next
End Sub

全然的外れでしたらすみません。
【6659】Re:画面のクリアの方法ですが
お礼  中直 E-MAIL  - 05/10/28(金) 16:04 -
引用なし
パスワード
   ▼小僧 さん：
こんにちは。
ありがとうございました。
テキストボックスの内容をクリアする事が出来ました。

連結のテキストボックスはクリアできないのでしょうか。

幼稚な質問ばかりで申し訳ありません。
よろしくお願いします。
【6661】Re:画面のクリアの方法ですが
発言  小僧  - 05/10/28(金) 16:20 -
引用なし
パスワード
   ▼中直 さん：
こんにちは。

>連結のテキストボックスはクリアできないのでしょうか。

連結フォームのテキストボックスの値を空白にすると、
テーブルのデータも空白になってしまいますよ ^^;

単票フォームの場合でしたら新規レコードへ移動する方法も
ありかと思われます。

DoCmd.GoToRecord acDataForm, Me.Name, acNewRec
【6663】Re:画面のクリアの方法ですが
お礼  中直 E-MAIL  - 05/10/28(金) 21:05 -
引用なし
パスワード
   ▼小僧 さん：
こんばんは。
もの凄くヒントになりました。
ありがとうございます。
連結のボックスをクリアするなんて論外でした。

これからもよろしくお願いします。


>▼中直 さん：
>こんにちは。
>
>>連結のテキストボックスはクリアできないのでしょうか。
>
>連結フォームのテキストボックスの値を空白にすると、
>テーブルのデータも空白になってしまいますよ ^^;
>
>単票フォームの場合でしたら新規レコードへ移動する方法も
>ありかと思われます。
>
>DoCmd.GoToRecord acDataForm, Me.Name, acNewRec
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1539 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
1080804
(SS)C-BOARD v3.8 is Free