テーブルの上書き保存は

質問

テーブルに連結されていないフォームがあり保存処理をかけていったんテーブルに保存します。
ココまではできました。
次にそのフォームから保存したテーブルを呼び出してフォームに表示させ、データを追加して同じテーブルの同じレコードを上書き保存させるにはどのようにすればいいですか？

初心者なので解説つけてアドバイスお願いします。

回答No.6

ats8181oyaji · ベストアンサー

こんにちは

>dim rst as new adodb.recordset
>set rst = new adodb.recordset って記述は

本来は必要です

行数を減らすため、省略していました
あえて書かなくても、あなたがNo1の回答に対する補足に
記述されているので、すでに理解されているものと思っていました。

失礼しました。

お礼

長々とアドバイスいただき大変感謝しております。
これからももっと勉強してアドバイスできる立場になれるよう精進します。
本当にありがとうございました。

回答No.5

ats8181oyaji

こんにちは

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 って記述は
必要ないですか？

回答No.4

ats8181oyaji

こんにちは

失礼しました。ご指摘の通り　& が抜けております

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

回答No.3

ats8181oyaji

こんにちは

手順としては
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.座席コード "'"

回答No.2

ats8181oyaji

こんにちは

一般的なテーブルメンテナンスの処理には
1.新規登録
2.更新登録
3.削除
があります。
これを一つのフォームで行う場合
今からどれをするよと初めに確定させてから処理するか
キー項目を入力させ、データがあれば更新・削除モード
なければ新規登録モードとさせる、２通りがあります。
まずは、最初に確定させる方法がわかりやすいかと思います。
フォームの上にコマンドボタンを新規と更新・削除の二つ用意して
処理を分岐させれば、いかがでしょうか

では

回答No.1

Te-Sho

フォームの開く時のイベントで表示させたいレコードをクエリや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