GilbertoB

Aee :lol: agora entendi, já testei aki e deu certo vlw Kuroi pela ajuda e vlw Fercosming pelo exemplo corintiano é sempre jente boa por isso eu sou corintiano :D

Kuroi desculpa se to tomando tempo ^_^ mas é que ainda não tenho muita experiencia no vb, sera que poderia me da um exemplo de como usa essa função Replace() ?

Primeiramente quero agradecer por estar me ajudando, o que ocorre aqui é que tenho um sistema de cadastro com um campo "Observações" e nesse compo usa muito ' e " tentei usar o que você postou mas continua dando erro de sintaxe mesmo usando só a aspas simples, poderia desabilitar as aspas na textbox mas ficaria meio estranho porque tem horas que você tem usalas, se souber de algo eu agradeço. Eu não tenho muita esperiencia com o VB 6, agradeço se tiver pasciencia de continuar me ajudando :D

é memorando mesmo que salvei coloquei o nome errado :blush: mas ai quando coloco ' ou " ele da erro de sintaxe e como eu preciso salvar um texto que pode ter todos ascentos intão não vai da.

Estou com o seguinte problema, tenho que armazenar um texto muito grande no acess e como o campo texto só supota 255 caracteres então coloquei o campo como manuscrito mas ai quando coloco o ascento ' ou " ele da erro de sintaxe, alguém poderia me ajudar a resolver o problema ou me dizer otra forma de armazenar um texto com mais de 1500 caracteres ?

Vlw Danleonhart, é que não sabia como pegar o mes atual ^_^ Não tinha nem ideia de como usar o calendario :blush: mas com sua explicação ficou facil :D Agora entendi tudo fiz até algumas mudanças com os anos do calendario fico bem legal :)

Tenho um calendario MonthView no meu projeto e queria fazer mais 2 calendarios ai ficaria assim um mostrando a data atual um mostrando um mes antes e o outro mostrando um mes depois, alguém sabe como fazer isso ?

Era isso mesmo, vlw pela ajuda ^_^

Estou com um problema com meu projeto, acontece que tenho algumas OptionButton e salvo o valor contido na propriedade Value que no caso do OptionButton seria True ou False em um campo do banco de dados depois quando vou carregar o form com os dados preecho os campos Value dos OptionButton, mas o problema é que o meu banco de dados esta gravando os dados True e False em português que fica Verdadeiro e Falso, e quando o Value do OptionButton é preenchida da erro. Pelo que parece o problema é no banco, sera que podem me ajudar ? ^_^

Como faço pra nomear as colunas do meu FlexGrid ? Gostaria de por a Primeira coluna como Codigo a segunda como Nome e a terceira como Data, como se fosse um cabeçalho, alguém pode me ajudar ? :D

Deu certo aqui quando fui testa o código que você mando eu esqueci da aspa :blush: ai deu certo; é que o WHERE ta va no campo Nome ai eu estava usando texto agora mudei pro Codigo e esqueci que tinha que musa as aspas também :lol: vlw mano pela ajuda ^_^

Eu sei que não é aconselhável mas estava sem pratica ai quando vi já tinha posto e como não deu nenhum problema deixei assim mesmo ^_^ Testei o código e deu o seguinte erro : Run-time error '-2147217900(80040e14)': Erro de sintaxe na seqüência de caracteres na expressão de consulta 'Codigo = '16'. O conteudo da label lblCodigo é numerico sem duvida; mas pelo erro que apresenta esta parecendo que não é numérico, já verifiquei tudo e não acho o erro, mas se eu mudar o WHERE por exemplo colocar txtNome.Text no lugar do lblCodigo.Caption ai corre tudo normalmente. Se souber de algo ou se tiver alguma suspeita de onde pode estar o erro eu agradeceria ^_^

Esqueci de colocar o código :blush: Con.Execute "update Cadastro set Nome = '" & txtNome.Text & "', Data = '" & txtData.Text & "', Endereço = '" & txtEndereço.Text & "', Numero = '" & txtNumero.Text & "', Complemento = '" & txtComplemento.Text & "', Bairro = '" & txtBairro.Text & "', Cidade = '" & txtCidade.Text & "', Uf = '" & txtUf.Text & "', Cep = '" & txtCep.Text & "', Email = '" & txtEmail.Text & "', Pessoa = '" & cboPessoa.Text & "', Telefone = '" & txtTelefone.Text & "', Celular = '" & txtCelular.Text & "', Cpf = '" & txtCpf.Text & "', Rg = '" & txtRg.Text & "', Observaçoes = '" & txtObservaçoes.Text & "', Cliente = '" & chkCliente.Value & "', Telefone2 = '" & txtTelefone2.Text & "', Celular2 = '" & txtCelular2.Text & "' WHERE Codigo = '" & lblCodigo.Caption & "'" Só lembrando que o campo da tabela que mudei para numérico é o campo Codigo e que o codigo funcionava normalmente antes mas como apresento os dados da tabela em ordem numerica pelo campo codigo no FlexGrid.

Eu estava com um problema para fazer uma pesquisa em ordem numérica, o problema foi resolvido quando coloquei o campo do banco de dados como numérico mas agora esta dando um erro no update do cadastro ele da o seguinte erro: Run-time error '-2147217913 (80040e07)': Tipo de dados imcompatível na expressão de critério. poedem me ajudar ? ^_^

Obrigado pela resposta ^_^ , foi so por o campo como numerico que resolveu o problema vlw pela ajuda :D