当您查看 Access 项目窗体的打印预览中应用服务器筛选时,窗体失去其记录源的连接,并在所有数据控件中都显示 #name。
原因当窗体的 最小值 和 最大 按钮被禁用时,会发生此问题。当窗体的 最小值 和 最大 按钮被禁用时,会发生此问题。
解决方案最佳解决方案是将 MinMaxButton 窗体的属性设置为 同时启用 ,然后使用下面的代码窗体的 OnOpen 事件过程中隐藏 最小值 和 最大 按钮。首先,...最佳解决方案是将 MinMaxButton 窗体的属性设置为 同时启用 ,然后使用下面的代码窗体的 OnOpen 事件过程中隐藏 最小值 和 最大 按钮。
首先,添加下列应用程序编程接口 (API) 数据库中的任何模块的声明。
Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
(ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _
(ByVal hwnd As Long, ByVal nIndex As Long) As Long
Public Const WS_MINIMIZEBOX = &H20000
Public Const WS_MAXIMIZEBOX = &H10000
Public Const GWL_STYLE = (-16)
然后将以下代码添加到要在打开表单时自动隐藏 最小值 和 最大 按钮窗体的 OnOpen 事件过程中。
Private Sub Form_Load()
SetWindowLong Me.hwnd, GWL_STYLE, GetWindowLong(Me.hwnd, _
GWL_STYLE) And Not (WS_MAXIMIZEBOX or WS_MINIMIZEBOX)
End Sub
重现该问题的步骤
在设计视图中 NorthwindCS.adp 中打开该客户窗体。
将 MinMaxButtons 属性设置为无。
将 ServerFilterByForm 属性设置为 是 。
在窗体视图中查看窗体并为公司名称字段键入 Like A %。
应用筛选器,并打印然后预览该窗体。
请注意在打印预览中, 每个数据控件显示 #name?。
Access软件网交流QQ群(群号:198465573) |