批量删除子窗体中记录的代码，各位老师有空帮我看看错在哪里。

大白菜小白菜

代码是用论坛里一位前辈的，用在我这里就不能实现批量删除，且只能删除一条记录。不知道问题在哪里，各位老师有空帮我看看。我用的access2013，谢谢你们！

zhidao

落后了我，我还在用07版的。

大白菜小白菜

“城内交易查询”里的“删除记录”按钮事件

大白菜小白菜

zhidao 发表于 2015-1-27 16:37
落后了我，我还在用07版的。

还是谢谢你！

风中漫步

贴下代码,帮你看看

zhidao

大白菜小白菜 发表于 2015-1-27 16:40
还是谢谢你！

你把代码放上吧

roych

代码没错，但DoCmd.RunCommand acCmdDeleteRecord不太适用子窗体模式。原因在于子窗体获取焦点之后，没法进一步多选。建议启用SQL模式，增加一个“是否字段”用来选择，然后再写Docmd runSQL "delete from 表 where 选择=true"

大白菜小白菜

Private Sub 删除_Click()
' 删除数据表窗体多条记录并提示的一种方法,与各位探讨
' 小宝(tcl013@126.com) 于2008年4月30日
Dim x As Integer, i As Integer
Dim c As Integer                 '选择删除的记录数
Dim s As String                  '关键字段值
Dim rst As DAO.Recordset         '子窗体记录集
Dim b As Boolean                 '判断是否从上到下选
With Me.交易信息查询子窗体.Form
    c = 1
    If .SelHeight > 1 Then            '判断是否选择多条
        x = .SelWidth - 1
        .SelWidth = x
        If .SelWidth = x Then         '判断是否使用记录选定器来选择,如果能更改SelWidth则不是使用记录选定器
            .SelWidth = x + 1
        Else
            c = .SelHeight
            If .SelTop = .CurrentRecord Then b = True     '判断是否从上到下选
        End If
    End If
   
    If c > 1 Then
        ' 获取并同步子窗体记录集
        Set rst = .RecordsetClone
        If .NewRecord Then                    ' 如果从新记录向上选,则记录集移到最后一条,记录数-1
            rst.MoveLast
            c = c - 1
        Else
            rst.Bookmark = .Bookmark
        End If
        
        Do Until i = c
            s = s & rst!商家名称 & ";"
            i = i + 1
            If b Then
                rst.MoveNext
                If rst.EOF Then c = c - 1     ' 如果向下选,并选择了新记录,则记录数-1
            Else
                rst.MovePrevious
            End If
        Loop
        Set rst = Nothing
        s = Left(s, Len(s) - 1)
    Else
        If .NewRecord Then Exit Sub
        s = .商家名称
        Me.交易信息查询子窗体.SetFocus
        DoCmd.RunCommand acCmdSelectRecord
    End If
End With
    ' 删除记录
    If MsgBox("您确定要删除 " & c & " 条商家名称为：“" & s & _
        "”的记录吗？", vbExclamation + vbYesNo, "删除提示") = vbYes Then
        DoCmd.SetWarnings False
        DoCmd.RunCommand acCmdDeleteRecord
        DoCmd.SetWarnings True
        DoCmd.RunCommand acCmdSelectRecord
'        MsgBox "  删除成功。           ", vbInformation, "删除提示"
    End If
End Sub

大白菜小白菜

roych 发表于 2015-1-27 16:57
代码没错，但DoCmd.RunCommand acCmdDeleteRecord不太适用子窗体模式。原因在于子窗体获取焦点之后，没法进 ...

谢谢你 ！

大白菜小白菜

roych 发表于 2015-1-27 16:57
代码没错，但DoCmd.RunCommand acCmdDeleteRecord不太适用子窗体模式。原因在于子窗体获取焦点之后，没法进 ...

我用的复选框实现了批量删除，可是又出现了这个问题。有空帮我看看代码要怎么改，谢谢你！  http://www.office-cn.net/thread-119399-1-1.html