Access VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1314 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【7758】help・・フォームとフォームを抽出して開く方法 ＪＩＮましん 06/4/25(火) 16:20 質問[未読]
【7761】Re:help・・フォームとフォームを抽出して... 小僧 06/4/25(火) 18:28 回答[未読]
【7763】Re:help・・フォームとフォームを抽出して... ＪＩＮましん 06/4/26(水) 8:13 お礼[未読]
【7758】help・・フォームとフォームを抽出して開...
質問  ＪＩＮましん  - 06/4/25(火) 16:20 -
引用なし
パスワード
   かなり、初心者です。
入力フォーム画面から
「引継ぎ書」フォームにあるＩＤ番号2と「入力フォーム」の
ID番号が一致する場合、「引継ぎ書」の項目を表示させたいのですが。
以下のようなVBAでは、パラメータの入力を求められます。
何か良い方法はありませんでしょうか。

Private Sub 引継ぎ書_Click()
On Error GoTo Err_引継ぎ書_Click
DoCmd.RunCommand acCmdSaveRecord
stDocName = "引継ぎ書"
　stLinkCriteria = "[ＩＤ番号2]=" & Me![ＩＤ番号]
　DoCmd.OpenForm stDocName, , , stLinkCriteria
　
Exit_引継ぎ書_Click:
Exit Sub
Err_引継ぎ書_Click:
　 MsgBox Err.Description
　 Resume Exit_引継ぎ書_Click
End Sub
【7761】Re:help・・フォームとフォームを抽出して...
回答  小僧  - 06/4/25(火) 18:28 -
引用なし
パスワード
   ▼ＪＩＮましん さん：
こんにちは。

>入力フォーム画面から
>「引継ぎ書」フォームにあるＩＤ番号2と「入力フォーム」の
>ID番号が一致する場合、「引継ぎ書」の項目を表示させたいのですが。

状況が解りづらいのですが、

・帳票フォーム「入力フォーム」の詳細部にコマンドボタン「引継ぎ書」を配置し、
　クリックすると単票フォーム「引継ぎ書」が開く。

　その際に「ID番号2」を入力フォームの「ID番号」でフィルタする、
　というようなイメージでしょうか。
　

>以下のようなVBAでは、パラメータの入力を求められます。
>　stLinkCriteria = "[ＩＤ番号2]=" & Me![ＩＤ番号]

ID番号ならびに、ID番号2はテキスト型ではないでしょうか？

もしそのようであれば

　stLinkCriteria = "[ＩＤ番号2]='" & Me![ＩＤ番号] & "'"

となります。
【7763】Re:help・・フォームとフォームを抽出して...
お礼  ＪＩＮましん  - 06/4/26(水) 8:13 -
引用なし
パスワード
   ▼小僧 さん：
>▼ＪＩＮましん さん：
>こんにちは。
>
>>入力フォーム画面から
>>「引継ぎ書」フォームにあるＩＤ番号2と「入力フォーム」の
>>ID番号が一致する場合、「引継ぎ書」の項目を表示させたいのですが。
>
>状況が解りづらいのですが、
>
>・帳票フォーム「入力フォーム」の詳細部にコマンドボタン「引継ぎ書」を配置し、
>　クリックすると単票フォーム「引継ぎ書」が開く。
>
>　その際に「ID番号2」を入力フォームの「ID番号」でフィルタする、
>　というようなイメージでしょうか。
>　
>
>>以下のようなVBAでは、パラメータの入力を求められます。
>>　stLinkCriteria = "[ＩＤ番号2]=" & Me![ＩＤ番号]
>
>ID番号ならびに、ID番号2はテキスト型ではないでしょうか？
>
>もしそのようであれば
>
> 　stLinkCriteria = "[ＩＤ番号2]='" & Me![ＩＤ番号] & "'"
>
>となります。


早速の回答ありがとうございました。
うまく動きました。ありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1314 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
1081089
(SS)C-BOARD v3.8 is Free