VBA 削除機能の実装の仕方

Question

Excelでお仕事

質問の仕方が悪かったので再度あげさせて頂きます。
上記サイトを参考に削除機能の実装を目指しております。

'***************************************************************************************************
'   ■■■ コントロールイベント ■■■
'***************************************************************************************************
'* 処理名　：BTN_DEL_Click
'* 機能　　：｢削除｣ボタンイベント(Click)
'---------------------------------------------------------------------------------------------------
'* 返り値　：(なし)
'* 引数　　：(なし)
'---------------------------------------------------------------------------------------------------
'* 作成日　：
'* 作成者　：
'* 更新日　：
'* 更新者　：
'* 機能説明：
'* 注意事項：
'***************************************************************************************************
Private Sub BTN_DEL_Click()

    Dim dbCon As ADODB.Connection                                   ' ADODB.Connection
    Dim dbCmd As ADODB.Command                                      ' ADODB.Command
    Dim strBusyoCd As String                                        ' 選択部署コード
    Dim strYakuCd As String                                         ' 選択役職コード
    Dim strSQL As String                                            ' SQL文編集WORK
    Dim blnUpdate As Boolean
    ' フォーム登録内容チェック
    If Not FP_CheckForm(strBusyoCd, strYakuCd) Then Exit Sub

        '確認する
        msg = "このデータを削除しますか？"
        ret = MsgBox(msg, vbQuestion + vbOKCancel, "")
            If ret = vbOK Then
            ' データベースへの接続
                    If Not FP_GetSqlConnection(dbCon) Then
                        Me.Hide
                        Exit Sub
                    End If
        
                ' 登録するSQL文を作る
                strSQL = "DELETE MST_HAIZOKU SET"
        
                ' 実行する
                dbCon.Execute (Sql)
        
                MsgBox "削除しました。", vbInformation + vbOKOnly, "データ削除"
            
            Else
                MsgBox "処理を中断します"
            
            End If

    ' データベース接続を閉じる
    dbCon.Close
    Set dbCon = Nothing
    g_blnReturnValue = True
    Me.Hide
    
End Sub
```![コンパイルエラー](e34d189190f4e66b998312551036f538.jpeg)

自分なりに調べこのようなコードを書いて実行をしてみました。
スクショのようなコンパイルエラーが発生し、MsgBoxも消すことが出来ない状態です。

Msgの変数を定義？してあげればいいというのはわかるのですが、どのようにすればいいのか具体的に理解しておりません。

わかる方いましたらご教授お願いいたします。
よろしくお願いします。

Answer 1

                strSQL = "DELETE MST_HAIZOKU SET"

                ' 実行する
                dbCon.Execute (Sql)

ここでもエラーがでるでしょう。
Sql という変数も宣言してないですよね。

dbCon.Execute (strSQL)

としないと。

あと、

DELETE MST_HAIZOKU SET

というSQL文もこんな構文はありませんので、Executeするところでエラーになるでしょうね。
レコード削除のSQLは下記を参考にしてください。

【Access】SQLによる削除クエリ | ほそぼそプログラミング日記

また、データベースからレコードを削除したら、エクセルのシートの対応する行を削除する処理も必要になりますね。

参照先のコードを応用するには、質問者さんの現状のスキルでは不足している印象です。

SQLについての学習
VBAについての学習
の両方が必要だと思います。

Comments

[rebell]

ありがとうございます。
動作確認しながら変数を定義していてsqlも無かったので追加しました！

参考サイト見てみます。
やることが山積みですが１つずつやっていきます。。

[hatena19]

strSQLにSQL文を代入して、dbCon.Execute (strSQL) でそのSQLを実行してする
という処理の流れを理解しないと。
いろいろ頑張ってください。

Answer 2

メッセージボックスの表示部分は流用したソースに別途追加したものだと思われますが、
意味も分からずに追加しているのが現状の解決できない原因です。

'メッセージボックスに表示する文言を変数に代入
msg = "このデータを削除しますか？"
'メッセージボックスを表示し結果を`ret`に受ける
ret = MsgBox(msg, vbQuestion + vbOKCancel, "")

上記で使用されている変数はMSGで、Option Explicitが指定されていて、変数の宣言を強制されるのでエラーになります。

Dim MSG
をそのイベントプロシージャに追加して下さい。

ret = MsgBox("このデータを削除しますか？", vbQuestion + vbOKCancel, "")

上記のように変更すると、MSGという変数は使用しなくて済むので、変数の宣言は不要です。

Comments

[rebell]

ありがとうございます。
使いたい関数はDimで定義してあげないといけないんですね。
追加して動作を確認してみます！

[sazi]

関数ではなく変数です。

[rebell]

すいません、勘違いしておりました。