Office中国论坛/Access中国论坛

标题: 你能帮我解决这些问题吗？ [打印本页]

作者: 简 时间: 2004-5-7 08:36
标题: 你能帮我解决这些问题吗？
问题1：

我不知这个框是怎么来的，我把所有的查询都删除了，可打开这个表，就是叫我输入品号。这个DESC又是什么东西，应该如何取消呢？

[attach]4575[/attach]

[此贴子已经被作者于2004-5-7 1:23:26编辑过]

作者: 简 时间: 2004-5-7 09:33

问题2：如何解决这个提示框？

我在添加记录中，有意输入了重复的品号，结果出现下列提示框。我想了好半天，才觉得，出现这个提示框是因为表中的品号设为了主键，在索引上是不允许重复的，我所分析的这个原因对吗？

现在我嫌这个提示框显示的内容太烦琐，我就问，如何取消这个提示框，用我自定义的消息框来代替呢？

[attach]4576[/attach]

作者: ququ 时间: 2004-5-7 17:16
确认里面有没有这个窗体，这个窗体内是否有这个控件？

作者: 简 时间: 2004-5-7 17:36
楼上的，我没有明白你的意思。

作者: sweetduck 时间: 2004-5-9 00:19
问题1来源可能是缺少对应数据源，检查所有控件对应的数据源是否有缺失

问题2原因是重复数据，请确认数据源表里是否设置了（无重复）索引

作者: 简 时间: 2004-5-9 05:20
第1个问题，我再查查。

第2个问题，我是有意让它重复，我不想显示这个默认的提示框，它太繁琐，所以我想知道，有没有办法取消这个提示框，用我自定义的消息框来代替呢？

作者: sweetduck 时间: 2004-5-9 05:40
那你就在需要验证重复数据的控件的更新事件中加入判断
最方便就是用DLookup()或Dcount()

作者: 简 时间: 2004-5-9 06:05
对于第1个问题，我还是没有找到原因，请看库。
[attach]4590[/attach]

作者: 简 时间: 2004-5-9 06:13
对于第2个问题，因重复输入产生的提示框我解决不了就换了个方式，现在我就拿“删除”来说明取消系统默认框的问题。

我的删除代码如下，当我点击“删除“按钮后，弹出的是系统的默认框，而不是我自定义的消息框，那么，我的代码在哪出现问题呢？

Private Sub 命令26_Click()
On Error Resume Next
DoCmd.RunCommand acCmdDeleteRecord
End Sub

Private Sub 命令26_beforedelconfirm(Cancel As Integer, Response As Integer)
If MsgBox("是否确定删除？", 32, "删除提示") = 7 Then '按下否按钮
Cancel = True '中止删除
Else: Me![删除] = Yes
End If
Response = acDataErrContinue
End Sub

Private Sub 命令26_afterdelconfirm(status As Integer)
If status = acDeleteOK Then
Me![品号].Requery
End If
End Sub

作者: sweetduck 时间: 2004-5-9 06:46
第1问我只是重新对品号进行排序就恢复了正常
估计是排序出现了错误
DESC好象就是排序

你的删除代码太复杂了

我简写如下

Private Sub 命令26_Click()

If MsgBox("是否确定删除？", vbYesNo, "删除提示") = vbYes Then '按下是按钮

DoCmd.SetWarnings False '关闭系统提示

DoCmd.RunCommand acCmdDeleteRecord '删除操作

DoCmd.SetWarnings True '打开系统提示

End If

End Sub

[此贴子已经被作者于2004-5-8 22:47:44编辑过]

作者: 简 时间: 2004-5-9 06:57
你没有注意到 “Else: Me![删除] = Yes”的作用。

我的意思是，如果确认了删除，就给这个记录打上删除标志。删除是Tab外协详细信息表的一个字段名，其属性为“是/否"。

作者: sweetduck 时间: 2004-5-9 07:01
把你这句加进去就可以了啊

作者: 简 时间: 2004-5-9 07:16
试了，出现了自定义的消息框，但点击是后，却没有任何反应，即记录没有删除，也没有打上删除标志。

作者: sweetduck 时间: 2004-5-9 07:19
我想是没有选择需要操作的记录
你直接用向导按钮添加删除按钮
然后在删除语句的前后加上刚才的对话框判断

作者: 简 时间: 2004-5-9 07:38
我照你的话试了，没有打上删除标志，而记录倒是删掉了。

