Início![[Resolvido]Reverter para Maiusculo Empty](https://2img.net/i/empty.gif)
Agravina 20/7/2011, 00:16Tem alguma maneira de reverter para maiusculo,direto na tabela ou seja os dados que já estão na tabela?
3 participantes
[Resolvido]Reverter para Maiusculo
Agravina- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 1623
Registrado : 18/07/2010
criquio- Moderador Global
- Respeito às regras :
Sexo :
Localização :
Mensagens : 11229
Registrado : 30/12/2009
Tente assim:
Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("NomeDaTebela")
Do While Not rs.EOF
rs.Edit
rs!nome = StrConv(rs!nome, vbUpperCase)
rs.Update
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("NomeDaTebela")
Do While Not rs.EOF
rs.Edit
rs!nome = StrConv(rs!nome, vbUpperCase)
rs.Update
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
.................................................................................
Meu novo site: www.vcssistemas.com.br Clique aqui e veja um vídeo que explica como fazer pesquisas no forum. DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo: 1 - faça uma cópia do aplicativo 2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar 3 - use o Compactar/Reparar 4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem) Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário. Positive as mensagens que achar útil, no canto superior direito delas. |
Agravina- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 1623
Registrado : 18/07/2010
criquio vou testar
Agravina- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 1623
Registrado : 18/07/2010
Criquio não funcionou.
JPaulo- Moderador
- Respeito às regras :
Sexo :
Localização :
Mensagens : 11026
Registrado : 04/11/2009
Abra uma consulta nova em modo SQL, cole isto e altere para os nomes corretos;
UPDATE SuaTabela SET SuaTabela.SeuCampo = StrConv([SeuCampo],1);
UPDATE SuaTabela SET SuaTabela.SeuCampo = StrConv([SeuCampo],1);
.................................................................................
Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.
Pay-Pal R$ Aqui
Pay-Pal € Aqui
Ou ainda: Aqui (Novo)
Sucesso e Bons Estudos
Success and Good Studies
![[Resolvido]Reverter para Maiusculo Folder_announce_new](https://2img.net/i/fa/subsilver/folder_announce_new.gif)
Utilize o Sistema de Busca do Fórum... 102 Códigos VBA Gratuitos... Instruções SQL como utilizar...
JPaulo- Moderador
- Respeito às regras :
Sexo :
Localização :
Mensagens : 11026
Registrado : 04/11/2009
Aproveite e veja este tópico;
http://maximoaccess.forumeiros.com/t581-funcoes-esquecidas-no-ms-access
http://maximoaccess.forumeiros.com/t581-funcoes-esquecidas-no-ms-access
.................................................................................
Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.
Pay-Pal R$ Aqui
Pay-Pal € Aqui
Ou ainda: Aqui (Novo)
Sucesso e Bons Estudos
Success and Good Studies
Utilize o Sistema de Busca do Fórum... 102 Códigos VBA Gratuitos... Instruções SQL como utilizar...
Agravina- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 1623
Registrado : 18/07/2010
Obrigado Mestre funcionou ! Só mais uma pergunta como fica para mais de um campo?
JPaulo- Moderador
- Respeito às regras :
Sexo :
Localização :
Mensagens : 11026
Registrado : 04/11/2009
Através de uma simples virgula, assim;
UPDATE SuaTabela SET SuaTabela.Campo1 = StrConv([Campo1],1), SuaTabela.Campo2 = StrConv([Campo2],1);
UPDATE SuaTabela SET SuaTabela.Campo1 = StrConv([Campo1],1), SuaTabela.Campo2 = StrConv([Campo2],1);
.................................................................................
Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.
Pay-Pal R$ Aqui
Pay-Pal € Aqui
Ou ainda: Aqui (Novo)
Sucesso e Bons Estudos
Success and Good Studies
Utilize o Sistema de Busca do Fórum... 102 Códigos VBA Gratuitos... Instruções SQL como utilizar...
Agravina- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 1623
Registrado : 18/07/2010
o segundo campo não deu certo veja como esta consulta
UPDATE contatos SET contatos.nome = StrConv([nome],1), contatos.cidade = StrConv([Cidade],1);
UPDATE contatos SET contatos.nome = StrConv([nome],1), contatos.cidade = StrConv([Cidade],1);
JPaulo- Moderador
- Respeito às regras :
Sexo :
Localização :
Mensagens : 11026
Registrado : 04/11/2009
Tem de funfar;
O SET dos Update`s com mais de um campo, são sempre separados por uma virgula.
Fiz o teste aqui e funfou.
O SET dos Update`s com mais de um campo, são sempre separados por uma virgula.
Fiz o teste aqui e funfou.
.................................................................................
Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.
Pay-Pal R$ Aqui
Pay-Pal € Aqui
Ou ainda: Aqui (Novo)
Sucesso e Bons Estudos
Success and Good Studies
Utilize o Sistema de Busca do Fórum... 102 Códigos VBA Gratuitos... Instruções SQL como utilizar...
Agravina- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 1623
Registrado : 18/07/2010
como esta a consulta ai?
JPaulo- Moderador
- Respeito às regras :
Sexo :
Localização :
Mensagens : 11026
Registrado : 04/11/2009
O teste que fiz aqui está;
UPDATE tblExemplo SET tblExemplo.nome = StrConv([nome],1), tblExemplo.cidade = StrConv([Cidade],1);
http://dl.dropbox.com/u/771097/Agrav.rar
UPDATE tblExemplo SET tblExemplo.nome = StrConv([nome],1), tblExemplo.cidade = StrConv([Cidade],1);
http://dl.dropbox.com/u/771097/Agrav.rar
.................................................................................
Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.
Pay-Pal R$ Aqui
Pay-Pal € Aqui
Ou ainda: Aqui (Novo)
Sucesso e Bons Estudos
Success and Good Studies
Utilize o Sistema de Busca do Fórum... 102 Códigos VBA Gratuitos... Instruções SQL como utilizar...
criquio- Moderador Global
- Respeito às regras :
Sexo :
Localização :
Mensagens : 11229
Registrado : 30/12/2009
Concomitante ao exemplo do mestre, deixo o exemplo que eu testei conforme acima mencionei e que aqui funcionou certinho:
http://dl.dropbox.com/u/5454503/ReverteMausculas.mdb
http://dl.dropbox.com/u/5454503/ReverteMausculas.mdb
.................................................................................
Meu novo site: www.vcssistemas.com.br Clique aqui e veja um vídeo que explica como fazer pesquisas no forum. DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo: 1 - faça uma cópia do aplicativo 2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar 3 - use o Compactar/Reparar 4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem) Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário. Positive as mensagens que achar útil, no canto superior direito delas. |
JPaulo- Moderador
- Respeito às regras :
Sexo :
Localização :
Mensagens : 11026
Registrado : 04/11/2009
Resolveu ?
.................................................................................
Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.
Pay-Pal R$ Aqui
Pay-Pal € Aqui
Ou ainda: Aqui (Novo)
Sucesso e Bons Estudos
Success and Good Studies
Utilize o Sistema de Busca do Fórum... 102 Códigos VBA Gratuitos... Instruções SQL como utilizar...
Agravina- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 1623
Registrado : 18/07/2010
Resolvido valeu Jpaulo.http://www.speedyshare.com/files/29525620/Banco_de_Dados1.accdb