删除提示怎么改？

J哥　发表于：2010-05-13 17:06:06 　

Private Sub 删除_Click()
On Error GoTo Err_删除_Click

Dim STemp As String

Dim i As Integer

Dim rs As ADODB.Recordset

Set rs = New ADODB.Recordset

STemp = "Select * From 单位人事资料"

rs.Open STemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

    rs.MoveFirst

    For i = 1 To rs.RecordCount

        If rs("xh") = Me![单位人事资料子窗体]![xh] Then

            rs.Delete 1

            i = rs.RecordCount + 1
        Else

            rs.MoveNext
        End If
    Next i

    MsgBox "此条记录已经删除完成！", vbOKOnly, "温馨提醒您"    ？？？请问在这里怎么删除提示，点“是”删除，“否”不删除？请问怎样改？

    Me![单位人事资料子窗体].Requery

    Set rs = Nothing
Exit_删除_Click:
    Exit Sub
Err_删除_Click:
    MsgBox Err.Description
    Resume Exit_删除_Click
End Sub

Top

煮江品茶发表于：2010-05-13 17:09:08

vbOKOnly改为vbyesno

Top

J哥发表于：2010-05-13 17:14:28

就这样改行吗

Top

J哥发表于：2010-05-13 17:15:57

按你这样 “否”也删除了。

Top

J哥发表于：2010-05-13 17:21:53

点“是”删除，点“否”不删除请问怎么做？

Top

煮江品茶发表于：2010-05-13 17:32:32

呵呵，鬼打架。

If MsgBox("提示语", vbYesNo) = vbYes Then

　　．．．．．

Else

　　．．．．

End If

Top

煮江品茶发表于：2010-05-13 17:39:12

．．．．．．

STemp = "Select * From 单位人事资料 where xh=" & Me![单位人事资料子窗体]![xh]
rs.Open STemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

For i = 1 To rs.RecordCount
     rs.Delete 1
     if msgbox("是否删除？"", vbYesNo) = vbYes Then
        rs.update
     end if
     rs.MoveNext
Next i

．．．．．．

Top

J哥发表于：2010-05-13 18:55:40

谢谢各位，搞定了

Private Sub 删除_Click()
On Error GoTo Err_删除_Click

If MsgBox("记录删除后不能恢复，你确定删除选中的数据吗？", vbYesNo, "删除数据") = vbYes Then
DoCmd.RunSQL "DELETE 单位人事资料.xh FROM 单位人事资料 where xh=" & Me![单位人事资料子窗体]![xh]
End If
Me![单位人事资料子窗体].Requery

Exit_删除_Click:
Exit Sub

Err_删除_Click:
    MsgBox Err.Description
    Resume Exit_删除_Click

End Sub

Top

总记录：7篇页次：1/1 9 1 :

Access交流中心

删除提示怎么改？