ник: Diamand
Добрый день подскажите как программно удалить записи если строка не пустая (там уже есть запись)
Public Sub s1()
Dim bd As Database, tab1 As Recordset
Dim str As String
Dim strSQL As String
Set bd = DBEngine.Workspaces(0).Databases(0)
Set tab1 = bd.OpenRecordset("betaПриход")
Do Until tab1.EOF
tab1.Edit
If Not IsNull(tab1!comment) Then
strSQL = "DELETE [tab1].comment from [tab1]"
End If
tab1.MoveNext
Loop
End Sub
|
пробовал вместо strSQL = "DELETE [tab1].comment from [tab1]" так
strSQL = "DELETE [betaПриход].comment from [betaПриход]"