窗体求助

bihorse

如何在入库单按入库日期选择的窗体,录好日期后,按确定,就显示出该段时间的,窗体1数据

night6s

不太清楚你的意思,你是说窗体随著你的入库日期去改变?
还是.......

todaynew

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

要不入库单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

学习6D版主的方法

bihorse

谢谢.我学习中