Access VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1919 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【4500】なんでかな・・・テーブルに追加について・・・ カナ 05/2/28(月) 14:16 質問[未読]
【4506】Re:なんでかな・・・テーブルに追加について... hatena 05/3/1(火) 10:58 回答[未読]
【4509】Re:なんでかな・・・テーブルに追加について... カナ 05/3/1(火) 15:16 質問[未読]
【4511】Re:なんでかな・・・テーブルに追加について... クロ 05/3/2(水) 10:00 回答[未読]
【4517】クロさん、hatenaさん、いつもすみません・... カナ 05/3/7(月) 16:43 発言[未読]
【4518】なんどもごめんなさい・・・・ カナ 05/3/7(月) 17:53 質問[未読]
【4519】Re:なんどもごめんなさい・・・・ クロ 05/3/8(火) 5:43 回答[未読]
【4523】Re:なんどもごめんなさい・・・・ hatena 05/3/9(水) 12:28 回答[未読]
【4643】ありがとうです。 カナ 05/3/18(金) 9:55 発言[未読]
【4500】なんでかな・・・テーブルに追加について...
質問  カナ  - 05/2/28(月) 14:16 -
引用なし
パスワード
   こんにちは、すみません、また、お願いします。

Private Sub 登録_Click()
On Error GoTo Err_登録_Click

　　DoCmd.GoToRecord , , acNewRec
　　
　　MsgBox ("登録しました。")
　　
Exit_登録_Click:
　　Exit Sub

Err_登録_Click:
　　MsgBox Err.Description
　　Resume Exit_登録_Click
　　
End Sub

ってかくと、なぜか、２件テーブルに追加されてしまいます・・・
（１件目はちゃんと値が入る。２件目は空白で。。。）

なんででしょうか？？？
【4506】Re:なんでかな・・・テーブルに追加につい...
回答  hatena  - 05/3/1(火) 10:58 -
引用なし
パスワード
   >Private Sub 登録_Click()
>On Error GoTo Err_登録_Click
>
>　　DoCmd.GoToRecord , , acNewRec
>　　
>　　MsgBox ("登録しました。")
>　　
>Exit_登録_Click:
>　　Exit Sub
>
>Err_登録_Click:
>　　MsgBox Err.Description
>　　Resume Exit_登録_Click
>　　
>End Sub
>
>ってかくと、なぜか、２件テーブルに追加されてしまいます・・・
>（１件目はちゃんと値が入る。２件目は空白で。。。）

空白の２件目というのは、新規レコード入力行のことでは
ないですか。データが有るわけではないです。そこで新規レコード
入力するためのものです。

入力したのもの登録したいだけなら、

　　DoCmd.GoToRecord , , acNewRec

ではなくて、

　　DoCmd.RunCommand acCmdSaveRecord

もしくは、

　　Me.Refresh

でOKかと。
【4509】Re:なんでかな・・・テーブルに追加につい...
質問  カナ  - 05/3/1(火) 15:16 -
引用なし
パスワード
   すみませ〜ん、やっぱしできませんでした・・・。
入力したい値が入ってくれなくなっちゃいました・・・。

やりたいことは、登録フォームで入力した値をレコードに追加（登録）
したいのです・・・。なんででしょうか・・・

>
>入力したのもの登録したいだけなら、
>
>　　DoCmd.GoToRecord , , acNewRec
>
>ではなくて、
>
>　　DoCmd.RunCommand acCmdSaveRecord
>
>もしくは、
>
>　　Me.Refresh
>
>でOKかと。
【4511】Re:なんでかな・・・テーブルに追加につい...
回答  クロ  - 05/3/2(水) 10:00 -
引用なし
パスワード
   横レス失礼します。

コマンドボタン(登録)のクリック時のイベントでhatenaさんが提示された
ものを以下のように書き換えたのなら

Private Sub 登録_Click()
On Error GoTo Err_登録_Click
　DoCmd.RunCommand acCmdSaveRecord
　MsgBox ("登録しました。")
Exit_登録_Click:
　Exit Sub
Err_登録_Click:
　MsgBox Err.Description
　Resume Exit_登録_Click
End Sub

とした場合セーブ(格納)されているはずです。

