Access VBA UBound関数 エラー

Question

前提・実現したいこと

AccessのVBAで、UBound関数を使用し、2次元配列の縦方向の部屋数がいくつあるか調べる処理を作成していてエラーメッセージが発動しました。
２次元配列の（○,△）の○部分が空の場合（配列に一切データがない）は、○の部分を０とし、○の部分が０以上の場合（配列に１件以上データがある場合）は、配列の部屋数を取得したいです。

発生している問題・エラーメッセージ

配列の(0,0)が空の場合(配列にデータが一切格納されていない場合)、UBoundでインデックスエラーとなってしまいます。

実行時エラー'9'
インデックスが有効範囲にありません。

該当のソースコード

Int = Ubound(Hairetsu,1)

Answer 1

自身で調べる努力は怠らない方が良いですよ。
より良い答えが見つかる事だってありますからね。

以下参考
VBAで配列・動的配列の初期化をチェックする
VBAの動的配列で要素を宣言する前の状態をチェックする方法