Office中国论坛/Access中国论坛

标题: 请教窗体问题 [打印本页]

作者: hrct 时间: 2009-2-26 10:19
标题: 请教窗体问题
请教：如何实现在没有回场区位的时候，区位显示的是卸货区，在有回场区位时，区位显示的是回场区位？
[attach]35971[/attach]

作者: wu8313 时间: 2009-2-26 10:49
本帖最后由 wu8313 于 2009-2-26 12:35 编辑

Private Sub Form_Load()'窗体的加载事件中写入下列代码

If IsNull(Me.回厂区位) = True Then

Me.区位.Value = "卸货区"

Else

Me.区位.Value = Me.回厂区位.Value

End If

End Sub

作者: hrct 时间: 2009-2-26 11:19
不好意思，我不太明白，语句加在那里？

作者: hrct 时间: 2009-2-26 15:24
我试了，说是编译错误。

作者: wu8313 时间: 2009-2-26 17:53

我试了，说是编译错误。
hrct 发表于 2009-2-26 15:24

提示编译错误，至少有一种情况会这样：
那就是语法错误(直白的讲拼写错误也行)。
你仔细看我贴出的代码，就有一个拼写错误，那就是，"回场区位" 我错写为 "回厂区位",你可以自己修改一下。

作者: todaynew 时间: 2009-2-26 18:53

请教：如何实现在没有回场区位的时候，区位显示的是卸货区，在有回场区位时，区位显示的是回场区位？
35971
hrct 发表于 2009-2-26 10:19

if  isnull(me.回场区位) then
         Me.区位.ControlSource = "卸货区位"
else
         Me.区位.ControlSource = "回场区位"
end if

作者: Henry D. Sy 时间: 2009-2-26 20:42
楼主请不要重复发帖。

作者: hrct 时间: 2009-2-27 09:23
谢谢2楼和6楼，特别是6楼，在两个论坛给我答复！我把你们写错的代码已经改了，显示的是编译错误，方法和数据成员未找到。希望继续得到你们的帮助。用IIf(ISNull([回场区位]),[卸货区],[回场区位])可以吗?用在什么地方可以?

作者: todaynew 时间: 2009-2-27 09:40
本帖最后由 todaynew 于 2009-2-27 09:42 编辑

IIf(ISNull([回场区位]),[卸货区],[回场区位])用在sql中可以，好像vb中不行吧。

你可以把实例传上来，这样可以找到问题所在。

Me.区位.Value = me.卸货区.Value

Me.区位= me.卸货区

Me.区位.ControlSource = "卸货区"

这三种写法都是可以的。具体为什么还出错，需要看你的实例。

作者: hrct 时间: 2009-2-27 10:10
在箱管界面放箱单录入里
[attach]36019[/attach]

作者: hrct 时间: 2009-2-27 10:11
用户名admin,密码admin

作者: hrct 时间: 2009-3-2 15:26
附件发上去了，那位高手能帮我解决？谢谢！

作者: todaynew 时间: 2009-3-2 17:02
本帖最后由 todaynew 于 2009-3-2 17:11 编辑

附件发上去了，那位高手能帮我解决？谢谢！
hrct 发表于 2009-3-2 15:26

[attach]36144[/attach]

在卸货区和回场区位分别加了更新后事件，你试试。

Private Sub Text40_AfterUpdate()
   Me.Text15.Value = Me.Text40.Value
End Sub
Private Sub Text42_AfterUpdate()
   If Not (IsNull(Me.Text42)) Then
         Me.Text15.Value = Me.Text42.Value
   Else
         Me.Text15.Value = Me.Text40.Value
   End If
End Sub

作者: hrct 时间: 2009-3-3 09:38
谢谢！我试了，也看了你传回来的附件，还是不行。

作者: hrct 时间: 2009-3-3 20:24
??????????

作者: hrct 时间: 2009-3-6 10:22
已经解决了，在查询中加IIF ISNULL语句。下次有问题还得向各位请教！

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