• はてなアカウントでログイン
• 無料ユーザー登録

ベストアンサー

• kaoato2019/12/01 04:14:50

  満足1000pt

  ■
  ご存じだとは思うのですが、
  
  VBAの開発環境では、
  
  ・ステップ実行
  ・ブレイクポイントの設定
  
  ができるはずですので、
  
  実際に、ステップ実行させたら、動作がよくわかるのでは？と思います。
  
  ■
  
  ＞If Not AnimalReportNumberSQL(makeSQL) Then
  
  
  この１行を実行する場合は、
  
  
  まず　AnimalReportNumberSQL(makeSQL)　部分が実行されるはずです。
  
  
  AnimalReportNumberSQL（）は、ユーザー定義関数だと思われますので、
  
  当然、
  
  Public Function AnimalReportNumberSQL(ByRef makeSQL As String) As Boolean
  
  に飛びます。
  
  で、その関数内で処理が終わったら、
  
  元に戻ってきて、
  
  AnimalReportNumberSQL(makeSQL)の返り値（戻り値）に　NOT演算したものを評価して
  
  
  真なら、 Exit Function
  義なら、End Ifの次の行に飛びます。

  スター

  • 

    9件のコメントを見る

  • moon-fondu 2019/12/03 20:00:46

    はい、F8キーでステップ実行はしていたのですが…よくわかりませんでした。
    kaoatoさんとrscさんのご回答で、関数に飛んでいるというのが判りました。
    
    ただ度々すみません、
    
    If Not AnimalReportNumberSQL(makeSQL) Then
    Exit Function
    End If
    
    ですが、判定分として成り立っているのでしょうか。
    makeSQLは、Falseの時に長いSQL文、Trueの時は…特に「Dim makeSQL As String」という変数宣言以外、値の格納などはしていないので、null値が入っているかと思います。
    
    makeSQLの真偽判定を行うAnimalReportNumberSQLという関数ですが、SQL文やnull値の真偽というのは何なのでしょうか…。
    makeSQLがどういう値の時に真、偽なのか、まだわかりかねるところがあります。
    お手数ですが再度、お手すきの時や気が向いた時等に、コメント等いただけますと幸いです。
    よろしくお願いします。

    スター

  • kaoato 2019/12/03 20:46:25

    ■
    Function ステートメント (VBA) | Microsoft Docs https://docs.microsoft.com/ja-jp/office/vba/language/reference/user-interface-help/function-statement
    
    
    VBAのFunctionの戻り値は、Function名に値を代入することで返却します。
    
    
    ■
    Public Function AnimalReportNumberSQL(ByRef makeSQL As String) As Boolean
    AnimalReportNumberSQL = False
    …
    makeSQL=（SQL文のようなものがが10行ぐらい出てきます）
    …
    AnimalReportNumberSQL = True
    Exit Function
    
    
    AnimalReportNumberSQLの戻り値は、上記の関数の処理次第です。
    
    
    仮に、処理の最後までプログラムが走って、
    
    「AnimalReportNumberSQL = True」
    
    が実行されてるのなら、
    
    戻り値は、Trueです。
    
    
    ■
    If Not AnimalReportNumberSQL(makeSQL) Then
    
    
    AnimalReportNumberSQL(makeSQL)の処理が走って、戻り値が、Tureに確定すれば
    
    
    If Not True Then
    
    と同じ。

    スター

  • moon-fondu 2019/12/09 22:09:40

    ありがとうございます。そうなんですね。
    makeSQLが戻り値だと思っているのですが…"()"内にある、という理由で、そう判断しております。
    ただAnimalReportNumberSQL = Trueの時は、makeSQLにはSQL文等、何も入ってない…ということは、
    
    AnimalReportNumberSQL(makeSQL)
    ↓
    AnimalReportNumberSQL(null)
    
    で、AnimalReportNumberSQLの戻り値はnullというのは誤解でしょうか…。
    もう1回、一行ずつ実行して、イミディエイトウインドウでmakeSQLとAnimalReportNumberSQLの値を追ってみます。

    スター

  • kaoato 2019/12/09 23:29:19

    ＞makeSQLが戻り値だと思っているのですが
    
    「ByRef makeSQL」で、参照渡しになってるが、それは、関数の戻り値という意味ではない。
    
    
    ■
    ＞AnimalReportNumberSQL(null)
    ＞で、AnimalReportNumberSQLの戻り値はnullというのは誤解でしょうか…。
    
    
    それは、Public Function AnimalReportNumberSQL()の処理の内容次第だと思う。
    
    
    ■
    簡単なプログラムを組んで動作確認してみればよいかと思う。
    
    Public Function FncTest(ByRef aa As String) As Boolean
    FncTest = False
    aa = "123456";
    End Function
    
    上記関数を作って、
    
    
    aa= "xxx"
    bb = FncTest(aa)
    
    Debug.Print aa
    Debug.Print bb
    
    ===
    結果
    
    aa => 123456
    bb => False
    
    ===
    
    「ByRef aa」は、参照渡しだけど、関数の戻り値とは別。
    
    if Not FncTest(aa) Then
    MsgBox "ようこそ！"
    End If

    スター

  • kaoato 2019/12/09 23:30:24

    引数の値渡しと参照渡し - Visual Basic | Microsoft Docs https://docs.microsoft.com/ja-jp/dotnet/visual-basic/programming-guide/language-features/procedures/passing-arguments-by-value-and-by-reference

    スター

  • kaoato 2019/12/09 23:34:01

    AnimalReportNumberSQL(null)
    
    参照渡しのところに、nullを渡しても大丈夫なように
    AnimalReportNumberSQLは作られてるのか？逆に気になる。
    
    
    「ByRef makeSQL As String」
    なので、
    
    SQLの文字列？は、makeSQL で返却して、
    AnimalReportNumberSQLの戻り値で、成功・失敗を判断させてるとか
    そういう構造の可能性とかも考えられる。

    スター

  • moon-fondu 2019/12/10 18:23:38

    ありがとうございます、サンプルプログラムまでいただきまして、助かります！
    ぜひ実践させていただきます♪

    スター

  • moon-fondu 2019/12/10 18:28:42

    ちなみに、いただいたサンプルプログラムなのですが。
    Accessの場合、Excel VBAで標準モジュールで実行するみたいに。
    フォームとかフォームのボタンとかをクリックしたときのイベントプロシージャとかでなくても。
    
    上記プログラムだけの実行は、できますでしょうか？
    その場合、Accessのどの画面から稼働させればよいのでしょうか…度々すみません。
    質問は締め切ってしまいましたが、もし気が向きましたらご助言いただけますと幸いです。
    よろしくお願い致します<m(__)m>

    スター

  • kaoato 2019/12/10 18:49:46

    AutoExec マクロは、単に AutoExec という名前が付けられたマクロです。 データベースの起動時、Access で他のマクロや VBA コードが実行される前に、AutoExec マクロが実行されます。

    
    

    データベースを開いたときに実行されるマクロを作成する - Access
    https://support.office.com/ja-jp/article/%E3%83%87%E3%83%BC%E3%82%BF%E3%83%99%E3%83%BC%E3%82%B9%E3%82%92%E9%96%8B%E3%81%84%E3%81%9F%E3%81%A8%E3%81%8D%E3%81%AB%E5%AE%9F%E8%A1%8C%E3%81%95%E3%82%8C%E3%82%8B%E3%83%9E%E3%82%AF%E3%83%AD%E3%82%92%E4%BD%9C%E6%88%90%E3%81%99%E3%82%8B-98ba1508-dcc6-4e0f-9698-a4755e548124
    
    
    Public Function FncTest(ByRef aa As String) As Boolean
    FncTest = False
    aa = "123456"
    End Function
    
    Public Function Main() As Boolean
    aa= "xxx"
    bb = FncTest(aa)
    
    Debug.Print aa
    Debug.Print bb
    
    End Function
    
    AutoExec マクロを作成して、
    そのマクロで、Main()が実行されるように設定すれば
    どうでしょうか？

    スター

