Office中国论坛/Access中国论坛

标题: 【求助】信息输入 [打印本页]

作者: 孤客 时间: 2008-10-23 22:31
标题: 【求助】信息输入
（1）如何能使用信息输入的窗口输入信息管理窗口中缺少的数据？

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

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

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

作者: 孤客 时间: 2008-10-23 22:32
在线等高手帮忙

作者: tz-chf 时间: 2008-10-23 23:10
change改成afterupdate

比较粗糙

作者: 孤客 时间: 2008-10-23 23:18
额~~~~~~~~~看不懂~~~~~~~~~你能不能把它改了它上来我看看呀~~~~~~~~

作者: 孤客 时间: 2008-10-24 13:12
[:31] 求助中~~~~~~~~·

作者: 孤客 时间: 2008-10-24 21:23
[:30] 不能让它沉了

作者: fxtest 时间: 2008-10-24 21:55
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 时间: 2008-10-24 22:17
这是很好的学习例子!!我也是在论坛里下的.

作者: fxtest 时间: 2008-10-24 22:18
这是很好的学习例子!!我也是在论坛里下的.

作者: 孤客 时间: 2008-10-24 23:11
能够实现哪些条件吗？
我用了好像行不通...
不过感谢八楼提供的材料
学习新知识了
谢谢

作者: 孤客 时间: 2008-10-25 18:44
别沉了

作者: 孤客 时间: 2008-10-25 23:44
还是没人..

作者: gemini 时间: 2008-10-26 11:56
感谢８楼提供的好东东，顶上去[:50]

作者: gaofei186 时间: 2008-10-26 13:20
先看看了

作者: 孤客 时间: 2008-10-27 15:59
[:31]

作者: 孤客 时间: 2008-10-28 00:43
[:27]

作者: 蝶舞飛扬 时间: 2008-10-28 13:29
[:50]

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