■ 現在のこのページの役立ち度:
表示されない場合こちらのリンクからもご覧になれます。
■ このページの役立ち度を評価する:
役立ち度を評価してください。
(1(左):あまり役立たない - 5(右):大変役立った):
■ ページの共有:
[ サイト内検索 ]
カスタム検索
#5696-0#Name?によるレコードの表示上田 宏樹1999-12-15(水) 14:37
     #5698-0RE#5696:#Name?によるレコードの表示ゆう(U)1999-12-15(水) 14:52
     #5704-0RE#5698:#Name?匿名57041999-12-15(水) 15:47
#5696-0
#Name?によるレコードの表示
初めて投稿させていただきます。
検索したレコードの表示について質問させていただきます。

現在、以下のような文でレコードを検索し、表示すると言う形式をとっています。

---------------------------------------------------------------------------------------
'strSQL1によるレコード検索

 strSQL1 = "SELECT DISTINCTROW O_HISTORY.HST_NO, O_HISTORY.TSR_ID, O_HISTORY.CALL_DATE, 
       O_HISTORY.CALL_TIME, O_HISTORY.CA_DATE, O_HISTORY.BCODE, " & _
            "O_HISTORY.PHONE, O_HISTORY.HOUSE_NO,O_HISTORY.CALL_NUM,O_HISTORY.CONTACT_NO,
             O_HISTORY.CONTACT, O_HISTORY.FLAG, O_HISTORY.THE_OTHER, " & _
            "O_HISTORY.RESULT, O_HISTORY.SP_CODE1,O_HISTORY.SP_CODE2,O_HISTORY.RESULT_CD,
             O_HISTORY.DURATION, TSR_LIST.TSR_NAME, RESULT_CD.RT_NAME " & _
            "FROM (O_HISTORY INNER JOIN TSR_LIST ON O_HISTORY.TSR_ID = TSR_LIST.TSR_ID) 
INNER JOIN RESULT_CD ON O_HISTORY.RESULT_CD = RESULT_CD.RT_CODE " & _
            "WHERE (((O_HISTORY.HST_NO) Like '" & "*" & strWK & "*')) " & _
            "ORDER BY O_HISTORY.HST_NO DESC;"

'strSQLでの検索件数の読みこみ
    Set rst履歴 = db.OpenRecordset(strSQL1)

'レコードの表示
If rst履歴.RecordCount = 0 Then
            MsgBox "指定されたコールIDを持つ顧客は存在しません。"
Forms![架電履歴一覧検索]![架電履歴:履歴一覧DSHEET].Form.RecordSource = strSQL1
  End If

---------------------------------------------------------------------------------------
この場合、検索件数が0の場合はフォームのレコード表示フィールドには何も表示されない状態に
なっていますが、ここにフィールド値未確認の「#Name?」値が格納されたレコードを表示させる
動作を行いたいのですがどのように行えばいいでしょうか?

宜しくお願いします。
#5698-0
RE#5696:#Name?によるレコードの表示
> この場合、検索件数が0の場合はフォームのレコード表示フィールドには何も表示されない状態に
> なっていますが、ここにフィールド値未確認の「#Name?」値が格納されたレコードを表示させる
> 動作を行いたいのですがどのように行えばいいでしょうか?
ちょっと聞きたい事がよくわかりません・・・

MsgBox rst履歴.Recordset.Fields(0).Name
とかではないのですか?
※変数名に全角を使うのはお勧めしませんが・・・

ちなみに環境は?
#5704-0
RE#5698:#Name?
ゆうさんありがとうございます。至らない説明で申し訳ありません。

> > この場合、検索件数が0の場合はフォームのレコード表示フィールドには何も表示されない状態に
> > なっていますが、ここにフィールド値未確認の「#Name?」値が格納されたレコードを表示させる
> > 動作を行いたいのですがどのように行えばいいでしょうか?
> ちょっと聞きたい事がよくわかりません・・・

説明が足りなくて申し訳ありません。
レコード表示フィールドというのはデータシートビューの事を指しています。
検索したレコードが存在した場合はデータシートビューに検索したレコード情報を書きこみ、画面に
表示しますが、検索件数が0の場合はデータシートビューへNull値を書きこみに行くため、
その場合画面上でデータシートの表示が消えてしまっている状態になるのです。
そうではなく、普通データシートビューをクエリーもなにも設定しない状態で表示した場合、
各フィールドには「#Name?」という情報が格納されていますよね。
要はその表示を行いたいということなのですが。
 
> ちなみに環境は?
Access97です。
このページと関連する記事:
#1038-0Datagridのレコードの取得2001-11-13(火) 01:05
#6-1ACCESSを使ってるんですが2003-11-02(日) 20:31
#16436-0ADOを使用した検索処理について2000-11-21(火) 14:41
#1153-1データグリッドコントロールのフィールドにチェックボックスを表示1999-07-11(日) 01:54
#97-0日付で検索・抽出2001-06-04(月) 19:10
#28153-0RE#28145:DAOからデータを読取り、コンボボックス登録する2002-04-10(水) 17:57
#6884-0SQL文のCOUNT関数について2000-03-24(金) 14:19
#6834-0SQL文のアスタリスクについて2000-03-22(水) 11:12
#6117-0ListBoxで最大値2000-02-23(水) 21:58
#414-0レポートのデータ抽出条件について2001-07-25(水) 12:35
お探しの情報は見つかりましたか?お困りの問題は解決しましたか?
サイト内検索, 似た記事検索で見つからなくてもあきらめずに掲示板で質問してみましょう。
VB初心者友の会があなたのお役に立てれば幸いです。また、本ページの投稿者の方々にこの場を借りて感謝致します。
本ページは過去ログを集めて自動構成しています。よろしければこのページに関するフィードバックをお願いします。
(※ 構成の誤り、広告等の不適切な記事、リンク切れ、読めないページの報告など)