レコードを移動させても 更新処理が動作しないようにするには？ (ID:124179)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 ・検索ボタン押下時の処理 Private Sub cmdKensaku_Click() 'レコードセットオブジェクト認識 Set prRsSyain = New ADODB.Recordset 'カーソル定義 prRsSyain.CursorLocation = adUseClient 'SQLのクリア prStrSql = "" 'SQLの指定 prStrSql = "SELECT * FROM SYAIN WHERE N_KAISYA_CD = " & prStrKaisyaCd(cboCompanyNm.ListIndex) & " ORDER BY N_SYAIN_NO" 'レコードセットオブジェクトへ接続する prRsSyain.Open prStrSql, prCn, adOpenStatic, adLockOptimistic '会社番号テキストにデータソースを指定 Set txtNo.DataSource = prRsSyain '氏名テキストにデータソースを指定 Set txtNm.DataSource = prRsSyain '年齢テキストにデータソースを指定 Set txtAge.DataSource = prRsSyain '社員番号テキストへ表示 txtNo.DataField = "N_SYAIN_NO" '氏名テキストへ表示 txtNm.DataField = "V_SYAIN_NM" '年齢テキストへ表示 txtAge.DataField = "N_SYAIN_AGE" '移動ボタン制御呼び出し Call chkbtm End Sub ・レコード移動ボタン押下時の処理 Private Sub cmdMove_Click(Index As Integer) With prRsSyain Select Case Index '先頭レコード移動ボタン押下時 Case 0 '先頭レコードへ移動 .MoveFirst '移動ボタン制御呼び出し Call chkbtm '前レコード移動ボタン押下時 Case 1 '前レコードへ移動 .MovePrevious '移動ボタン制御呼び出し Call chkbtm '後ろレコード移動ボタン押下時 Case 2 '後ろレコードへ移動 .MoveNext '移動ボタン制御呼び出し Call chkbtm '最終レコード移動ボタン押下時 Case 3 '最終レコードへ移動 .MoveLast '移動ボタン制御呼び出し Call chkbtm End Select End With End Sub ・更新ボタン押下時の処理 '氏名テキストに表示された「'」を「''」に置き換える txtNm.Text = Replace(txtNm.Text, "'", "''") 'SQLのクリア prStrSql = "" 'SQLの指定 prStrSql = "UPDATE SYAIN SET V_SYAIN_NM = '" & txtNm.Text & "', N_SYAIN_AGE = '" & txtAge.Text & "' WHERE N_SYAIN_NO = " & txtNo.Text & "" '画面の内容で社員情報テーブルを更新 prCn.Execute prStrSql 'レコードセットオブジェクト認識 Set prRsSyain = New ADODB.Recordset 'カーソル定義 prRsSyain.CursorLocation = adUseClient 'SQLのクリア prStrSql = "" 'SQLの指定 prStrSql = "SELECT * FROM SYAIN WHERE N_KAISYA_CD = " & prStrKaisyaCd(cboCompanyNm.ListIndex) & " ORDER BY N_SYAIN_NO" 'レコードセットオブジェクトへ接続する prRsSyain.Open prStrSql, prCn, adOpenStatic, adLockOptimistic '会社番号テキストにデータソースを指定 Set txtNo.DataSource = prRsSyain '氏名テキストにデータソースを指定 Set txtNm.DataSource = prRsSyain '年齢テキストにデータソースを指定 Set txtAge.DataSource = prRsSyain '移動ボタン制御呼び出し Call chkbtm End Sub