Access VBA質問箱 IV

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

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


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

6301 / 9994

←次へ　｜　前へ→


	【6900】Re:２年分の検索方法は？

小僧 - 05/12/5(月) 9:52 -


	引用なし

	パスワード

▼わんさん：
おはようございます。

まだ状況がつかめないでいます ^^;

2005/12/05　A　 10000
2005/12/06　A　 12000

上記のように同年、同月、同じ名前で結果が2つあるような事はありますか？

もしあるとすれば、フォーム上に表示するのは

1) 合計だけ

2005/12　　 A　 22000

2) 複数ある場合は全部

2005/12/05　A　 10000
2005/12/06　A　 12000

どちらなのでしょうか。

>現在は、フォーム上のコンボ検索にはcomb年以外にも
>comb年､comb月､comb名前で検索をして表示させています。

これはフィルタを使っているのでしょうか。

全件のデータが表示されている状態で、
コンボボックスで指定された年、月、名前で検索するのでれば

Private Sub cmd検索_Click()
Dim strFil As String

　　If Not IsNull(Me.cmb年) Then
　　　　strFil = " And Year([日付]) = " & CLng(Me.cmb年)
　　End If
　　
　　If Not IsNull(Me.cmb月) Then
　　　　strFil = strFil & " And Month([日付]) = " & CLng(Me.cmb月)
　　End If
　　
　　If Not IsNull(Me.cmb名前) Then
　　　　strFil = strFil & " And 名前 = '" & Me.cmb名前 & "'"
　　End If
　　
　　strFil = Mid(strFil, 6)
　　
　　Me.Filter = strFil
　　Me.FilterOn = True
End Sub

こんな感じでしょうか。

1,479 hits

▼

【6875】２年分の検索方法は？ わん 05/11/30(水) 12:41