その他の回答

• moon-fondu

  2019/11/29 19:56:20

  この動きが全く分かりません…なぜ（1）のIf Not文から（2）に飛ぶのでしょうか。（1）で条件を満たさない、If Not（でなければ）であれば、If Not文の中、（1）の「Exit Fuction」に進むか。

  もしくはIf Not（でなければ）を満たさないのであれば、（1）のEnd Ifに進むのが、コード通りではないでしょうか。

  （1）から（2）に飛ぶ理由をご説明いただけないでしょうか…よろしくお願い致します。

• rsc2019/11/29 21:46:12

  満足1000pt

  　「If Not (通過条件) Then Exit Function」構文では、通過条件を満たさない(Falseの)とき、処理を中止して、Iｆ文のあるところを抜けるようになっています。
  　ここでは、通過条件はAnimalReportNumberSQL()になっていて、Iｆ文中の条件を評価するときに、この関数に飛ばしています。
  　この関数は、返値が、Booleanになっていますが、この関数の真の目的は、参照型変数makeSQLを返すことです。これに成功したら、Trueで下に処理を続け,失敗したらFalseで処理を中止しようとしています。

  スター

  • 

    4件のコメントを見る

  • moon-fondu 2019/12/03 19:59:27

    そうだったんですね。
    確かに「AnimalReportNumberSQL」は共通してますね！
    AnimalReportNumberSQLが関数だから、その関数を定義している箇所に飛ぶのは、理解できます！！
    ByRefは値渡しではなく参照渡しですよね…。
    
    すみません、Trueの時に、
    
    AnimalReportNumberSQL = True
    Exit Function
    
    とありますので、処理を中止するのはTrueの時ではないでしょうか？
    この辺りもややこしく感じました…なぜかFalseの方の時に、実行したいSQL文が並んでいるというのも…。

    スター

  • rsc 2019/12/03 23:02:39

    　通過条件の前にNotがあるのをお忘れなく。Trueを返したときは、Not True = False　でExit Function しません。すなわち、処理を中止しません。

    スター

  • rsc 2019/12/09 15:00:19

    はじめに、Falseを設定していて、失敗して途中で抜けたら、そのまま、Falseを返して、成功したら、最後に、Trueに設定し直して出ているのではないでしょうか。

    スター

  • moon-fondu 2019/12/09 22:08:56

    Notがありました！つまりfalseでなければ、exit functionに行くのですね。
    最後のTrue設定がAnimalReportNumberSQL = Falseの時のNot False、Trueというわけですね。
    ありがとうございます。何となく府に堕ちました(^^;)

    スター

