Access 2007 には、新しい連絡先をテーブルに追加するためのフォームがあります。
RecSet.AddNew
RecSet![Code_Personal] = Me.txtCodePersonal.Value
RecSet![FName] = Me.TxtFName.Value
RecSet![LName] = Me.txtLName.Value
RecSet![Tel Natel] = Me.txtNatTel.Value
RecSet![Tel Home] = Me.txtHomeTel.Value
RecSet![Email] = Me.txtEmail.Value
RecSet.Update
これはこれまでのところ機能しており、連絡先は正常に追加されています。しかし、私は2つの問題を抱えています:
- 連絡先が正常に追加されたことをユーザーに知らせるメッセージボックスを表示したい
- 連絡先が正常に追加されなかった場合
- この名前の連絡先は既に存在します
- 別の問題
次に、「連絡先は既に存在します」または「エラーが発生しました」というメッセージ ボックスをそれぞれ表示します。
これを行う私の考えは次のとおりです。
If recSet.Update = true Then
MsgBox "Paolo Bernasconi was successfully added"
Else if RecSet![FName] & RecSet![LName] 'already exist in table
MsgBox "Contact already exists"
Else
MsgBox "An unknown error occured"
このコードが間違っていて、明らかに機能しないことはわかっていますが、これは、私が何を達成しようとしているのかを示すためのものです。事前にご協力いただきありがとうございます。