グリッド上のチェックボックスONデータを更新・・・ (ID:115750)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

こんばんは  よろしこお願いします。
グリッド上にチェックボックスがあり、
明細表示した後、チェックＯＮのデータに対して更新処理を行います。
For〜Nextでは明細上にチェックONのデータがいくつあるかカウントするための物です。変数「ｌ」にチェックONのカウント数が格納されます。
そこで今、困っていることゎ、
If Me.pTblSyousai.Rows(i).Item("チェック") = True Then
でエラー「演算子が型'DBNull'および型'Boolean'に対して有効ではありません。」
というエラーが出ちゃてます。これがどこで引っかかってるのかわからないんです。。。
また、何故かこのエラーが出ないときもあります。謎・・・
うまく説明できず、言葉足らずでごめんなさい。
こんな初心者のあたしに何かアドバイスしていただけたらありがたいです。
よろしくお願いします（＾∀＾）/

*************************************************
    Public Sub Update()
        Dim i As Integer
        Dim l As Integer
        Uriage.BeginTrans()
        Try
            If ObjCommonCls.NtoZ(UriageNo) = 0 Then
                l = 0
                For i = 0 To pTblSyousai.Rows.Count - 1
                    If Me.pTblSyousai.Rows(i).Item("チェック") = True Then
                        l = l + 1
                    End If
                Next
                If l = 0 Then
                    MsgBox("対象データが存在しません", MsgBoxStyle.Information, gstrSystemName)
                    Exit Sub
                Else
                    Call Update_Data()
                    Call Data_Clear()
                    MsgBox("処理が終了しました", MsgBoxStyle.Information, gstrSystemName)

End If
            End If
        Catch
            MsgBox(Err.Description, MsgBoxStyle.Exclamation, gstrSystemName)
            
            Uriage.RollbackTrans()
        Finally
            Uriage.CommitTrans()
        End Try
    End Sub

←解決時は質問者本人がここをチェックしてください。

戻る