質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

ただいまの
回答率

90.32%

  • Access

    472questions

    Accessはマイクロソフトによるリレーショナルデータベース管理システムです。オブジェクト指向のアプリケーション作成に対応しており、テーブルや編集をはじめ、クエリ生成、入力フォーム作成、レポート作成など一通りの機能を備えています。

Access2016での配列の判断について

解決済

回答 1

投稿

  • 評価
  • クリップ 0
  • VIEW 488

wavekidsjp

score 3

こんにちは、宜しくお願いいたします。
<環境>
Windows10(64bit)
Access2016

でVBAプログラムを組んでいるのですが、うまくいきません。

0000001_000
0000002_000
0000003_000

のようなテーブルが存在するのですが、"_"より前の文字列をSQLで拾ってこようと考えております。しかし、以下のようなコードを動かすと、「インデックスが有効ではありません」とエラーを吐いてデバッガーが立ち上がってしまいます。

恐れ入りますが宜しくお願い申し上げます。

    '先ず、CurrentDbに接続する(読み書き可)
    Dim db As dao.Database
    Dim rs As Recordset
    Dim table As TableDef
    Dim sql As String


    sql = "SELECT uid from hoge;"

    'SELECT文でuidカラムのみを抽出→レコードセットに入れ込む
    Set db = CurrentDb()
    Set rs = db.OpenRecordset(sql)

    'レコードセットをloopし、"_"をキーにして文字列をsplitする
    Do Until rs.EOF
        Dim aryString As Variant
        aryString = Split("_")
        If IsArray(aryString) And aryString(1) = "_" Then
            Debug.Print aryString(0)
        End If

        Set aryString = Nothing
        rs.MoveNext
    Loop

    Debug.Print "Done."
  • 気になる質問をクリップする

    クリップした質問は、後からいつでもマイページで確認できます。

    またクリップした質問に回答があった際、通知やメールを受け取ることができます。

    クリップを取り消します

  • 良い質問の評価を上げる

    以下のような質問は評価を上げましょう

    • 質問内容が明確
    • 自分も答えを知りたい
    • 質問者以外のユーザにも役立つ

    評価が高い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。

    質問の評価を上げたことを取り消します

  • 評価を下げられる数の上限に達しました

    評価を下げることができません

    • 1日5回まで評価を下げられます
    • 1日に1ユーザに対して2回まで評価を下げられます

    質問の評価を下げる

    teratailでは下記のような質問を「具体的に困っていることがない質問」、「サイトポリシーに違反する質問」と定義し、推奨していません。

    • プログラミングに関係のない質問
    • やってほしいことだけを記載した丸投げの質問
    • 問題・課題が含まれていない質問
    • 意図的に内容が抹消された質問
    • 広告と受け取られるような投稿

    評価が下がると、TOPページの「アクティブ」「注目」タブのフィードに表示されにくくなります。

    質問の評価を下げたことを取り消します

    この機能は開放されていません

    評価を下げる条件を満たしてません

    評価を下げる理由を選択してください

    詳細な説明はこちら

    上記に当てはまらず、質問内容が明確になっていない質問には「情報の追加・修正依頼」機能からコメントをしてください。

    質問の評価を下げる機能の利用条件

    この機能を利用するためには、以下の事項を行う必要があります。

回答 1

checkベストアンサー

0

間違い1

aryString = Split("_")

Split関数は、Split(対象文字列,区切り文字) という仕様です。
第一引数でフィールドの値を参照するように。
正解コード例

aryString = Split(rs!uid.Value, "_")

間違い2

If IsArray(aryString) And aryString(1) = "_" Then

aryString = Split("0000001_000", "_")

とした場合、

aryString(0) は "0000001", aryString(1) は "000" になる。
aryString(1) = "_" になることはない。

また、Split関数の戻り値は必ず配列になるので、IsArray(aryString)は不要。

正解コード例

If UBound(aryString)>=0 Then


UBoundで配列の要素数をチェック
要素数0の場合は、UBoundの戻り値は-1になる。

補足

もし、uid に Null値がある場合は、Split(rs!uid.Value, "_")
でエラーになるのでそれの対処も必要。

対処例

aryString = Split(Nz(rs!uid.Value), "_")

投稿

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

  • 2017/11/15 12:06

    色々とご指摘ありがとうございました。内容理解染ました。

    キャンセル

15分調べてもわからないことは、teratailで質問しよう!

  • ただいまの回答率 90.32%
  • 質問をまとめることで、思考を整理して素早く解決
  • テンプレート機能で、簡単に質問をまとめられる

同じタグがついた質問を見る

  • Access

    472questions

    Accessはマイクロソフトによるリレーショナルデータベース管理システムです。オブジェクト指向のアプリケーション作成に対応しており、テーブルや編集をはじめ、クエリ生成、入力フォーム作成、レポート作成など一通りの機能を備えています。