Office中国论坛/Access中国论坛

标题: 子窗体记录处理完，主窗体自动更改 [打印本页]
作者: 13601812106_01    时间: 2012-6-26 17:13
标题: 子窗体记录处理完，主窗体自动更改
如何做到：我的窗体是数据表格式，当在子窗体中，所有记录处理结果都是OK时，主窗体的总结果，自动变为"OK"
作者: Henry D. Sy    时间: 2012-6-26 17:17
没发现有主子窗体呀
作者: 13601812106_01    时间: 2012-6-26 17:22
我的是用数据表格式的，点+号，就是子窗体了
作者: Henry D. Sy    时间: 2012-6-26 17:29
呵呵，藏起来了
  1. Private Sub Form_Current()
  2.     Dim bln As Boolean
  3.     Dim rs As New ADODB.Recordset
  4.     Dim strSQL As String
  5.     bln = True
  6.     strSQL = "select 处理结果 from 表2 where 单据='" & Me.单据 & "'"
  7.     rs.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockReadOnly
  8.     Do While Not rs.EOF
  9.         If rs.Fields(0) <> "OK" Or IsNull(rs.Fields(0)) Then
  10.             bln = False
  11.             Exit Do
  12.         End If
  13.         rs.MoveNext
  14.     Loop
  15.     If bln Then
  16.         Me.总结果 = "OK"
  17.     Else
  18.         Me.总结果 = "Not OK"
  19.     End If
  20.     rs.Close
  21.     Set rs = Nothing

  23. End Sub
复制代码
[attach]49508[/attach]
作者: 13601812106_01    时间: 2012-6-26 20:42
十分的感谢，你是个很热心的朋友。如果有机会，我一定请你吃顿饭
作者: 13601812106_01    时间: 2012-6-26 20:43
问题解决了，比我想像的简单多了，当时，我想用DCOUNT解决


作者: layaman_999    时间: 2012-6-27 08:25
Private Sub Form_Current()
    Dim strSQL As String
    strSQL = "select 处理结果 from 表2 where 单据='" & Me.单据 & "' AND NZ([处理结果],'') <> 'OK'"
    If CurrentProject.Connection.Execute(strSQL).EOF Then
      Me.总结果 = "OK"
    Else
      Me.总结果 = "NOT OK"
    End If
End Sub
作者: 13601812106_01    时间: 2012-6-27 08:48
layaman_999 发表于 2012-6-27 08:25
Private Sub Form_Current()
    Dim strSQL As String
    strSQL = "select 处理结果 from 表2 where 单 ...

太谢谢了，更简洁了。
作者: 13601812106_01    时间: 2012-6-27 08:50
layaman_999 发表于 2012-6-27 08:25
Private Sub Form_Current()
    Dim strSQL As String
    strSQL = "select 处理结果 from 表2 where 单 ...

并且，从你的回复中，我发现一个更好用的现象，当我用数据表格式时，当此记录获得焦点时，他会自动更改总结果
作者: todaynew    时间: 2012-6-27 13:40
13601812106_01 发表于 2012-6-26 20:43
问题解决了，比我想像的简单多了，当时，我想用DCOUNT解决

Dcount最简单，直觉往往是正确的。



欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/) Powered by Discuz! X3.3