'-------------------------

Private Sub 上書き修正_Click()

'入力されたデータをテーブルに上書き登録します。

Dim cn As New ADODB.Connection

Dim rs As New ADODB.Recordset

Set cn = CurrentProject.Connection

Dim strmsg As String

Dim mySQL As String

Dim 番号 As String

my番号 = Me.サブフォーム.Form.番号

mySQL = "SELECT * FROM テーブル " & _

　　　　　"WHERE 製造番号= '" & Me.サブフォーム.Form.製造番号 & "' AND " & _

　　　　　"コード='" & Me.サブフォー ム.Form.コード & "' AND " & _

　　　　　"貸出日=#" & Me.サブフォーム.Form.貸出日 & "# ;"

rs.Filter = "番号= '" & my番号 & "'"

rs.Open mySQL, cn, adOpenForwardOnly, adLockOptimistic

  strmsg = MsgBox("検索された1つのレコードに入力されたデータを登録します。" _

  & Chr(13) & "一度登録するとデータは上書きされ、元には戻りません。" _

  & Chr(13) & Chr(13) & "よろしいですか？" _

  & "(No." &サブフォーム! 番号& ")", vbYesNo + vbQuestion, "上書登録")

'上書き登録確認

  If strmsg = vbNo Then

  GoTo Exit_上書き修正_Click

  End If

'上書き登録再確認

  If MsgBox("上書き登録すると、元に戻りません。よろしいですか？",32+4, "上書登録確認") = vbNo Then

  GoTo Exit_上書き修正_Click

  End If

'レコードを上書きする。

  rs![ID] = Me.サブフォーム.Form.ID

  rs![顧客名] = Me.サブフォーム.Form.顧客名

  rs![担当者] = Me.サブフォーム.Form.担当者

  rs.Update

 MsgBox "上書き登録しました。", 32, "上書登録"

 Me.端末貸出返却修正のサブフォーム.Requery

Exit_上書き修正_Click：

  rs.Close: Set rs = Nothing

  cn.Close: Set cn = Nothing

End Sub