Office中国论坛/Access中国论坛

标题: 为何在窗体里不能出现数据？ [打印本页]

作者: hongjian 时间: 2002-6-17 19:40
标题: 为何在窗体里不能出现数据？
为何在窗体里不能出现数据？
为何：  Me.借报编号 = no　　总是空白？但变量 no 是有数字的！

Private Sub Form_Load()
qhj1 = Me.年份 '变量
  Dim no, no1 As Long
  no1 = DMax("[借报编号]", "密传电报登记明细表", "[年份]='" & qhj1 & "'")
no = no1 + 1
　 If Me.借报单位 = "" Then
  　 Me.借报编号 = no　　　　　　
Else
msgbox no  'no  有数据！
End If
  Beep
End Sub

作者: ganrong 时间: 2002-6-17 19:48
提示: 作者被禁止或删除内容自动屏蔽

作者: hongjian 时间: 2002-6-17 20:12
但实际上却是没有数据啊？

为何在窗体里不能出现数据？
为何：  Me.借报编号 = no　　总是空白？但变量 no 是有数字的！

Private Sub Form_Load()
qhj1 = Me.年份 '变量
  Dim no, no1 As Long
  no1 = DMax("[借报编号]", "密传电报登记明细表", "[年份]='" & qhj1 & "'")
no = no1 + 1
　 If Me.借报单位 = "" Then
  　 Me.借报编号 = no　　　　　　
Else
msgbox no  'no  有数据！
End If
  Beep
End Sub

但是，　如果这样却可以出现数据：
Private Sub Form_Load()
qhj1 = Me.年份 '变量
  Dim no, no1 As Long
  no1 = DMax("[借报编号]", "密传电报登记明细表", "[年份]='" & qhj1 & "'")
no = no1 + 1
'　 If Me.借报单位 = "" Then
  　 Me.借报编号 = no　　　　　　 '这样却可以出现数据！
'Else
msgbox no  'no  有数据！
'End If
  Beep
End Sub

我想可能总是在：
Me.借报单位 = ""
但我改成：
Me.借报单位 = null
Me.借报单位 is null

要检测的：　借报单位－－应是在数据表里的内容！如果空则在窗体里执行：

  　 Me.借报编号 = no　　

都不行，何解？

[此贴子已经被作者于2002-6-17 12:11:50编辑过]

作者: tsx 时间: 2002-6-18 00:55
If IsNull(Me.借报单位) Then　
　　……

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)