Utilizem este procedimento
- Código:
Sub UPDATE(strNomeTab As String, strInstrucaoSET As String, Optional MostraQtAlterados As Boolean = False)
'--------------------------------------------------------------'
' código criado por Alexandre Neves, do Fórum MaximoAccess '
' utilize o código livremente mas mantenha os créditos '
'--------------------------------------------------------------'
'Exemplo com opção de mostrar quantidade de registos afectados
'Call UPDATE("Tabela","Campo=X",True) em vez de UPDATE Tabela SET Campo=X
'Exemplo com opção de mostrar quantidade de registos afectados
'Call UPDATE("Tabela","Campo=X") em vez de UPDATE Tabela SET Campo=X
Dim qdf As QueryDef
Set qdf = CurrentDb.CreateQueryDef("qdf" & strNomeTab, "SELECT * FROM " & strNomeTab)
If MostraQtAlterados Then
With CurrentDb
.Execute "UPDATE qdf" & strNomeTab & " SET " & strInstrucaoSET
MsgBox .RecordsAffected
End With
Else
CurrentDb.Execute "UPDATE qdf" & strNomeTab & " SET " & strInstrucaoSET
End If
CurrentDb.Execute "DROP TABLE qdf" & strNomeTab
End Sub