Office中国论坛/Access中国论坛

标题: [求助]在一个控件显示几个控件值的新问题 [打印本页]

作者: 羽佳 时间: 2006-4-22 00:05
标题: [求助]在一个控件显示几个控件值的新问题
昨天请教了在一个控件上显示几个控件的值，现在出现了一个新的问题那就是我输入的值在文本框里显示后我撤消输入时，文本框的内容也没能跟着清空，来后我加上了一些IF语句来判断其中一个必填的控件值是否Null值来清空文本框可是没有成功，现在想请教高手应该怎么去实现这个功能

Private sub Text10_AfterUpdate()

IF Me!c1= Null then

Me.Text10 = " "

End IF

End Sub

[attach]17293[/attach]

[此贴子已经被作者于2006-4-22 16:19:58编辑过]

作者: 一点通 时间: 2006-4-22 00:18
不是很明你的意思,你用什么方法撤消输入的

作者: 羽佳 时间: 2006-4-22 00:48
我是按ESC来撤消输入的，我上传到例子，您可以下载看一下。

作者: 情比金坚 时间: 2006-4-22 01:55
text10用列表框不知多好？？

作者: 羽佳 时间: 2006-4-22 03:19
我是为了方便复制里面的内容出来才想用这个方法的,谁能帮忙解决一下.

[此贴子已经被作者于2006-4-21 19:21:17编辑过]

作者: qlm 时间: 2006-4-22 03:57
把代码放到时钟事件里啦.

作者: 羽佳 时间: 2006-4-22 05:29
放在时间事件吗？应该怎么放呢？请问您能说得详细点吗？

作者: 羽佳 时间: 2006-4-22 09:29
我顶,还有没有人能帮忙解决一下?

作者: 一点通 时间: 2006-4-22 16:58
[attach]17317[/attach]

作者: 羽佳 时间: 2006-4-22 18:03
谢谢一点通管理员,又学了一招~

作者: 羽佳 时间: 2006-4-23 00:09
一点通老师，在您修改后的例子里可以按ESC键来清除Text10框里的值，于是我照着您的代码用到别的数据库中就只有点在窗体中制作的取消控件才能清除文本框里的值，而点ESC只能清除别的控件里的值，我也搞不清楚我出在哪里，现在把我的代码发上来请您帮我看一下错在哪里。

Option Compare Database

Private Sub Form_Load()
Label22.Visible = False
操作员ID.Visible = False
Label25.Visible = False
收货人ID.Visible = False
Label27.Visible = False
发货日期.Visible = False
End Sub

Private Sub 订单编号_AfterUpdate()
   Call Form_current
End Sub

Private Sub 类别ID_AfterUpdate()
   Call Form_current
End Sub

Private Sub 区域ID_AfterUpdate()
   Call Form_current
End Sub

Private Sub 城市名字_AfterUpdate()
   Call Form_current
End Sub

Private Sub 运输公司_AfterUpdate()
   Call Form_current
End Sub

Private Sub 发货人_AfterUpdate()
   Call Form_current
End Sub

Private Sub 收货人_AfterUpdate()
   Call Form_current
End Sub

Private Sub 收货人电话_AfterUpdate()
   Call Form_current
End Sub

Private Sub 收货人地址_AfterUpdate()
   Call Form_current
End Sub

Private Sub 订货时间_AfterUpdate()
   Call Form_current
End Sub

Private Sub 发货时间_AfterUpdate()
   Call Form_current
End Sub

Private Sub 订单金额_AfterUpdate()
   Call Form_current
End Sub

Private Sub 备注_AfterUpdate()
   Call Form_current
End Sub

Private Sub Form_current()
Text50 = "编号: " & 订单编号 & vbNewLine & "类别: " & 类别ID & vbNewLine & "区域: " & 区域ID & vbNewLine & "城市: " & 城

市名字 & vbNewLine & "运输公司: " & 运输公司 & vbNewLine & "发货人: " & 员工ID & vbNewLine & "发货人: " & 客户ID & vbNewLine

& "收货人电话: " & 客户电话号码 & vbNewLine & "收货人地址: " & 客户地址 & vbNewLine & "订货时间: " & 订货时间 & " 发货时间" &

发货时间 & vbNewLine & "本订单金额: " & 本订单金额 & vbNewLine & 备注 & vbNewLine
Text50.Requery

End Sub

Private Sub command52_Click()
Me.Undo
Call Form_current
End Sub

Private Sub 是否发货_AfterUpdate()
If Me!是否发单 <> Yes Then
      Label22.Visible = False
      操作员ID.Visible = False
      Label25.Visible = True
      收货人ID.Visible = True
      Label27.Visible = True
      发货日期.Visible = True
Else
      Label22.Visible = True
      操作员ID.Visible = True
      Label25.Visible = False
      收货人ID.Visible = False
      Label27.Visible = False
      发单价格.Visible = False
End If
End Sub

Private Sub 是否发单_BeforeUpdate(cancel As Integer)
If Me!是否发单 <> Yes Then
   Label22.Visible = False
      操作员ID.Visible = False
      Label25.Visible = True
      收货人ID.Visible = True
      Label27.Visible = True
      发货日期.Visible = True
Else
      Label22.Visible = True
      操作员ID.Visible = True
      Label25.Visible = False
      收货人ID.Visible = False
      Label27.Visible = False
      发单价格.Visible = False
End If
End Sub
Private Sub 是否是货_AfterUpdate()
Call 保存_Click
End Sub

Private Sub 保存_Click()
Me.发货记录 = IIf([是否发货] <> No, "发货", "未发")
End Sub

作者: 一点通 时间: 2006-4-23 00:17
太长了,不是这些代码的问题,你再仔细看一下我给你的哪个按钮属性与你的按钮属性有什么不同,找出这个设置就行了,花点时间找一下吧

作者: 羽佳 时间: 2006-4-23 00:22
找到了，我没把控件里的一个设置设好，谢谢一点通老师。

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