- ベストアンサー
テーブルの上書き保存は
テーブルに連結されていないフォームがあり保存処理をかけていったんテーブルに保存します。 ココまではできました。 次にそのフォームから保存したテーブルを呼び出してフォームに表示させ、データを追加して同じテーブルの同じレコードを上書き保存させるにはどのようにすればいいですか？ 初心者なので解説つけてアドバイスお願いします。
- みんなの回答 （6）
- 専門家の回答
質問者が選んだベストアンサー
その他の回答 (5)
- ats8181oyaji
- ベストアンサー率38% (94/244)
こんにちは sqlstring = sqlstring & "where 座席コード ='" & 座席コード & "'" sqlstring = sqlstring & "返却 = '1';" のsqlstring & "返却 = '1';"のところでスペースが抜けてますね "返却 →" 返却 としてください。 ここからは、忠告です。 ぼちぼち、ご自身でデバッグする知識を身につけた方がよろしいかと 存じます(^^;;) 人から教えてもらったソースを理解しないで動かすと 後から変更が発生したとき、大変ですよ ヘルプを調べたり、SQL文をイミディエイトに貼りつけてデバッグ それをクエリのSQLに貼り付けて、試してみたりと なかなか、しんどいですが、頑張ってください。 では
補足
おっしゃるとおりです。 あせってしまっていてつい、、 ところで最後にひとつだけおしえてください。 rst.open sqlstring, _ ----- とありますが、sqlのばあいは 最初に dim rst as new adodb.recordset set rst = new adodb.recordset って記述は 必要ないですか？
- ats8181oyaji
- ベストアンサー率38% (94/244)
こんにちは 失礼しました。ご指摘の通り & が抜けております SQLSTRING = SQLSTRING & " where 座席コード ='" & Me.座席コード & "'" SQLSTRING = SQLSTRING & " Set 終了時間 ='" & rst![終了時間] & "'," SQLSTRING = SQLSTRING & " Where 座席コード ='" & Me.座席コード & "'" 全て、行後部の "'" または"',"で囲んだ文字列の前の & が抜けてます 失礼しました
補足
すいません 今度はオブジェクトがありませんのエラーが出でしまいました場所は下記の rst.open sqlstring,_ currentproject.connecction,adopenstatic,adlockreadonly のところです。 何でしょう？？？？ Dim sqlstring As String sqlstring = "select * from sogo " sqlstring = sqlstring & "where 座席コード ='" & 座席コード & "'" sqlstring = sqlstring & "返却 = '1';" rst.Open sqlstring, _ CurrentProject.Connection, adOpenStatic, adLockReadOnly If rst.EOF = True Or rst.BOF = True Then 'エラー処理 Beep MsgBox ("まだ返却されていません") End If
- ats8181oyaji
- ベストアンサー率38% (94/244)
こんにちは 手順としては 1.キー入力 2.合致したレコードを読んで 3.画面に表示 4.終了時間入力 5.更新=UPDATE ですよね レコード読みこみの条件は キーが[座席コード] 条件は[返却]が1のものでよろしいかと思います sub データリード画面表示() dim SQLSTRING as string SQLSTRING = "select * form 総合 " '座席コード・返却は文字型とみなしています SQLSTRING = SQLSTRING & " where 座席コード ='" & Me.座席コード "'" SQLSTRING = SQLSTRING & " and 返却 ='1';" '注ただこれだと入力もれの場合複数レコードが合致するので '日付と受付時間の最大という条件もあったほうがいいかも？ rst.Open SQLSTRING, _ CurrentProject.Connection, adOpenStatic, adLockReadOnly If rst.eof = true or rst.bof = true then 'エラー処理 endif '画面表示 Me.Date= rst![日付] Me.学生番号 = rst![学生番号] Me.氏名=rst![氏名] ・ ・ ・ rst.Close Set rst = Nothing End Sub これで画面表示ができたので終了時間を入力します 更新ボタンを設け、ボタンが押された処理で sub 更新() dim SQLSTRING as string SQLSTRING = "UPDATE 総合 " SQLSTRING = SQLSTRING & " Set 終了時間 ='" & rst![終了時間] "'," SQLSTRING = SQLSTRING & " Set 返却 ='2'" SQLSTRING = SQLSTRING & " Where 座席コード ='" & Me.座席コード "'" SQLSTRING = SQLSTRING & " and 返却 ='1';" rst.Open SQLSTRING, _ CurrentProject.Connection, adOpenKeyset, adLockOptimistic rst.Close Set rst = Nothing End Sub では
補足
早速ありがとうございました しかし下記の構文がエラーになってしまいます なぜでしょう？ & のあとは " っていらないんですか？ たとえば sqlstring =sqlstring & "where 座席コード ='" & me.座席コード"'" のところとかですが、、、 sub データリード画面表示() SQLSTRING = SQLSTRING & " where 座席コード ='" & Me.座席コード "'" sub 更新() SQLSTRING = SQLSTRING & " Set 終了時間 ='" & rst![終了時間] "'," SQLSTRING = SQLSTRING & " Where 座席コード ='" & Me.座席コード "'"
- ats8181oyaji
- ベストアンサー率38% (94/244)
- Te-Sho
- ベストアンサー率52% (247/472)
フォームの開く時のイベントで表示させたいレコードをクエリやSQLで抽出し、各項目をコントロールにセットします。 保存時は更新処理となります。 新規に追加する処理がVBAを使用していてSQLを使用していて、SQLでinsertステートメントで行っているのでしたら同じようにupdateステートメントにwhere句でレコードを指定し更新処理が掛けられます。 もし、addnewメソッド等でそのレコードに対して追加しているようでしたら、更新したいレコードに対するレコードセットを作成しそのレコードに対してeditメソッドを使用し、updateメソッドで更新を掛けられます。 また元々追加クエリで追加しているようでしたら、更新クエリを作成しクエリの抽出条件をフォーム上に有るキー項目として、値をビルドで各フォームの値にしてあげれば出来ると思います。 ざっと考えてこの3種類が有ります。
補足
アドバイスありがとうございました。 保存用の総合テーブルがあり、最初に保存した時に返却フィールドに”１”を入力して保存しています。 2度目に座席コードを入力用テキストボックスに入力した時に返却フィールドの”１”の場合の座席コードが一致したレコードの終了時間フィールドに時間をいれて2回目の保存の時に返却フィールドを”２”に書き換えて保存したいのですが、どのようなコードになるかサンプルだけでも教えていただけないでしょうか？今のコードは下記のとおりです。 Public Sub 保存処理2() Dim rst As New ADODB.Recordset Set rst = New ADODB.Recordset rst.Open "総合", _ CurrentProject.Connection, adOpenKeyset, adLockOptimistic rst.AddNew rst![日付] = Date rst![学生番号] = Me.学生番号 rst![氏名] = Me.氏名 rst![受付時間] = Me.受付時間 rst![終了時間] = Me.終了時間 rst![座席コード] = Me.座席コード rst![座席番号] = Me.座席番号 rst![性別] = Me.性別 rst![履修] = Me.r.Value rst![ホームページ] = Me.h.Value rst![電子メール] = Me.m.Value rst![レポート作成] = Me.re.Value rst![就職利用] = Me.j.Value rst![その他] = Me.o.Value rst![mo] = Me.mo.Value rst![プリンター] = Me.pri.Value rst![スキャナ] = Me.scan.Value rst![zip] = Me.zip.Value rst![返却] = "1" rst.Update rst.Close Set rst = Nothing Me.入力用テキストボックス = "" Me.学生番号 = "" Me.受付時間 = "" Me.氏名 = "" Me.座席コード = "" Me.座席番号 = "" Me.性別 = "" Me.終了時間 = "" Me.r.Value = False Me.h.Value = False Me.m.Value = False Me.re.Value = False Me.j.Value = False Me.o.Value = False Me.mo.Value = False Me.scan.Value = False Me.pri.Value = False Me.zip.Value = False 入力用テキストボックス.SetFocus End Sub
お礼
長々とアドバイスいただき大変感謝しております。 これからももっと勉強してアドバイスできる立場になれるよう精進します。 本当にありがとうございました。