変数宣言

↓例で、REC変数を同じプロジェクト内の他basファイルで、使用するとコンパイルエラーになります。
原因が解りません。
対策を教えていただけませんか?

Public REC As String

Private Function test() As String
　・
　・
　・
　・
REC = test()
End Function

No.4 ベストアンサー 回答者： nicotinism 回答日時： 2012/09/19 11:56

何をしたいのかサッパリですが

>プロジェクトの他ファイル
の意味も？です。
Visual Basic と一括りにしてもVB6 から.NET ・・・多岐にわたります。
とりあえず、VBAでの話だとして
Private Function ・・はマズイかと。
http://homepage2.nifty.com/sak/w_sak3/doc/sysbrd …
VBAでしたら（他は分かりません！）
標準モジュールにて

Public REC As String

Function test() As String
Dim aryS As Variant
aryS = Array("レバニラ", "焼肉", "野菜炒め")
test = aryS(Int(Rnd * (UBound(aryS) + 1)))
End Function

Sub menu()
REC = test
MsgBox REC
End Sub

のような感じで。
Sub menu() はここにある必要はありません。
適当なフォームのイベントとかにどうぞ。
Sub こまんど_Click()
REC = test
MsgBox REC
・・・

この回答への補足

ありがとうございました。
NGでした。
VB6の質問です。
Public宣言した変数を他の標準ファイルで使用したのです。

補足日時：2012/09/19 13:35

No.3 回答者： nicotinism 回答日時： 2012/09/18 21:35

Private Function test() As String

　・
　・
　・
　・
REC = test()
↑自身の関数 Function test() を呼び出していますので
循環参照の堂々巡りです

この回答への補足

下記のようにしても、プロジェクトの他ファイルでREC関数を使用するエラーになります。
対策を教えていただけませんか?

Public REC As String

Private Function test() As String
　・
　・
　・
　・
End Function

REC = test

補足日時：2012/09/19 10:37

No.2 回答者： n-jun 回答日時： 2012/09/18 20:26

ユーザー定義関数ですから

test = REC

ならわかるんですが。。。

⇒もしかすると的外れな回答になっているかも？

No.1 回答者： osietete4 回答日時： 2012/09/18 19:06

手元にVBがないのでかくにんできないのですが、

Public REC As String　を
DimREC As String
にかえたらうまくいきません？