[求助]老大们，帮我看看我的东西（急，在线等……）

yrwx001

打开其中的换房窗体

  看我的代码

不知道怎么不行！！

yrwx001

老大们帮帮忙拉

海狸先生

你的语句有问题    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

高手就是高手~~~~

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

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

羡慕中~~~

ok123.1

海狸先生:你真不错, 技术精,网德好,向你致敬

wu8313

关于这一段，如果写得简洁一点，就好了。引用楼主的：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

海狸先生

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

高手就是高手~~~~

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

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

羡慕中~~~

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

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

海狸先生

以下是引用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

海大哥，不行啊  改了外以后，"换后的业主" 变成 "jake（屋业管理员身分）",我要的是 ”换之前的业 主（客户） ”为“换房之后的业主（客户）”

yrwx001

不知道该怎么说

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

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

而 A 现在业主是“jake"



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

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