Office中国论坛/Access中国论坛

标题: 怎样使员工窗体停下来,修改数据后再出现删除提示 [打印本页]

作者: 付谦 时间: 2009-9-2 16:33
标题: 怎样使员工窗体停下来,修改数据后再出现删除提示
本帖最后由付谦于 2009-9-2 17:10 编辑

Private Sub Cmd删除记录_Click()
  Dim tixing As String
  Dim MM As String
  Dim CC As Integer
Forms![员工档案]![员工简况].SetFocus
MM = Forms![员工档案]![员工简况]![姓名].Value
CC = DCount("姓名", "员工流动", "姓名='" & MM & "'")
MsgBox (CC)
If CC = 0 Then
DoCmd.OpenForm ("员工")
   Forms!员工.Filter = "姓名='" & MM & "'"
   Forms!员工.FilterOn = True
   Forms!员工.Requery
Forms![员工].SetFocus
  Forms![员工]!Child169!流动类型.Locked = False
  Else
  End If
  Forms![员工档案]![员工简况].SetFocus
   tixing = MsgBox("　真得要从在册库中删除" & Chr(13) & Chr(10) & Chr(10) & "    " & MM & Chr(13) & Chr(10) & Chr(10) & "  并将其存入减少库吗？", 1, "警告！")
   If tixing = 1 Then
CurrentDb.Execute "INSERT INTO [减少员工流动]  SELECT * FROM [员工流动] where [员工流动]![姓名]='" & MM & "';"
;"
-------------------------------------------
Else
End If
Forms![员工档案]![员工简况].Requery

End Sub

作者: aslxt 时间: 2009-9-2 17:35
没有看懂问题

作者: 付谦 时间: 2009-9-2 17:54
代码能够运行,只是原想打开“员工”窗体后，在此窗体上停留，修改内容后，再执行tixing = MsgBox("　真得要从在册库中删除" & Chr(13) & Chr(10) & Chr(10) & " " & MM & Chr(13) & Chr(10) & Chr(10) & " 并将其存入减少库吗？", 1, "警告！") ，现在问题是“员工”窗体不停留，无法修改内容，就出现删除提示了，如何解决这个问题？

作者: aslxt 时间: 2009-9-2 18:06
要分为两步操作：
1 、打开窗体并筛选，代码执行到Forms![员工档案]![员工简况].SetFocus 处
2、删除，在“员工”增加【确认删除】命令按钮，代码从tixing =...开始

作者: 付谦 时间: 2009-9-2 20:03
能不能在 End If 与
Forms![员工档案]![员工简况].SetFocus 之间，加入语句，使 “员工”窗体成为当前窗体，待其中的内容修改无误后再执行tixing = MsgBox("　真得要从在册库中删除" & Chr(13) & Chr(10) & Chr(10) & " " & MM & Chr(13) & Chr(10) & Chr(10) & " 并将其存入减少库吗？", 1, "警告！") 。我不知道需加入何语句，请帮助。

作者: aslxt 时间: 2009-9-2 20:24
把示例库传上来吧

作者: 付谦 时间: 2009-9-2 22:28
点员工档案---删除记录----确定-------出现警告
我要的是按确定后，出现了员工窗体，在没有修改内容前，不要出现警告窗体

作者: aslxt 时间: 2009-9-3 09:13
不知道是否适合

作者: 付谦 时间: 2009-9-3 09:50
可能我没有讲清楚,要的是按确定后，出现员工窗体，成为当前窗体,供用户修改其中内容.现在问题是:内容还没有修改,就出现了警告窗体,员工窗体上的内容无法修改.8楼的办法不要警告语句,当然就无警告窗体了,我的意思是,警告窗体只有修改了员工窗体上的内容关闭员工窗体后才让它出现.

作者: djt 时间: 2009-9-3 10:00
docmd.openform "name",acnormal,,,,acdialog

作者: Henry D. Sy 时间: 2009-9-3 10:01
什么叫停下来？

作者: djt 时间: 2009-9-3 10:03
docmd.openform "name",acnormal,,,,acdialog

作者: 付谦 时间: 2009-9-3 11:39
10楼提供的语句虽然窗体不动,是空窗体,显示不了准备删除的记录.

作者: djt 时间: 2009-9-3 11:53
DoCmd.OpenForm ("员工"), , , "姓名='" & MM & "'", , acDialog
把该窗体的数据入口改为否

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