CBool関数 : Access

Access CBool関数はデータ型をブール型に変換します。

BackHomeへ BackAccess関数メニューへ



■ 構文
CBool(expression)

expression :(必須) 変換する文字列か数式を指定します。

■ 戻り値
ブール型が返ります。
変換できない場合は、エラーが発生します。

■ Access実行画面

文字列をブール型に変換した結果
文字列 ”1” を変換すると True が返りました。
String型1をBool型変換ソフト

文字列 ”0” を変換すると False が返りました。
String型0をBool型変換ソフト

文字列 ”あいう” を変換するとエラーになりました。
String型あいうをBool型変換ソフト

■ Access実行画面 整数型をブール型に変換した結果
整数型 ”1” を変換すると True が返りました。
Integer型1をBool型変換ソフト

整数型 ”0” を変換すると False が返りました。
Integer型0をBool型変換ソフト

整数型 ”987” を変換すると True が返りました。
Integer型987をBool型変換ソフト


■ Access実行画面 長整数型をブール型に変換した結果
長整数型 ”1” を変換すると True が返りました。
Long型1をBool型変換ソフト

長整数型 ”0” を変換すると False が返りました。
Long型0をBool型変換ソフト

長整数型 ”-987610” を変換すると True が返りました。
Long型-987610をBool型変換ソフト

■ Access VBA 実行コード

Option Compare Database
'文字型をBool型に変換
Private Sub コマンド6_Click()
    Dim b1 As Boolean
    Dim s1 As String
    If IsNull(Me!テキスト0) Then
        MsgBox "変換するデータを入力してください。"
        Me!テキスト0.SetFocus
        Exit Sub
    End If
On Error GoTo ErrExit
    s1 = Me!テキスト0
    b1 = CBool(s1)
    MsgBox "変換結果: " & b1
    Exit Sub
ErrExit:
    MsgBox "変換時エラーが発生しました。 " & vbCrLf & Err.Description
End Sub
'Integer型をBool型に変換
Private Sub コマンド7_Click()
    Dim b1 As Boolean
    Dim n1 As Integer
    If IsNull(Me!テキスト2) Then
        MsgBox "変換するデータを入力してください。"
        Me!テキスト2.SetFocus
        Exit Sub
    End If
On Error GoTo ErrExit
    n1 = Me!テキスト2
    b1 = CBool(n1)
    MsgBox "変換結果: " & b1
    Exit Sub
ErrExit:
    MsgBox "変換時エラーが発生しました。 " & vbCrLf & Err.Description
End Sub
'Long型をBool型に変換
Private Sub コマンド8_Click()
    Dim b1 As Boolean
    Dim n1 As Long
    If IsNull(Me!テキスト4) Then
        MsgBox "変換するデータを入力してください。"
        Me!テキスト4.SetFocus
        Exit Sub
    End If
On Error GoTo ErrExit
    n1 = Me!テキスト4
    b1 = CBool(n1)
    MsgBox "変換結果: " & b1
    Exit Sub
ErrExit:
    MsgBox "変換時エラーが発生しました。 " & vbCrLf & Err.Description
End Sub



BackHomeへ BackAccess関数メニューへ

Copyright(C) FeedSoft