Access VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

7278 / 9994

←次へ　｜　前へ→


	【5912】Re:時間の計算について

小僧 - 05/8/18(木) 18:02 -


	引用なし

	パスワード

▼わんさん：
こんにちは。

>在しない検索(主に名前になるのでしょうが)をすると、
>全く何も表示されなくなってしまいます。

以前ありましたが、コンボボックスだとこういった事がないんですよね。

テキストボックスの場合はそういったチェックも必要になってきます。
(コンボボックスもドロップダウンリストから選ばないで直接入力できるので必要ですが)

さきほどの選手1の使ってみますね。

Private Sub 検索ボタン_Click()
'※要参照設定 Microsoft DAO x.x Object Library

'----------------------------<<SQLを発行した結果が0件>>-------------------
Dim RS As DAO.Recordset
Dim SQLCode As String
　　
　　SQLCode = "SELECT * FROM 選手1 WHERE ポジション = '" & Me.テキストポジション & "'"
　　Set RS = CurrentDb.OpenRecordset(SQLCode, dbOpenSnapshot)
　　　　If RS.EOF Then
　　　　　　MsgBox "そんなポジションないよ"
　　　　End If
　　　　RS.Close
　　Set RS = Nothing
　　
'----------------------------<<定義域集計関数を使用>>---------------------
　　If DCount("*", "選手1", "ポジション ='" & Me.ポジション & "'") Then
　　　　MsgBox "そんなポジションないってば"
　　　　Exit Sub
　　End If

End Sub

良く使われる例を2つあげてみました。
定義域集計関数はフォームやレポートを作る際に知っていると便利な関数ですので
この機会に使いこなせるようにされてみるのが良いと思います。

668 hits

▼

【5829】時間の計算について わん 05/8/11(木) 14:01