Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

9121 / 9994

←次へ　｜　前へ→


	【4021】Re:テーブルのレコードの更新

Gin_II - 04/12/14(火) 2:57 -


	引用なし

	パスワード

> まず一致したレコードがあるかどうかを調べ、
"事前に"、レコード件数を確認するのなら、DCount 関数だと思いますが、

> レコード更新をして、そしてどちらか一方が間違っていたときにエラーを出したいと
更新されたレコードがなければ、エラーだという考え方でいいのなら、

> Dim strSql As String
Dim dbs As DAO.Database
>
> strSql = "UPDATE [テーブル名] " _
> 　　　　& "SET [社員スキル] = '" & Forms!フォーム名!社員スキル & "' " _
> 　　　　& "WHERE [社員番号] = " & Forms!フォーム名!社員番号
>
> Currentdb.Execute strSql
' ↑修正
Set dbs = Currentdb
dbs.Execute strSql

If dbs.RecordsAffected > 0 Then
　　MsgBox dbs.RecordsAffected & "件、更新しました。"
Else
　　MsgBox "Err:更新レコードがありません。"
End If

のようにすれば大丈夫だと思います。

1,330 hits

▼

【4010】テーブルのレコードの更新 ＲＯＭＩ 04/12/10(金) 15:48