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

付谦

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

djt

DoCmd.OpenForm ("员工"), , , "姓名='" & MM & "'", , acDialog
把该窗体的数据入口改为否

付谦

10楼提供的语句虽然窗体不动,是空窗体,显示不了准备删除的记录.

djt

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

Henry D. Sy

什么叫停下来？

djt

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

付谦

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

aslxt

不知道是否适合

付谦

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

aslxt

把示例库传上来吧