标题: 窗体求助 [打印本页] 作者: bihorse 时间: 2009-1-12 16:59 标题: 窗体求助 如何在入库单按入库日期选择的窗体,录好日期后,按确定,就显示出该段时间的,窗体1数据作者: night6s 时间: 2009-1-12 18:50
不太清楚你的意思,你是说窗体随著你的入库日期去改变?
还是.......作者: todaynew 时间: 2009-1-12 19:26
[attach]34492[/attach]
Private Sub Command5_Click()
Dim sql As String
DoCmd.OpenForm "窗体1"
sql = "SELECT * FROM 入库单 "
sql = sql + "WHERE 入库单.入库日期>=[Forms]![入库单按入库日期选择]![rq1] And 入库单.入库日期<=[Forms]![入库单按入库日期选择]![rq2];"
Forms!窗体1![入库单 子窗体].Form.RecordSource = sql
Forms!窗体1![入库单 子窗体].Requery
End Sub
[ 本帖最后由 todaynew 于 2009-1-12 19:30 编辑 ]作者: Henry D. Sy 时间: 2009-1-12 20:51
要不入库单1的窗体记录源和rq1，rq2的控件来源去掉
然后
Private Sub Command5_Click()
Dim strSQL As String
Dim ctl As Control
For Each ctl In Me.Controls
If TypeOf ctl Is TextBox Then
If IsNull(ctl) Then
MsgBox "enter the date into the " & ctl.Name
ctl.SetFocus
Exit Sub
End If
End If
Next
strSQL = "select * from 入库单 where 入库日期 between #" & Me.rq1 & "# And #" & _
Me.rq2 & "#"
DoCmd.OpenForm "窗体1"
Forms!窗体1![入库单 子窗体].Form.RecordSource = strSQL
End Sub作者: changweiren 时间: 2009-1-12 21:11
学习6D版主的方法作者: bihorse 时间: 2009-1-13 10:46
谢谢.我学习中