[求助]关于窗体查询

yuri_lv

  菜鸟新手~学了几天ACCESS做了个人员管理的东东~可是为什么查询使用不料

  请教各位高手~~在线等~~

[此贴子已经被作者于2006-11-16 12:49:14编辑过]

yehf

查询按钮的代码改为:

Private Sub Com查询_Click()
Dim sql As String
sql = "SELECT 驾驶员信息.* FROM 驾驶员信息  WHERE (((驾驶员信息.职号)=IIf([Forms]![查询]![职号] Is Null,[Forms]![查询]![工号],[Forms]![查询]![职号])) AND ((驾驶员信息.工号)=IIf([Forms]![查询]![工号] Is Null,[Forms]![查询]![职号],[Forms]![查询]![工号])));"
Me.驾驶员信息.Form.RecordSource = sql
  Me.驾驶员信息.Requery
End Sub

另外增加两个事件的代码最好.

Private Sub 工号_AfterUpdate()
Me.职号 = Null
End Sub

Private Sub 职号_AfterUpdate()
Me.工号 = Null
End Sub

[此贴子已经被作者于2006-11-16 11:10:58编辑过]

yuri_lv

多谢高手！！~~问题解决了~！！！

yu88

楼主不厚道,解决了问题,就把附件删了[em22]