关于“年龄查询”问题！

xuchunyang　发表于：2010-10-13 10:06:50 　

复制

大家好！

想在窗体上加一个查询年龄的功能。

1.在输入某个年龄段时，显示相应结果

2.如果只有起始年龄，那么显示所有超过起始年龄的信息

3.如果只有截止年龄，那么显示所有小于截止年龄的信息

由于我是个菜鸟，所以烦请各位不要更改我的查询方式，即实现年龄查询后

我的省份查询仍然可用！

谢谢大家！

点击下载此附件

Top

雪中游发表于：2010-10-19 12:08:25

在窗体上加一个按钮，命令是:

Me.神秘人信息子窗体.Form.RecordSource = "select * from 神秘人信息 where (神秘人信息.年龄 between [从] and [到])"

Top

xuchunyang 发表于：2010-10-19 12:42:52

您好，谢谢您的答案！

但是在我查询的时候，年龄范围是不确定的，您的方法是将年龄段确定了！

我想要在文本框中输入，点击查找，然后显示相应的结果！

谢谢您的帮助！

Top

wyh99999 发表于：2010-10-19 20:16:12

引用刘小军老师的语句查询,供你参考:点击下载此附件

Top

xuchunyang 发表于：2010-10-20 09:07:28

wyh99999,您好！

能不能将查询按钮里的代码合并到查找按钮里去！

谢谢您了！

Top

wyh99999 发表于：2010-10-20 13:38:24

供您参考.点击下载此附件

Top

xuchunyang 发表于：2010-10-20 17:06:23

wyh99999,您好！

再次感谢您的帮助！

但是，我发现您把我“省份”列表框的多选功能给关闭了，能不能不关闭这个功能！

因为我用列表框而不是组合框，就是希望用多选功能！

谢谢您了！麻烦再帮帮我！

Top

wyh99999 发表于：2010-10-20 19:14:56

朋友，这个我也不会弄。望老师们帮助。

Top

xuchunyang 发表于：2010-10-21 09:10:20

wyh99999　依然感谢你！

麻烦其他高手帮帮忙啊！

谢谢大家了！

Top

wang decheng 发表于：2010-10-21 15:45:44

增加了“省份”列表框的多选功能，希望楼主能满意

点击下载此附件

Top

xuchunyang 发表于：2010-10-21 16:02:03

感谢wang decheng　的帮助！

但是年龄的查询又不能实现了，

麻烦您看看再！

谢谢您！

Top

煮江品茶发表于：2010-10-21 16:29:30

Private Sub 查找_Click()
Dim strWH As String
strWH = "True"
If IsNull(Me.省份.Column(0)) = False Then
    strWH = strWH & " and 省份='" & Me.省份.Column(0) & "'"
End If
If IsNumeric(Me.Text9.Value) = True Then
    strWH = strWH & " and 年龄>=" & Me.Text9.Value
End If
If IsNumeric(Me.Text11.Value) = True Then
    strWH = strWH & " and 年龄<=" & Me.Text11.Value
End If

Me.神秘人信息子窗体.Form.Filter = strWH
Me.神秘人信息子窗体.Form.FilterOn = True
End Sub

Private Sub 清除筛选_Click()
Me.省份.Value = Null
Call 查找_Click
End Sub

Top

wang decheng 发表于：2010-10-21 20:57:48

哈哈，版主出手，我们也只能洗洗睡了。

Top

xuchunyang 发表于：2010-10-22 11:27:55

谢谢版主的帮助！

但是还有两个问题，

1.可以多选省份，比如“北京和上海”，但是子窗体中只显示一个省份的信息

2.当查询完年龄后，点击“清除筛选”按钮，子窗体仍旧只显示查询结果

谢谢大家的帮助！

麻烦各位再帮忙看看！

谢谢！

Top

煮江品茶发表于：2010-10-22 15:01:26

Sub Allfilter()
Dim strWH As String
strWH = "True"
If IsNull(Me.省份.Column(0)) = False Then
    strWH = strWH & " and (" & S & ")"
End If
If IsNumeric(Me.Text9.Value) = True Then
    strWH = strWH & " and 年龄>=" & Me.Text9.Value
End If
If IsNumeric(Me.Text11.Value) = True Then
    strWH = strWH & " and 年龄<=" & Me.Text11.Value
End If
Me.神秘人信息子窗体.Form.Filter = strWH
Me.神秘人信息子窗体.Form.FilterOn = True
End Sub

Function S() As String

'省份多选函数
Dim i As Long
Dim str As String
str = "False"
For i = 0 To Me.省份.ListCount - 1
    If Me.省份.Selected(i) = True Then
        str = str & " or 省份='" & Me.省份.Column(0, i) & "'"
    End If
Next
S = str
End Function

Private Sub 查找_Click()
Call Allfilter
End Sub

Private Sub 清除筛选_Click()
Me.省份.Value = Null
Call Allfilter
End Sub

Top

煮江品茶发表于：2010-10-22 15:24:35