ACCESS中比如在窗体中输入时间 点击查询按钮 在下面子窗体中显示对应结果，具体要怎么做，求源代码

ck()

Adodc1RecordsetMoveFirst

Timer1Enabled = True

End Sub

Sub xianshi()

Text1DataField = "学号"

Text2DataField = "姓名"

Text3DataField = "性别"

Text4DataField = "数学"

Text5DataField = "语文"

Text6DataField = "英语"

End Sub

Private Sub Command2_Click()

Adodc1RecordsetAddNew ("学号")

With Adodc1

Recordset("学号") = Text1

Recordset("姓名") = Text2

Recordset("性别") = Text3

Recordset("数学") = Text4

Recordset("语文") = Text5

Recordset("英语") = Text6

RecordsetSave

End With

End Sub

Private Sub Timer1_Timer()

If Adodc1RecordsetEOF = False Then

If Text8Text = Text7Text Then

Call xianshi

Else

Adodc1RecordsetMoveNext

Timer2Enabled = True

End If

End If

Timer1Enabled = False

End Sub

Private Sub Timer2_Timer()

If Adodc1RecordsetEOF = False Then

If Text8Text = Text7Text Then

Call xianshi

Else

Adodc1RecordsetMoveNext

Timer1Enabled = True

End If

End If

Timer2Enabled = False

End Sub

这段程序 完全可以满足你的要求 不过你要 建数据库 嫌麻烦的话 把邮箱给我 我把程序发给你！！

ACCESS数据库不支持自动化，但是可以通过ACCESS窗体VBA编程实现定时执行某个更新 *** 作。

下面举例，利用窗体"定时器触发"事件过程，每天凌晨1点将数据表的A字段值增加10：

编写窗体打开事件过程：

Private Sub Form_Open(Cancel As Integer)

    '设置窗体计时器间隔为1秒

    MeTimerInterval = 1000

End Sub

编写窗体“计时器触发”事件过程：

Private Sub Form_Timer()

    Dim tm As String

    tm = Format(Now(), "hh:nn:ss")

    If tm > "01:00:59" Then MeTimerInterval = 1000 '设置窗体计时器间隔恢复为1秒

    If tm >= "01:00:00" And tm <= "01:00:59" Then

        Dim strSql As String

        strSql = "update t1 set a=a+10"

        CurrentProjectConnectionExecute strSql

        MeTimerInterval = 60000 '设置窗体计时器间隔为60秒，防止一天执行多过一次

    End If

End Sub

注意：窗体必须保持打开状态才能起到定时执行数据表更新 *** 作

以上就是关于ACCESS中比如在窗体中输入时间 点击查询按钮 在下面子窗体中显示对应结果，具体要怎么做，求源代码全部的内容，包括:ACCESS中比如在窗体中输入时间 点击查询按钮 在下面子窗体中显示对应结果，具体要怎么做，求源代码、Access数据库怎么用sql语句创建每隔一个时间段执行更新表的作业、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！