设为首页收藏本站Access中国
开启辅助访问 切换到宽版

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步，快速开始

Office中国论坛/Access中国论坛»论坛首页 › ACCESS 与Sql Server 讨论区 › Access常规交流 › 根据下拉菜单选择的列名称，筛选子窗体对应的列数据
返回列表 发新帖
查看: 3258|回复: 4
打印 上一主题 下一主题

[窗体] 根据下拉菜单选择的列名称，筛选子窗体对应的列数据

[复制链接]
Henry D. Sy
1#
发表于 2019-11-9 00:05:18 | 显示全部楼层
  1. Private Sub Text65_AfterUpdate()
  2.     Dim sSQL As String
  3.     If Not IsNull(Me.Text63) Then
  4.        If Me.Text63 = "ID" Then
  5.            sSQL = "SELECT * FROM 表1 WHERE " & Me.Text63 & "=" & Me.Text65
  6.        Else
  7.           If IsNull(Me.Text65) Then
  8.              sSQL = "SELECT * FROM 表1 WHERE " & Me.Text63 & " IS NULL"
  9.           Else
  10.              sSQL = "SELECT * FROM 表1 WHERE " & Me.Text63 & "='" & Me.Text65 & "'"
  11.           End If
  12.        End If
  13.        Me.表1_子窗体.Form.RecordSource = sSQL
  14.     End If
  15. End Sub
复制代码
回复 支持 反对

使用道具 举报

Henry D. Sy
2#
发表于 2019-11-9 00:10:32 | 显示全部楼层
  1. Private Sub Text65_AfterUpdate()
  2.     Dim sSQL As String
  3.     If Not IsNull(Me.Text63) Then
  4.        If Me.Text63 = "ID" Then
  5.            sSQL = "SELECT * FROM 表1 WHERE ID=" & Me.Text65
  6.        Else
  7.           If IsNull(Me.Text65) Then
  8.              sSQL = "SELECT * FROM 表1 WHERE " & Me.Text63 & " IS NULL"
  9.           Else
  10.              sSQL = "SELECT * FROM 表1 WHERE " & Me.Text63 & "='" & Me.Text65 & "'"
  11.           End If
  12.        End If
  13.        Me.表1_子窗体.Form.RecordSource = sSQL
  14.     End If
  15. End Sub
复制代码

回复 支持 反对

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-5-21 15:09 , Processed in 0.116768 second(s), 25 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表