PROBLEMAS COM MASKEDBOX
No meu programa tenhu uma maskedbox
e o codigo que carrega esse maskedbox ta em outro form e ele é pra salvar datas
so que quandoeu dou uma data pro access tipo
data dada: 05/05/1986 ela fica 5/5/1986
e quando eu carrego ela pro maskedbox eu faço assim
maskedbox.text= dtaevento.recordset("d_evento")
ate ai blz
no gotofocus do maskedbox eu fiz assim
maskedbox.mask="##/##/####"
so que quando eu vou pro focus do maskedbox ele apaga a data pois as propriedades nao batem tem numeros a menos ai ele apaga
temalgum jeito de arrumar isso
ja tentei o format(dtaevento.recordset("d_evento"),"##/##/####")
so que fica bagunçado nada ha ver com a data qque esta la.
ALGUEM SABE O PQ DESSE ERRO
fico muito grato desde ja.
e o codigo que carrega esse maskedbox ta em outro form e ele é pra salvar datas
so que quandoeu dou uma data pro access tipo
data dada: 05/05/1986 ela fica 5/5/1986
e quando eu carrego ela pro maskedbox eu faço assim
maskedbox.text= dtaevento.recordset("d_evento")
ate ai blz
no gotofocus do maskedbox eu fiz assim
maskedbox.mask="##/##/####"
so que quando eu vou pro focus do maskedbox ele apaga a data pois as propriedades nao batem tem numeros a menos ai ele apaga
temalgum jeito de arrumar isso
ja tentei o format(dtaevento.recordset("d_evento"),"##/##/####")
so que fica bagunçado nada ha ver com a data qque esta la.
ALGUEM SABE O PQ DESSE ERRO
fico muito grato desde ja.
tenta isso:
[txt-color=#ff0000]maskedbox.text= format(dtaevento.recordset("d_evento"),"dd/mm/yyyy")[/txt-color]
Isso não é necessário:
[txt-backcolor=#ffff00]Suas configurações regionais estão config para mostra a data no formato "d/m/aaaa" Muda isso em Painel de Controles >> Config Gerionais, Personalizar, Guia Data em Formato da data abreviada coloca dd/mm/aaaa[/txt-backcolor]
Você também pode colocar o campo data na tabela access como texto que não dá esse erro
[txt-color=#ff0000]maskedbox.text= format(dtaevento.recordset("d_evento"),"dd/mm/yyyy")[/txt-color]
Isso não é necessário:
Citação:no gotofocus do maskedbox eu fiz assim
maskedbox.mask="##/##/####"
[txt-backcolor=#ffff00]Suas configurações regionais estão config para mostra a data no formato "d/m/aaaa" Muda isso em Painel de Controles >> Config Gerionais, Personalizar, Guia Data em Formato da data abreviada coloca dd/mm/aaaa[/txt-backcolor]
Você também pode colocar o campo data na tabela access como texto que não dá esse erro
se eu colocar texto quando usar o between
ele da pau nao traz o recordset
so que tem uma coisa
vou ter que alterar no cliente
existe algum codigo pra fazer isso sem eu ter que ir la ou pregar um sermao no telefone.
ele da pau nao traz o recordset
so que tem uma coisa
vou ter que alterar no cliente
existe algum codigo pra fazer isso sem eu ter que ir la ou pregar um sermao no telefone.
Caro colega,
Nos meus sistemas eu lido com o MaskeEdit da seguinte forma:
'Limpra o Campo e prepara "já formatado" para edição
Msk_DT_CAD_ASSOC.Mask = "__/__/____"
Msk_DT_CAD_ASSOC.Mask = "##/##/####"
'Grava o conteúdo do campo no BD
Rst_Associados("DT_CAD_ASSOC") = Msk_DT_CAD_ASSOC.Text
'Exibe o Conteúdo do BD no Campo
If Rst_Associados("DT_CAD_ASSOC") <> Empty Then
Msk_DT_CAD_ASSOC.Text = Rst_Associados("DT_CAD_ASSOC")
Else
Msk_DT_CAD_ASSOC.Mask = "__/__/____"
Msk_DT_CAD_ASSOC.Mask = "##/##/####"
End If
Espero ter ajudado
Nos meus sistemas eu lido com o MaskeEdit da seguinte forma:
'Limpra o Campo e prepara "já formatado" para edição
Msk_DT_CAD_ASSOC.Mask = "__/__/____"
Msk_DT_CAD_ASSOC.Mask = "##/##/####"
'Grava o conteúdo do campo no BD
Rst_Associados("DT_CAD_ASSOC") = Msk_DT_CAD_ASSOC.Text
'Exibe o Conteúdo do BD no Campo
If Rst_Associados("DT_CAD_ASSOC") <> Empty Then
Msk_DT_CAD_ASSOC.Text = Rst_Associados("DT_CAD_ASSOC")
Else
Msk_DT_CAD_ASSOC.Mask = "__/__/____"
Msk_DT_CAD_ASSOC.Mask = "##/##/####"
End If
Espero ter ajudado
Tem sim. usa a função Date. ver aqui
Tópico encerrado , respostas não são mais permitidas