人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

Access VBA で質問をさせてください。以下のようなものを作成したのですが、戻り値が帰ってきていないようなのですが、どう記述すればいかわかりましたら教えていただきたいと思います。

以下はフォームを作成し、テキストフィールドでサイズ1と係数という名前であります。サイズ1に数値を入れると、その数値に応じてFunction hyokaから、1や2などの評価数字を戻り値として設定し、サイズ1用のsize_hといった変数に入れておきたいと思っているのですが、以下のように記述し、最後にsize_hに対して、MsgBoxを入れても何も数字が入っていない状態になってしまいます。


Private Sub 係数_GotFocus()
Dim size1 As Long
size1 = サイズ1.Value
size1_h = hyoka(size1)
Msgbox(size1_h)

End Sub

Function hyoka(num As Long) As Integer
If num > 0 And num <= 10 Then
1
ElseIf num > 10 And num <= 20 Then
2
End If
End Function

●質問者: HAYA
●カテゴリ:ビジネス・経営 コンピュータ
✍キーワード:access AS sub VBA サイズ
○ 状態 :終了
└ 回答数 : 2/3件

▽最新の回答へ

1 ● たけじん
●35ポイント

関数hyoka()に数値が入ってません。

Function hyoka(num As Long) As Integer

If num > 0 And num <= 10 Then

hyoka=1

ElseIf num > 10 And num <= 20 Then

hyoka=2

End If

End Function


http://q.hatena.ne.jp

◎質問者からの返答

ありがとうございます。…使い方を勘違いしていたみたいです。無事数値が出てきました。ありがとうございます。助かりました。


2 ● ふるるP
●35ポイント

>Function hyoka(num As Long) As Integer

>If num > 0 And num <= 10 Then

>1

>ElseIf num > 10 And num <= 20 Then

>2

>End If

>End Function

1とか2とかの数値だけの行だと、コンパイルは通るけど、行番号の割り当てだけで処理がないですね。次のようにするといいでしょう。

Function hyoka(num As Long) As Integer

If num > 0 And num <= 10 Then

hyoka=1

ElseIf num > 10 And num <= 20 Then

hyoka=2

End If

End Function

Functionの場合、戻り値を設定するには、

関数名=○○

のようにする必要があります。

URLはダミーです。

http://Answer.url

◎質問者からの返答

Functionの場合、戻り値を設定するには…の部分そうなんですね。ありがとうございます。助かりましたありがとうございます。

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