【求助】信息输入

孤客

（1）如何能 使用信息输入的窗口 输入信息管理窗口中缺少的数据？

如在 酒店客房信息输入 窗口里面输入 酒店客房信息管理 中缺少的数据~~~？

（2）如何能使 酒店客房信息管理 窗口里面的数据按 客房编号排序？

[ 本帖最后由 孤客 于 2008-10-24 21:22 编辑 ]

孤客

在线等高手帮忙

tz-chf

change改成afterupdate

比较粗糙

孤客

额~~~~~~~~~看不懂~~~~~~~~~你能不能把它改了它上来我看看呀~~~~~~~~

孤客

[:31] 求助中~~~~~~~~·

孤客

[:30] 不能让它沉了

fxtest

If IsNull(客房编号) Then
      MsgBox ("客房编号不能为空！")
       Me.客房编号.SetFocus
        ElseIf IsNull(房间状态) Then
         MsgBox ("房间状态不能为空！")
          Me.房间状态.SetFocus
           ElseIf IsNull(客人姓名) Then
            MsgBox ("客人姓名不能为空！")
             Me.客人姓名.SetFocus
               ElseIf IsNull(性别) Then
                MsgBox ("性别不能为空！")
                  Me.性别.SetFocus
                    ElseIf IsNull(押金) Then
                     MsgBox ("押金不能为空！")
                      Me.押金.SetFocus
                        ElseIf IsNull(入住日期) Then
                         MsgBox ("入住日期不能为空！")
                          Me.入住日期.SetFocus

   ElseIf yn = 1 Then
    Set rs = New ADODB.Recordset
    rs.Open "select * from 客房信息", CurrentProject.Connection, 3, 3
    rs.AddNew
    rs("客房编号") = 客房编号
    rs("房间状态") = 房间状态
    rs("客人姓名") = 客人姓名
    rs("性别") = 性别
    rs("押金") = 押金
    rs("入住日期") = 入住日期
    rs.Update
    yn = MsgBox("确定保存信息吗？", 1 + 32, "提示")
   
    MsgBox ("信息保存成功！")
    房间状态 = ""
    客人姓名 = ""
    性别 = ""
    押金 = ""
    入住日期 = ""
     Else
    房间状态 = ""
    客人姓名 = ""
    性别 = ""
    押金 = ""
    入住日期 = ""
   End If

[ 本帖最后由 fxtest 于 2008-10-24 22:05 编辑 ]

fxtest

这是很好的学习例子!!我也是在论坛里下的.

fxtest

这是很好的学习例子!!我也是在论坛里下的.

孤客

能够实现哪些条件吗？
我用了好像行不通...
不过感谢八楼提供的材料
学习新知识了
谢谢