Office中国论坛/Access中国论坛

标题: [求助]关于一个赋值的问题 [打印本页]

作者: cake_super 时间: 2007-2-26 17:03
标题: [求助]关于一个赋值的问题
Private Sub Command146_Click()
Dim prj As String
Dim cn As String
Dim la As String
Dim rn As String
la = Me.LiftAddress
cn = Me.ContractNo
prj = Me.BasicInfo_Project
rn = Me.RegisterNo
Forms![safetyinspection]![Project] = prj
Forms![safetyinspection]![RegisterNo] = rn
Forms![safetyinspection]![Address] = la
Forms![safetyinspection]![ContractNo] = cn
DoCmd.OpenForm "SafetyInspection", acNormal
End Sub

但是一定要在本窗体的liftaddress,contractno,basicinfo_project,registerno值为非空的情况下才能传递，如果其中有一个空的就会报错，能不能解决这个问题？？

作者: sgrshh29 时间: 2007-2-26 17:36
先判断本窗体的liftaddress,contractno,basicinfo_project,registerno有无空，不能吗？

作者: cake_super 时间: 2007-2-26 17:51
我就是想不管它是不是空，都直接赋值过去。。。你的意思是先判断这些变量是否为空？空的就不要赋值，非空的再赋值？？？？

作者: cake_super 时间: 2007-2-26 17:55
我觉得这样可以。。。但是好像比较麻烦，不知道有没有简便的方法。。谢谢

作者: sgrshh29 时间: 2007-2-26 17:59
因为不能将null赋予string型变量，除非你另用其它办法。

作者: cake_super 时间: 2007-2-26 18:05
有没有别的办法呢？？？请教一下

作者: sgrshh29 时间: 2007-2-26 18:17
不要用中间变量，直接把文本框的内容赋予目标文本框。

作者: cake_super 时间: 2007-2-26 18:25
谢谢，不用中间变量就可以避免string，即时是空的文本框也可以赋值了。。。谢谢

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