' ****************************************************
' 第１会話から第２会話への画面遷移
' ****************************************************
Private Sub btn確認1会話目_Click()

	If Not CheckHead() Then
		Exit Sub
	End If

	If txt処理区分 = "2" Then
		Call DispData
	End If

	Call HeadProtect
	Call BodyEnable

End Sub

' ****************************************************
' データ表示
' ****************************************************
Private Function DispData()

	Dim objRs As Object
	Dim strSql As String
	Dim bEOF As Boolean
	
	' レコードセットオブジェクト作成
	Set objRs = CreateObject("ADODB.Recordset")
	
	' レコードセット取得用 SELECT
	strSql = "select * from 学生マスタ where コード ='" & txtコード.Text & "'"
	
	' レコードセット取得
	objRs.Open strSql, g_objCn
   
	' レコード存在の再チェック
	If objRs.EOF Then
		MsgBox ("データが存在しません")
		objRs.Close
		Set objRs = Nothing
		DispData = False
		Exit Function
	End If
		
	' 名前
	txt名前.Text = objRs.Fields("名前").Value
		
	' 学年
	txt学年.Text = objRs.Fields("学年").Value
		
	' 誕生日
	If objRs.Fields("誕生日").Value <> "" Then
		txt誕生日.Text = Replace(objRs.Fields("誕生日").Value, "/", "")
	End If
		
	' 電話番号
	If objRs.Fields("電話番号").Value <> "" Then
		txt電話番号.Text = objRs.Fields("電話番号").Value
	End If
	
	' レコードセットを閉じる
	objRs.Close
	
	' オブジェクトを開放
	Set objRs = Nothing
	
	' 関数の戻り値
	DispData = True

End Function

If txt処理区分.Text = "2" Then

	' レコード存在の再チェック
	If objRs.EOF Then
		MsgBox ("データが存在しません")
		objRs.Close
		Set objRs = Nothing
		UpdateData = False
		Exit Function
	End If
	
	' キーのセット
	objRs.Fields("コード").Value = txtコード.Text
	
	' 名前
	objRs.Fields("名前").Value = txt名前.Text
	
	' 学年
	objRs.Fields("学年").Value = txt学年.Text
	
	' 誕生日
	If Trim(txt誕生日) = "" Then
		objRs.Fields("誕生日").Value = Null
	Else
		objRs.Fields("誕生日").Value = _
			Left(txt誕生日.Text, 4) & "/" & _
			Mid(txt誕生日.Text, 6, 2) & "/" & _
			Right(txt誕生日.Text, 2)
	End If
	
	' 電話番号
	If Trim(txt電話番号) = "" Then
		objRs.Fields("電話番号").Value = Null
	Else
		objRs.Fields("電話番号").Value = txt電話番号.Text
	End If
	
	' レコードの更新
	objRs.Update

End If