Office中国论坛/Access中国论坛

标题: 我是一个初学者,有两个问题请各位高手指教,感激涕零!! [打印本页]

作者: chunyi 时间: 2004-12-26 01:42
标题: 我是一个初学者,有两个问题请各位高手指教,感激涕零!!
两个问题请指教,感激!!!!!!!!!

1\在录入数据时,比如:客户档案窗体中,我想在填加新记录时,各个文本框才可以修改数据,不是填加新记录时,是不可以修改记录的,只可以以只讲读的方式看,

2\在录入产品档案窗体中时,录入类别时,如果产品类别是没有的新类别,是不是以下代码?

If MsgBox("输入之类别找不到，是否要立即添加？", 4) = 6 Then

   DoCmd.OpenForm "产品类别", , , , acFormAdd  '开启产品类别窗体

   Forms![产品类别]![产品类别] = Me![产品类别].Text

   Response = acDataErrContinue

   'Forms![客户]![Command12].Enabled = True

Else

SendKeys "{escape}" '若不要添加，则还原?

为什么系统不执行上面的代码?是代码不对吗?[attach]8294[/attach]

作者: Trynew 时间: 2004-12-27 18:38
第一个问题，在成为当前事件中判断主关键字是否为空来设置能否编辑：

Private Sub Form_Current()

If IsNull(Me.客户姓名) Then

      Me.AllowEdits = True

Else

      Me.AllowEdits = False

End If

End Sub

第二个问题，首先要把下拉列表框的数据属性选项页的“限于列表”设为“是”，才会触发“不在列表”事件。另外还要在产品类别窗体关闭时更新下拉列表框的数据。

   [attach]8324[/attach]

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