Microsoft Access Club Access超初心者対象Forum Access初級者対象Forum Access VBA Tips Forum DAO、ADO、SQL Forum

     

リストへもどる

投稿記事の一括表示

タイトルRuntime の動作について
記事No42753
投稿日: 2016/09/07(Wed) 17:04
投稿者ぬりかべ
OS:windows 7 Pro 32bit
Access Version:2013 Runtime

初めまして。
自端末にて通常版のAccess 2013で簡単なシステムを作成し、他のPCでAccess Runtime2013で動かしており
通常版では動作するが、Runtime環境で動作しない現象が発生してしまい困っています。
<対象の動作>
フォームA上にコンボボックスB、コマンドボタンCを配置。
コマンドボタンCをクリックすると、コンボボックスBの値を元にテーブルDよりデータを持ってきて、
フォームXへ表示させる。
※フォームXは、サブフォームYが含まれていてサブフォームYにはテキストボックス1,テキストボックス2を設定しています

コマンドボタンCをクリックしたときのコード
---------------------------------------------------------------------------------------------
Private Sub コマンドボタンC_Click()

Dim sql As String

If IsNull(Me.コンボボックスB.Value) Then
MsgBox "データを選択してください", vbInformation, ""
Exit Sub
End If

sql = ""
sql = sql & "SELECT "
sql = sql & " テーブルD.F1 AS name, "
sql = sql & " テーブルD.F2 AS code "
sql = sql & "FROM テーブルD "
sql = sql & "WHERE "
sql = sql & " テーブルD.F3E = '" & Forms("フォームA").コンボボックスB.Value & "' "

DoCmd.OpenForm "フォームX"
With Application.Forms("フォームX").Controls("サブフォームY").Form

.RecordSource = sql
.Controls("テキストボックス1").ControlSource = "name"
.Controls("テキストボックス2").ControlSource = "code"

End With

End Sub
----------------------------------------------------------------------------------------------

この動作について、通常版は問題なく動くが、Runtime環境ではボタンはクリックし何かが表示されているように動くが
実際は何も表示されておらず、タスクマネージャから強制終了するしかない状況です。

どこをどのように調査・修正したらよいか全くわからない状況ですので
解決に向けたヒントを頂けるとさいわいです。
宜しくお願いします。

- 以下のフォームから自分の投稿記事を修正・削除することができます -
処理 記事No パスワード

ページの先頭へ 前ページへ戻る