你能帮我解决这些问题吗？

简

问题1：

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

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

简

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

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

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

ququ

确认里面有没有这个窗体，这个窗体内是否有这个控件？

简

楼上的，我没有明白你的意思。

sweetduck

问题1来源可能是缺少对应数据源，检查所有控件对应的数据源是否有缺失

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

简

第1个问题，我再查查。

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

sweetduck

那你就在需要验证重复数据的控件的更新事件中加入判断
最方便就是用DLookup()或Dcount()

简

对于第1个问题，我还是没有找到原因，请看库。

简

对于第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

第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编辑过]