- ベストアンサー
VBAエラー！Windows7で保存できない問題の解決方法とは？
- Windows7でVBAコードを実行すると「保存できません」というエラーメッセージが表示されます。しかし、リストボックスのダブルクリックでは正常に動作することから、原因についての心当たりがあります。
- コマンドボタンのコードでは、名前コードを取得し、ADODB.ConnectionとADODB.Recordsetを使用してデータベースに接続します。その後、会員テーブルから該当する会員を検索し、Selectedkaiフィールドの値をTrueに設定し、変更を保存します。
- ダブルクリックのコードも同様に、選択された会員を検索し、Selectedkaiフィールドの値をTrueに設定して変更を保存します。この操作後、リスト会員とリスト印刷会員を更新します。
- snorioo
- お礼率65% (90/137)
- その他MS Office製品
- 回答数1
- ありがとう数1
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
これで今まで問題なかったのでしょうか？ちょっと不思議です。 以下の様にしてみると？ ※バックアップをとってからお試しを。☆は変更点です。 （コマンドボタン） Private Sub コマンド選択_Click() Dim namecode As String namecode = me!リスト会員 '☆ Dim cn As ADODB.Connection '☆ Dim rs As ADODB.Recordset '☆ Set cn = CurrentProject.Connection set rs = new adodb.recordset '☆ rs.Open "MT_会員", cn, adOpenKeyset, adLockOptimistic rs.Find "会員IDkai = '" & namecode & "'" '☆ rs!Selectedkai = True '-1 rs.update '☆ Me!リスト会員.Requery me!リスト印刷会員.Requery rs.Close: Set rs = Nothing cn.Close: Set cn = Nothing End Sub （ダブルクリック） Private Sub リスト会員_DblClick(Cancel As Integer) Dim namecode As String namecode = me!リスト会員 '☆ Dim cn As ADODB.Connection '☆ Dim rs As ADODB.Recordset '☆ Set cn = CurrentProject.Connection set rs = new adodb.recordset '☆ rs.Open "MT_会員", cn, adOpenKeyset, adLockOptimistic rs.Find "会員IDkai = '" & namecode "'" rs!Selectedkai = True '-1 rs.update '☆ Me!リスト会員.Requery me!リスト印刷会員.Requery rs.Close: Set rs = Nothing cn.Close: Set cn = Nothing End Sub とりあえず。ご参考まで。
お礼
ご教授の通り訂正したところ、うまくいきました。ありがとうございました。 おっしゃるとおり、これまで問題が起きなかったのが不思議です。