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

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

新規登録して質問してみよう
ただいま回答率
85.50%
Access

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

Q&A

解決済

1回答

391閲覧

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

wavekidsjp

総合スコア11

Access

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

0グッド

0クリップ

投稿2017/11/13 06:33

こんにちは、宜しくお願いいたします。
<環境>
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."

気になる質問をクリップする

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

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

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

guest

回答1

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/13 07:32

hatena19

総合スコア33620

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

wavekidsjp

2017/11/15 03:06

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

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

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

ただいまの回答率
85.50%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問