怎样使员工窗体停下来,修改数据后再出现删除提示

付谦

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

没有看懂问题

付谦

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

aslxt

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

付谦

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

aslxt

把示例库传上来吧

付谦

点员工档案---删除记录----确定-------出现警告
我要的是按确定后，出现了员工窗体，在没有修改内容前，不要出现警告窗体

aslxt

不知道是否适合

付谦

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

djt

docmd.openform "name",acnormal,,,,acdialog