Jump to content

Campos com datas não salvam e internet explorer no VB


Recommended Posts

williamjda

Amigos boa noite.

No meu formulário tem um BD em Access e este recebe todos os dados das listbox do formulario.

Porem a um campo que deveria receber a data. Este campo no access foi criado com a opção texto. porem ao importa-lo para o vb se eu digitar a data desta forma 25/03/2011 por exemplo ele não salva. Todos os outros campo salvam menos o com a data. Este campo deve mostrar a data automaticamente do dia atual  então criei um código para tentar resolver porem não funciona. Alguém poderia me ajudar.

Convert.ToString(DataNFRTextBox.Text)
        Me.DataLançamentoTextBox.Text = Now

Outra pergunta como faço para que quando eu clicar no botão ele abra o internet Explorer?

Link to post
Share on other sites
Andrepereira9

E para abrires o IE, podes fazer um

Process.Start("iexplore.exe")

ou então

Shell("C:\Programas\Internet Explorer\iexplore.exe")

O que já obriga a que o IE esteja instalado nesse directório

A informática chegou para resolver problemas que antes não existiam

Quem ri por último é porque está conectado a 52 Kbs.

Link to post
Share on other sites
williamjda

Desculpa funcionou o código do internet Explorer.  O que não funcionou foi a data. Seu eu coloco o código com a data.

Se eu uso a tecla tab do teclado para pular os campos quando chega no campo que tem a mascara ele não sai o cursor fica travado naquele campo. Se eu tirar a mascara ele funciona normalmente.

Link to post
Share on other sites
williamjda

  If Len(DataNFRTextBox.Text) = 2 Or Len(DataNFRTextBox.Text) = 5 Then
            DataNFRTextBox.Text = DataNFRTextBox.Text & "/"
            DataNFRTextBox.SelectionStart = Len(DataNFRTextBox.Text) + 1

Ele trava o cursor e não grava a data no banco de dados. Como eu disse no access esta com o campo texto. Preciso fazer algo para que funcione. Trocar a propriedade do evento no vb.

Link to post
Share on other sites
williamjda

  If Len(DataNFRTextBox.Text) = 2 Or Len(DataNFRTextBox.Text) = 5 Then
            DataNFRTextBox.Text = DataNFRTextBox.Text & "/"
            DataNFRTextBox.SelectionStart = Len(DataNFRTextBox.Text) + 1

Ele trava o cursor e não grava a data no banco de dados. Como eu disse no access esta com o campo texto. Preciso fazer algo para que funcione. Trocar a propriedade do evento no vb.

Coloquei até um

Convert.ToString(DataNFRTextBox.Text)

  para ver se funcionava mas nada.

Link to post
Share on other sites
williamjda

Amigo sei que parece ser igual os topicos porem são situações diferentes, No outros tópico um eu tinha um banco de dados que gravava em um bloco de notas o outro eu tinha um banco de dados em SQL. E este o banco de dados é em access e cada um deles dava um problema com a mascara porém problemas distintos.

Desculpe a insistência, porem já tentei de varias forma com a data e nem uma delas deu certo a unica forma que da certo no meu caso é deixar sem a mascara no textbox. Mas gostaria de sua opinião qual a melhor maneira de resolver esta questão. Você teria um código mas para colocar esta mascara visto que o meu não esta a funcionar.

Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.