|
|
DoCmd.OpenForm "フォーム名", , , , , acDialog, Me.Name & ":txtコード"
Me.lst名称.Requery
| |
|
|
SELECT テーブル名.名称
FROM テーブル名
WHERE (((テーブル名.コード)=[Forms]![呼び出し側フォーム名]![txtコード]));
| |
|
クエリを作成する事はできるだけ避けるよう心がけて下さい。後の管理が大変だからで、
可能な限り他の方法を考えたほうが結果的に応用の効く結果となります
|
|
|
SELECT テーブル名.コード, テーブル名.名称, テーブル名.郵便番号, テーブル名.住所1
FROM テーブル名
WHERE (((テーブル名.名称) Like "*" & [Forms]![ダイアログのフォーム名]![txt検索名称] & "*"));
| |
|
ダイアログ表示と同時に、全てのデータが表示対象となります。初期になにも表示しない場合は値集合ソース(RowSource)
へのセットを検索ボタンクリックイベントで行います。その場合は、Requery が必要なくなります
|
Dim nIdx, strArg
nIdx = Me.lst検索情報.ItemsSelected.Item(0)
If Me.OpenArgs <> "" Then
strArg = Split(Me.OpenArgs, ":")
If UBound(strArg) = 1 Then
Forms(strArg(0)).Controls(strArg(1)).Value = Me.lst検索情報.Column(0, nIdx)
End If
DoCmd.Close , , acSaveNo
End If
| |
|
|
|