我今晚再找找原因，明晚再来向你请教，好吗？

而现在，我都[em19][em19][em19]~~~~

作者: sweetduck 时间: 2004-5-9 07:45
你的目的是为当前确认删除的记录打上删除标记是不是？

这个很简单啊！

Private Sub 命令26_Click()

If MsgBox("是否确定删除？", vbYesNo, "删除提示") = vbYes Then '按下是按钮

Me.[数据来源为记录删除是否字段的窗体控件] = True '为当前记录添加删除标记

End If

End Sub

[此贴子已经被作者于2004-5-8 23:46:18编辑过]

作者: hi-wzj 时间: 2004-5-9 18:58
第一个问题的原因是：您对表的一个字段进行了排序，并保存了这种排序结构，但后来您又进入了表设计视图中将该字段删除掉了。您再次打开表视图时，数据进行排序显示时，缺少了该字段，因此提示。
您点确定后进入随便点一个现有的字段进行排序一下并保存就是了。或者，若是在表中的排序，在其设计视图的索引（工具栏中）中删除该字段的索引。若是打开窗体时有提示，则在其设计窗体中排序或筛选的属性中清除。

作者: wdlyd 时间: 2004-5-9 23:55
第一个问题的解决是：在表的设计页面里选择菜单里的-插入--索引，看看就知道了~~

作者: 简 时间: 2004-5-10 05:20

我在删除功能上，只能删除记录，却不能打上删除标志。原因应正如你所说的，是没有选择需要操作的记录。

我在修改过程中，就遇到一个问题，me的提示单里只有更改，找不到删除。如图所示。要知更改删除都是一张表里的字段，其属性都一致呀。

我弄了一个下午，还是没有解决。现把库传上来，请大伙儿帮我看看，帮我改改。

注意我的要求，不删除记录，只是在删除字段名上打上标志。

在此先谢了。

[attach]4597[/attach]

[attach]4596[/attach]

作者: 简 时间: 2004-5-10 05:24
对于第1个个问题的解决，简在此向大家道谢，简又学到了点点东西了。：）

作者: sweetduck 时间: 2004-5-10 05:42
[attach]4598[/attach]

改好了
注意删除按钮旁新增删除控件，显示设置为否

你的问题就是没有在窗体上引用删除这个字段

作者: 简 时间: 2004-5-10 07:41
我想知道，你加在删除按钮旁的删除控件，跟我选项卡上附加信息中的删除，又有何区别呢？

它们的来源，最终都是那张详细信息表呀。

作者: sweetduck 时间: 2004-5-10 18:15
你如果要用附加信息的删除控件，就必须将代码指向你的选项卡中的子窗体
而你写的代码 me.[删除] 则仅指当前主窗体
当然操作也只能针对主窗体上的删除控件而不是选项卡中子窗体的删除控件
而且我看了你的选项卡，编辑得太复杂了
套用了至少三层子窗体
这样对控件的引用很不方便
为什么不做成弹出式窗口

作者: 简 时间: 2004-5-11 05:09
是这样的，本来这个产品的包括的信息就非常多，按照分类来说，就是尺寸信息，设计信息，附加信息以及修理信息。本来我想把这些信息用一张表来表示，结果是不可能的，这可以从修理信息中理解，所以我把修理信息单独做成一张表，并建立了关系。

我的想法是，只要输入了品号，就把这些所有信息都显示出来。我曾做了几种样式，比如说组合框，选项卡，treeview等，最后觉得，好像只有选项卡能满足我这个条件似的。我把品号放在选项卡外，同时在四个网页里设子窗体，这样当在主窗体里输入品号后，选项卡里就可自动查找及切换记录。而选项卡要达到这一要求，就不得不用子窗体了。

以上是我的理解，自有不对的地方，所以还请你及大伙儿给我指点思路，提出好的建议。

在此先谢谢了。

作者: 简 时间: 2004-5-11 07:41
谢谢，删除问题解决了。

[此贴子已经被作者于2004-5-11 0:41:48编辑过]

作者: sweetduck 时间: 2004-5-11 07:41
我个人认为你这样进行子窗体的嵌套，的确是复杂了点
从功能上说可以实现你的目的
但在设计和程序编写上造成了很大的困难
对于控件的引用容易造成混乱
设计程序不仅要方便别人，也要便于设计者本身对程序的维护

作者: 简 时间: 2004-5-11 07:48
那你根据我所说的目的和功能，有什么好的建议呢？

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