[Resolvido]Update em todos os registros da Tabela via VBA

Amigos estou tentando mas não estou a conseguir...

'Modifica o status do campo selecionado na tebela voltando todos ao status "Desmarcado"

db.Execute "UPDATE Contatos SET Selecionado=1 WHERE Selecionado = -1;"

MsgBox "Registro alterado com sucesso.", vbOKOnly + vbInformation, "Alterado"

Tenho essa mesma função para um registro mas gostaria de atualizar todos os registros no campo Selecionado

COmo fazer?

Grato

E assim:

db.Execute "UPDATE Contatos SET Selecionado=0 WHERE Selecionado = -1;"

hehehehehehe

Saudações

Amigos... para adicionar no lugar do db.execute.. é db.AddNew??

Pode usar o Execute mesmo mudando de UPDATE para INSERT INTO

Não deu amigão...


db.Execute " INSERT INTO tbl_Enviados SET Para='" & Me.emailpara.Value & "', Assunto='" & Me.cxAssunto.Value & "', Mensagem='" & Me.cxCorpo & "'," _
& " Anexo1='" & Me.txtAnexo1 & "', Anexo2='" & Me.txtAnexo2 & "', Anexo3='" & Me.txtAnexo3 & "';"
MsgBox "Os E-Mail's foram enviados para caixa de Saída.", vbOKOnly + vbInformation, "Enviado"

Modelo para adaptar:

db.Execute "INSERT INTO tblCaminho(Código, cmpCaminho) Values('1', """ & CaminhoApp & """);"

Amigão.. utilizei um recordSet... deu certo

StrCaixaSaida = ("SELECT * FROM tbl_Enviados")

Set rs = db.OpenRecordset(StrCaixaSaida)

rs.AddNew ' Abre a edição do registro

'********PÁGINA 01*************************************************************************
rs![Para] = Me.emailpara
rs![Assunto] = Me.cxAssunto
rs![Mensagem] = Me.cxCorpo
rs![Anexo1] = Me.txtAnexo1
rs![Anexo2] = Me.txtAnexo2
rs![Anexo2] = Me.txtAnexo3
' Atualiza os dados na tabela
rs.Update
MsgBox "Os E-Mail's foram enviados para caixa de Saída.", vbOKOnly + vbInformation, "Enviado"

Se está resolvido, resolvido está