この質問へのコメント

質問の情報

登録日時

2019-11-29 19:55:57

終了日時

2019-12-10 18:24:51

回答条件

1人10回まで

この質問のカテゴリ

• コンピュータ
• 学習・教育

この質問に含まれるキーワード

人気の質問

• 度々すみません。 私は以前から大学入試・成績など教育関連のネガティブな夢を見ていましたが、ここ最近そ…hayakushinene318時間前
• 親族（実家）の犬が無駄吠えをしています。朝方に一時間くらい吠えているらしい。昼にも一時間くらい吠え続…匿名質問者2212日前
• 学歴詐称ではなくて、貴族称号詐称について伺います。イボンヌの香りという映画で、ロシアの伯爵を詐称して…匿名質問者1日前
• アスペルガー精神3級会社員男性(34歳独身)です。 元々眠りが浅いのに最近尚更深刻な夢や深く考え過ぎる夢を…hayakushinene12日前
• いつもお世話になっています。 自分、インセル予備軍かもしれません。 街中でカップルや夫婦等見ると羨まし…hayakushinene12時間前

メニュー

• 質問一覧
• カテゴリ一覧
• 無料ユーザー登録
• 人力検索はてなトップ

PC版

• お問い合わせ
• ヘルプ
• お知らせ
• はてなトップ