Ｐａｇｅ 683 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼非連結のコントロールに入力されたデータ... 古池 04/6/28(月) 21:08 ┗Re:非連結のコントロールに入力されたデータ... ちいたま 04/6/29(火) 15:13 ┗ありがとうございました＆もうひとつ 古池 04/6/29(火) 21:41 ┗Re:ありがとうございました＆もうひとつ ちいたま 04/6/30(水) 14:34 ┗Re:またまたありがとうございました 古池 04/6/30(水) 18:27 ─────────────────────────────────────── ■題名 ： 非連結のコントロールに入力されたデータ... ■名前 ： 古池 ■日付 ： 04/6/28(月) 21:08 -------------------------------------------------------------------------
| 非連結のコントロールから、テーブルにデータを入力するところまでは出来ました。 そこからなのですが、次回フォームを開くと、その入力したデータが表示されるようにしたいのです。フォームを開くときに、そのテーブルのそのレコード(最新に入力されたデータ）のそのフィールドのデータを取ってくるという風にすればよいのではないかと思うのですが…。 具体的にどうすればよいのかちょっとわかりません。 お願いします。 |
| ▼古池 さん： >非連結のコントロールから、テーブルにデータを入力するところまでは出来ました。 > >そこからなのですが、次回フォームを開くと、その入力したデータが表示されるようにしたいのです。フォームを開くときに、そのテーブルのそのレコード(最新に入力されたデータ）のそのフィールドのデータを取ってくるという風にすればよいのではないかと思うのですが…。 >具体的にどうすればよいのかちょっとわかりません。 >お願いします。 Form_Openに Dim db Database Dim rs Recordset set db =currentDb set rs =db.OpenRecordset("テーブル名",dbopendynaset) rs.moveLast txt1=rs!フィールド名1 txt2=rs!フィールド名2 rs.close db.close set rs = nothing set db= nothing こんなんでいかがでしょう？ |
| ありがとうございました。 いけましたよ〜(*^^)v ついでにもうひとつ…^_^; 次にこのフォームで削除ボタンを作ろうとしたのですが、 普通にウィザードで作ったのでは、やはり非連結なので、削除できないようです。 イベントプロシージャーにどう書けばよいのでしょうか |
| ▼古池 さん： >ありがとうございました。 >いけましたよ〜(*^^)v > >ついでにもうひとつ…^_^; > >次にこのフォームで削除ボタンを作ろうとしたのですが、 >普通にウィザードで作ったのでは、やはり非連結なので、削除できないようです。 > >イベントプロシージャーにどう書けばよいのでしょうか 削除はフォームで入力して、テーブルに書き込んでないものの状態でしょうか？ もしくは、既にテーブルに書き込まれてしまっているものですか？ それならば、 Dim rs as Recordset Dim db as Database Dim sql as String set db = currentdb set rs =db.openrecordset("テーブル名",dbopendynaset) sql ="select * from "テーブル名" where フィールド名 = " & me.txt1 & "" db.execute sql,dbfailonerror rs.close db.close set rs = Nothing set db = Nothing こんな感じですかな・・＾＾; 削除の対象になる条件はwhere以降で記述してみてください。 ほいじゃっ！！ |
| 解決しました。 ありがとうございました。(^o^) 既にテーブルに書き込まれてしまっているもののことだったのですが、 説明不足ですいません。 実は、更新クエリでフィールドにNULLを入れる処理を書いてみたのですが、 どうやらそれでもいけたみたいです。 |