2017-08-24 4 views
0

アクセス時に、ナビゲーションサブフォームを作成しようとしています。しかし、私の現在のコードは1つの主キーでのみ動作します。誰もが主キーが2つのフィールドで構成されているときに動作するようにコードを変更するhawを知っていますか?2つの主キーを使用してAccessでサブフォームをfromにリンクする方法

私の現在のコードは以下の通りです。

Dim rs As DAO.Recordset 

Set rs = Me.Parent.RecordsetClone 

rs.FindFirst "[Fist Primary key]= " & Me![first primary key].Value & "" 

If rs.NoMatch = False Then 
    Me.Parent.Bookmark = rs.Bookmark 
End If 

Set rs = Nothing 

答えて

0

だけ

Dim rs As DAO.Recordset 

Set rs = Me.Parent.RecordsetClone 

rs.FindFirst "[Fist Primary key]= " & Me![first primary key].Value & " AND [Second Primary key]= " & Me![second primary key].Value 

If rs.NoMatch = False Then 
    Me.Parent.Bookmark = rs.Bookmark 
End If 

Set rs = Nothing 
+0

ANDステートメントを使用し、私はFindFirstのライン – Everton

+0

編集したバージョンを試してみてくださいに不足しているオペレータのエラーを取得しておきます。今では両方のプライマリキーが数字であると仮定していますので、私はあなたがテキストフィールドを使っていると仮定して以来、私は以前にエラーを出しました( '&" "のため実際には何もしません)。 –

+0

これは今動作します! :)。申し訳ありませんが、データ型をより明確にする必要がありました。 – Everton

関連する問題