>入力したい値が入ってくれなくなっちゃいました・・・。
はどのように確認したのでしょうか？
テーブルを開いたままで確認したのなら一度閉じてから
開いてみてください。
【4517】クロさん、hatenaさん、いつもすみません...
発言  カナ  - 05/3/7(月) 16:43 -
引用なし
パスワード
   クロさん、hatenaさん、せっかくレス頂いたのですが、インフルエンザで休んでました。
ご回答、ありがとうございました。
クロさん、hatenaさんのおっしゃるとおりで登録できるのですが、できない場合というのがあるので、また質問させてください。

できない場合の状況をもうちょっと洗い出して見ますので、またご相談に乗ってください。
とりあえずは、レス頂いたのに、ちょっと時間があいてしまったので、お礼を申し上げようかと・・・。


▼クロ さん：
>横レス失礼します。
>
>コマンドボタン(登録)のクリック時のイベントでhatenaさんが提示された
>ものを以下のように書き換えたのなら
>
>Private Sub 登録_Click()
>On Error GoTo Err_登録_Click
>　DoCmd.RunCommand acCmdSaveRecord
>　MsgBox ("登録しました。")
>Exit_登録_Click:
>　Exit Sub
>Err_登録_Click:
>　MsgBox Err.Description
>　Resume Exit_登録_Click
>End Sub
>
>とした場合セーブ(格納)されているはずです。
>
>>入力したい値が入ってくれなくなっちゃいました・・・。
>はどのように確認したのでしょうか？
>テーブルを開いたままで確認したのなら一度閉じてから
>開いてみてください。
【4518】なんどもごめんなさい・・・・
質問  カナ  - 05/3/7(月) 17:53 -
引用なし
パスワード
   DoCmd.RunCommand acCmdSaveRecord

というのは、レコードにsaveということですよね？
例えば、連続で登録したい場合ってのは、どうなんでしょうか？
DoCmd.RunCommand acCmdSaveRecordで、登録されたあと、単純にクリア（クリアボタンを作って、単純にフォームの項目に""を入れただけ）をして、もう一回登録すると、さっき登録してたやつに上書きされちゃいました・・・。

あと、た〜まになんですけど、登録フォームのテキストボックスの初期で半角のスペースが入ってます。

すみません。。。よろしくです。
【4519】Re:なんどもごめんなさい・・・・
回答  クロ  - 05/3/8(火) 5:43 -
引用なし
パスワード
   >DoCmd.RunCommand acCmdSaveRecordで、登録されたあと、
>単純にクリア（クリアボタンを作って、単純にフォームの
>項目に""を入れただけ）をして、もう一回登録すると、さ
>っき登録してたやつに上書きされちゃいました・・・。

これは正常な動作では？
同レコードをセーブした後、クリアして再度セーブすれば
レコードは移動していないのだから上書きされます。

>あと、た〜まになんですけど、登録フォームのテキスト
>ボックスの初期で半角のスペースが入ってます。

フォームのコントロールプロパティかテーブル設計段階で
既定値に半角スペースがあるのでは？
【4523】Re:なんどもごめんなさい・・・・
回答  hatena  - 05/3/9(水) 12:28 -
引用なし
パスワード
   編集したレコードを更新保存する
DoCmd.RunCommand acCmdSaveRecord

新規レコードを入力する（新規レコードへ移動する）
DoCmd.GoToRecord , , acNewRec

それぞれ異なる処理、動作ですのでその違いを
認識しましょう。

登録して即、新規入力なら、
DoCmd.RunCommand acCmdSaveRecord
DoCmd.GoToRecord , , acNewRec
でいいですが、、、、
登録動作のこのように限定してしまうのが
良いユーザーインターフェイスか検討する
必要はあると思います。
例えば、
順にレコード移動しながら、修正したいと言うとき
ユーザーはとまどうと思いますよ。
【4643】ありがとうです。
発言  カナ  - 05/3/18(金) 9:55 -
引用なし
パスワード
   ２週間ほど、他部署にいたので、この作業はやってませんでした。
いつも本当にありがとうです。

とりあえず、また今日からこの作業に戻りますので、また
質問させてください。

よろしくお願いします。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1919 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
1084357
(SS)C-BOARD v3.8 is Free