Office中国论坛/Access中国论坛

标题: [求助]老大们，帮我看看我的东西（急，在线等……） [打印本页]

作者: yrwx001 时间: 2005-5-22 20:43
标题: [求助]老大们，帮我看看我的东西（急，在线等……）
[attach]10598[/attach]

打开其中的换房窗体

看我的代码

不知道怎么不行！！

作者: yrwx001 时间: 2005-5-22 21:58
老大们帮帮忙拉

作者: 海狸先生 时间: 2005-5-22 22:37
你的语句有问题 yz = DLookup("业主", "房屋信息表", "楼盘编号='" & z0 & "'and 楼房栋号='" & z2 & "' and 房号='" & z4 & "'") '建议改成这个 SQL = "update 房屋信息表 set 状态='未售',业主='jake' where 楼盘编号='" & z0 & "'and 楼房栋号='" & z2 & "' and 房号='" & z4 & "'"状态='未售'，你的原来是状态='" & 未售 & "' ，这个未售只不过是个文本值，不是个变量，不要这样括起来

DoCmd.RunSQL SQL

SQL = "update 房屋信息表 set 状态='已售',业主='" & yz & "' where 楼盘编号='" & t0 & "'and 楼房栋号='" & t2 & "' and 房号='" & t4 & "'"

作者: samsonhg 时间: 2005-5-22 23:44
标题: 羡慕中~~~
高手就是高手~~~~

海狸先生,我和你根本不在一个档次哎~~~

要学到啥时候才能基本上看懂你的回复哦!!!哦哦哦哦哦哦

羡慕中~~~

作者: ok123.1 时间: 2005-5-22 23:56
海狸先生:你真不错, 技术精,网德好,向你致敬

作者: wu8313 时间: 2005-5-23 00:12
关于这一段，如果写得简洁一点，就好了。引用楼主的：If IsNull(Me.组合0) Then

      MsgBox ("请输入需调换房屋信息！")

      Exit Sub

End If

If IsNull(Me.组合2) Then

      MsgBox ("请输入需调换房屋信息！！")

      Exit Sub

End If

If IsNull(Me.组合4) Then

      MsgBox ("请输入需调换房屋信息！")

      Exit Sub

      End If

      If IsNull(Me.楼盘编号) Then

      MsgBox ("请输入换房信息！")

      Exit Sub

      End If

      If IsNull(Me.楼房编号) Then

      MsgBox ("请输入换房信息！")

      Exit Sub

      End If

      If IsNull(Me.房间号) Then

      MsgBox ("请输入换房信息！")

      Exit Sub

      End If

作者: 海狸先生 时间: 2005-5-23 01:09

以下是引用samsonhg在2005-5-22 15:44:00的发言：

高手就是高手~~~~

海狸先生,我和你根本不在一个档次哎~~~

要学到啥时候才能基本上看懂你的回复哦!!!哦哦哦哦哦哦

羡慕中~~~

多学习就可以了，我也不是高手，呵呵

[此贴子已经被作者于2005-5-22 17:21:54编辑过]

作者: 海狸先生 时间: 2005-5-23 01:20

以下是引用wu8313在2005-5-22 16:12:00的发言：

关于这一段，如果写得简洁一点，就好了。

引用楼主的：

If IsNull(Me.组合0) Then

      MsgBox ("请输入需调换房屋信息！")

      Exit Sub

End If

If IsNull(Me.组合2) Then

      MsgBox ("请输入需调换房屋信息！！")

      Exit Sub

End If

If IsNull(Me.组合4) Then

      MsgBox ("请输入需调换房屋信息！")

      Exit Sub

      End If

      If IsNull(Me.楼盘编号) Then

      MsgBox ("请输入换房信息！")

      Exit Sub

      End If

      If IsNull(Me.楼房编号) Then

      MsgBox ("请输入换房信息！")

      Exit Sub

      End If

      If IsNull(Me.房间号) Then

      MsgBox ("请输入换房信息！")

      Exit Sub

      End If

您看这样行不？

StrA= Choose(i, "组合0", "组合2", "组合4", "楼盘编号", "楼房编号", "房间号")

For i = 1 To 6

If i < 3 Then StrB = "请输入需调换房屋信息！" Else StrB = "请输入换房信息"

If IsNull(Me(StrA)) Then MsgBox StrB: Exit Sub

Next i

作者: yrwx001 时间: 2005-5-23 06:10
海大哥，不行啊改了外以后，"换后的业主" 变成 "jake（屋业管理员身分）",我要的是 ”换之前的业主（客户） ”为“换房之后的业主（客户）”

作者: yrwx001 时间: 2005-5-23 06:13
不知道该怎么说

你明白我的意思吗？从A换到B

B现在的业主=A的原来的业主

而 A 现在业主是“jake"

按你的程序，出来的是A，B的业主都是”jake“了

[此贴子已经被作者于2005-5-22 22:16:04编辑过]

作者: 海狸先生 时间: 2005-5-23 16:05
在我这里实验是正常的，要不请上传你改过的文件？

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