[Resolvido]Deletar alguns campos da tabela!

Olha eu de novo!

Tenho uma tabela "TabTransporte" com 6 campos: campo1, campo2, campo3, campo4, camp5 e camp6!
Ao clique do botão queria deletar os campos: campo4, campo5, e campo6! Tentei por aqui mas está deletando toda os campos.

Alguem pode me ajudar? O irmão Lupércio agradece!

O form é acoplado a tabela?

Sim Harysohn!

Ao clique do botão


Dim db As DAO.Database
Dim Rs As DAO.Recordset
Dim StrSQL As String


Set db = CurrentDb

StrSQL = ("SELECT * FROM TabTransporte")

Set Rs = db.OpenRecordset(StrSQL)

Do While Not Rs.EOF
Rs.Edit
Rs![Campo4] = ""
Rs![Campo4] = ""
Rs![Campo6] = ""
Rs.Update
Rs.MoveNext

Loop

Set Rs = Nothing
db.Close

Valeu Harysohn você é um gênio, obrigado!

Tu não dorme não? hehehe

Não se esqueça de clicar no joinha da mensagem que o auxiliou.

Cumprimentos.

Harysohn fiz os testes aqui não está deletando os campos!


erro 3421

erro de conversão de tipo de dados

Deu certo aqui amigo encerrado o tópico!

Depura pra que linha?

O que era?

Não posso dizer seguramente, lembra do form com os controles daquele form que não copilavam seu código?
Coloquei os campos na tabela e direcionei eles para a tabela e não funcionou com este seu código, ai criei um form novo com os campos diretos da tabela ai funcionou legal! Obrigado vou postar outro tópico até!

O Fórum agradece o retorno.

Bom dia HARYSOHN,
Aproveitando esse tópico, tenho um formulário acoplado á uma determinada tabela mas contem 2 campos de uma outra tabela que esta relacionada. Como faço para deletar esses dois campos?
Grato

Ops!!

Tente mudar o nome da tabela onde estão os campos que quer deletar.
Não se esqueça de mudar os nomes dos campos que quer deletar.



Dim db As DAO.Database
Dim Rs As DAO.Recordset
Dim StrSQL As String


Set db = CurrentDb

StrSQL = ("SELECT * FROM Sua tabela")

Set Rs = db.OpenRecordset(StrSQL)

Do While Not Rs.EOF
Rs.Edit
Rs![Campo4] = ""
Rs![Campo4] = ""
Rs![Campo6] = ""
Rs.Update
Rs.MoveNext

Loop

Set Rs = Nothing
db.Close

Vlw pelo retorno,
coloquei o código informado fiz as alterações mas esta dando o mesmo erro que estava no seu,

erro 3421

erro de conversão de tipo de dados

Ola amigo se puder poste parte do banco!

Olá Lupércio,
Segue anexo bd. Veja bem tenho uma tabela "CadReserva" e outra "CadApartamentos relacionadas um para muitos. Criei um formulário "CadRserva" com 2 campos da tabela CadApartamentos nome: [Res_Dta_Ent] e [Res_Dta_Saida]. Quando deleto apaga só os campos da tabela "CadReserva".
Obrigado

E da tabela CadApartamentos, você quer deletar o que?
Já que nela está cadastrados os apartamentos.
Se eu entendi você quer deletar as datas e horários?
Me explique melhor por favor.

Olá Lupércio,
Isso mesmo, quero que quando deletar o registro no formulário "CadReserva" apague os dados da tabela cadreserva e a data entrada e data saída da tabela Cadapartamentos.
Grato