Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1061 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【8933】フォーム、レポートから、ユーザー定義型の関数を参照する方法 bin 07/1/4(木) 13:54 発言[未読]
【8950】Re:フォーム、レポートから、ユーザー定義型... 小僧 07/1/9(火) 10:54 発言[未読]
【8957】Re:フォーム、レポートから、ユーザー定義型... bin 07/1/10(水) 14:41 お礼[未読]
【8933】フォーム、レポートから、ユーザー定義型...
発言  bin  - 07/1/4(木) 13:54 -
引用なし
パスワード
   ユーザー定義型を返す関数を、レポートから参照できなくて困っています。
具体的には、以下の通り、ユーザー定義型を作成し、
Public Type type1
a As Double
b As Double
End Type
その後、以下のような関数を作成します。
Public Function test(p1, p2) As type1
With test
.a = p1 + p2
.b = p1 - p2
End With
End Function

これで、レポートのテキストボックスコントロールのコントロールソースに
=test(10,6).a
と設定すると、access自体が「落ちて」しまいます。

使い方に誤りがあるのでしょうか?
どなたかご教示いただけますと幸いです。
【8950】Re:フォーム、レポートから、ユーザー定義...
発言  小僧  - 07/1/9(火) 10:54 -
引用なし
パスワード
   ▼bin さん：
こんにちは。

>これで、レポートのテキストボックスコントロールのコントロールソースに
>=test(10,6).a
>と設定すると、access自体が「落ちて」しまいます。

こちらでも再現しました。(Access2003 SP2)


代替案と言う訳ではないのですが、
コントロールソースを空白にして
フォーム(またはレポート)の開く際のイベントに

Private Sub Form_Load()
　　Me.テキスト名.ControlSource = "=" & test(10, 4).a
End Sub

の様にすると、とりあえずは回避できるようですが…。
【8957】Re:フォーム、レポートから、ユーザー定義...
お礼  bin  - 07/1/10(水) 14:41 -
引用なし
パスワード
   ▼小僧 さん：
返信ありがとうございます。

>フォーム(またはレポート)の開く際のイベントに
>
>Private Sub Form_Load()
>　　Me.テキスト名.ControlSource = "=" & test(10, 4).a
>End Sub
>
>の様にすると、とりあえずは回避できるようですが…。

ご提案の方法で、とりあえずは回避できました。ありがとうございました。

これはやはり、accessのバグなんでしょうかねぇ。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1061 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
1080763
(SS)C-BOARD v3.8 is Free