質問の仕方が悪かったので再度あげさせて頂きます。
上記サイトを参考に削除機能の実装を目指しております。
VBA
1'*************************************************************************************************** 2' ■■■ コントロールイベント ■■■ 3'*************************************************************************************************** 4'* 処理名 :BTN_DEL_Click 5'* 機能 :「削除」ボタンイベント(Click) 6'--------------------------------------------------------------------------------------------------- 7'* 返り値 :(なし) 8'* 引数 :(なし) 9'--------------------------------------------------------------------------------------------------- 10'* 作成日 : 11'* 作成者 : 12'* 更新日 : 13'* 更新者 : 14'* 機能説明: 15'* 注意事項: 16'*************************************************************************************************** 17Private Sub BTN_DEL_Click() 18 19 Dim dbCon As ADODB.Connection ' ADODB.Connection 20 Dim dbCmd As ADODB.Command ' ADODB.Command 21 Dim strBusyoCd As String ' 選択部署コード 22 Dim strYakuCd As String ' 選択役職コード 23 Dim strSQL As String ' SQL文編集WORK 24 Dim blnUpdate As Boolean 25 ' フォーム登録内容チェック 26 If Not FP_CheckForm(strBusyoCd, strYakuCd) Then Exit Sub 27 28 '確認する 29 msg = "このデータを削除しますか?" 30 ret = MsgBox(msg, vbQuestion + vbOKCancel, "") 31 If ret = vbOK Then 32 ' データベースへの接続 33 If Not FP_GetSqlConnection(dbCon) Then 34 Me.Hide 35 Exit Sub 36 End If 37 38 ' 登録するSQL文を作る 39 strSQL = "DELETE MST_HAIZOKU SET" 40 41 ' 実行する 42 dbCon.Execute (Sql) 43 44 MsgBox "削除しました。", vbInformation + vbOKOnly, "データ削除" 45 46 Else 47 MsgBox "処理を中断します" 48 49 End If 50 51 ' データベース接続を閉じる 52 dbCon.Close 53 Set dbCon = Nothing 54 g_blnReturnValue = True 55 Me.Hide 56 57End Sub 58```![コンパイルエラー](e34d189190f4e66b998312551036f538.jpeg) 59 60自分なりに調べこのようなコードを書いて実行をしてみました。 61スクショのようなコンパイルエラーが発生し、MsgBoxも消すことが出来ない状態です。 62 63Msgの変数を定義?してあげればいいというのはわかるのですが、どのようにすればいいのか具体的に理解しておりません。 64 65わかる方いましたらご教授お願いいたします。 66よろしくお願いします。
回答2件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2018/11/12 04:22
2018/11/12 06:14