2017-08-09 25 views
0

サブフォームレコード名をクリックすることで特定のフォームを開く必要があります。サブフォームの名前は、IDと名前を列として持つコンボボックスとして表示されます。Access- where句を含むフォームを開く

Private Sub ID_Prodotto_DblClick(Cancel As Integer) 
Dim Id As Integer 
Id = Me.ID_Prodotto.Column.Value 
DoCmd.OpenForm "Prodotto", , , "ID_Prodotto = " & Id 
End Sub 

をしかし、私は、レコードをクリックするとアクセスは、手動でIDフィールド値を挿入するために私を必要とします。

私はこのようでした。どこが間違っていますか?

+0

は、この情報を使用してエラーを複製することはできません。フォームはIDをパラメータとして必要とするクエリに基づいていますか?あなたの質問をするようにしてください[mcve](https://stackoverflow.com/help/mcve) –

+0

Me.ID_Prodottoを試してみてください。 debug.print IDを追加して、設定されている値を確認します。 ID_Prodottoは開いているフォームにありますか? – Minty

+0

テーブルを参照し、レコードごとにデータレコードを再開するフォームとしてアクセスすることで、開きたいフォームをウィザードで生成します。テーブルにはもちろん、ID_Prodottoパラメータとフォームにも含まれています。実際、私がアクセスする際に手動で値を書き込むと、すべて正常に動作します。 – nearchos

答えて

0

読み込みする必要があります。

Id = Me!ID_Prodotto.Value 

をか、あなたは列番号から値を使用したい場合は、N(0が最初である):

Id = Me!ID_Prodotto.Column(n) 
+0

全く動作しません。私に実行時エラー2465を与えます。 – nearchos

+0

おそらく、ID_Prodottoコントロールまたはフィールドがありません。 – Gustav

+0

ID_Prodottoに角括弧を追加して解決しました。 – nearchos

関連する問題