■ 現在のこのページの役立ち度:
表示されない場合こちらのリンクからもご覧になれます。
■ このページの役立ち度を評価する:
役立ち度を評価してください。
(1(左):あまり役立たない - 5(右):大変役立った):
■ ページの共有:
[ サイト内検索 ]
カスタム検索
#7395-0VIMさんとFDHさんへ匿名73952000-02-07(月) 17:07
     #7398-0RE#7395:VIMさんとFDHさんへFDH2000-02-07(月) 17:54
#7395-0
VIMさんとFDHさんへ
 VBAはアクセス97です。ちなみにコードはこんな感じなんですが
 「SQLstr」でごちゃごちゃと処理してそれが終わると必ず「On Error GoTo DBErr」にいくんです。

    入力区分 = 削除
    登録flg = True
    If Not Me.NewRecord Then
        MsgStr = "削除しますか?" & vbCrLf & vbCrLf
        MsgStr = MsgStr & "    「は  い」...削除する" & vbCrLf & vbCrLf
        MsgStr = MsgStr & "    「いいえ」...削除しない"
        If gMsg_YesNoN(MsgStr, "削除確認") = vbNo Then GoTo Retire
        Me![承認番号] = C承認番号
        Me![支払年月日] = C支払年月日
        SQLstr = チェックリストSQL
        
On Error GoTo DBErr
        DoCmd.Hourglass True
        DoCmd.SetWarnings False
        Set WS = DBEngine.Workspaces(0)
        WS.BeginTrans
            DoCmd.RunCommand acCmdDeleteRecord
            Set Dbs = CurrentDb
                DoCmd.RunSQL (SQLstr)
            Set Dbs = Nothing
        WS.CommitTrans
On Error Resume Next
        DoCmd.SetWarnings True
        DoCmd.Hourglass False
        Call cmd新規_Click
    Else
        Call cmd取消_Click
    End If
    txt承認番号_年.SetFocus
    Exit Sub

DBErr:
    WS.Rollback
    WS.Close
    DoCmd.SetWarnings True
    DoCmd.Hourglass False
    登録flg = False
    MsgStr = "削除時にエラーが発生しました。削除処理は無効になります。" & vbCrLf
    gMsg_OkOnly MsgStr, "削除エラー"
    On Error GoTo 0
    
Retire:
    登録flg = False
    
End Sub
#7398-0
RE#7395:VIMさんとFDHさんへ
ACCESSのVBAでエラーが出てしまうのなら、とりあえず On Error GoToをはずすか、
エラー処理で、MsgBox + Err.Description を設定して実行してみて下さい。
恐らく"モジュール内では***は実行できません。"というようなエラー、もしくは普通の
コーディングエラーが出て止まると思います。

>     If Not Me.NewRecord Then

私はここでエラーが出ていると思うのですが...。
このページと関連する記事:
#17649-0On Errorステートメントについて2001-09-07(金) 20:40
#20799-0フォームの起動について2001-05-10(木) 10:23
#2235-0ありがとうございます。1999-10-12(火) 12:00
#12609-0トラップがかからない2000-01-04(火) 13:48
#1615-2コモンダイアログを使ってのフォルダ削除2002-07-12(金) 01:23
#34109-0次の画面を表示するときの初期表示でOn Errorでおちてしまう。2000-11-25(土) 23:35
#16306-0SQLのことで2000-02-17(木) 09:59
#16635-0SQLのUPDATEの使い方について2000-02-22(火) 18:59
#73-1Addformで作成したフォームにアクセスするには?2001-05-24(木) 21:31
#45384-0If文にて処理を終了させる方法2001-07-26(木) 13:27
お探しの情報は見つかりましたか?お困りの問題は解決しましたか?
サイト内検索, 似た記事検索で見つからなくてもあきらめずに掲示板で質問してみましょう。
VB初心者友の会があなたのお役に立てれば幸いです。また、本ページの投稿者の方々にこの場を借りて感謝致します。
本ページは過去ログを集めて自動構成しています。よろしければこのページに関するフィードバックをお願いします。
(※ 構成の誤り、広告等の不適切な記事、リンク切れ、読めないページの報告など)