这两行代码可以合并为一行吗？

sxgaobo

   DoCmd.OpenForm "人员资料", acFormDS, "", "", , acNormal
   Forms![人员资料].RecordSource = "SELECT 数据表.* FROM 数据表 WHERE 档案编号 Like 'YG*'"

leonshi

不知道你合成一行的理由是什么

sxgaobo

leonshi 发表于 2014-12-11 20:31
不知道你合成一行的理由是什么

想在不同情况下打开同一窗体时指定不同的数据源
现在这也可以，只是在打开窗体时先显示一行“#名称?”，很不美观不专业

盗梦

DoCmd.OpenForm "人员资料", acFormDS, "", "档案编号 Like 'YG*'", , acNormal

sxgaobo

盗梦 发表于 2014-12-12 08:46
DoCmd.OpenForm "人员资料", acFormDS, "", "档案编号 Like 'YG*'", , acNormal

我也是用这办法，可只是打开窗体时将满足条件的记录显示出来，一旦使用取消筛选功能，所有的数据就都显示出来了啊！

roych

可以使用子窗体控件，然后指定sourceobject，例如：
Private Sub Form_Load()
Me.child0.SourceObject = ""
End Sub
执行查询时再指定为相应的sql语句。