Jump to content
Asonze

Textbox com data

Recommended Posts

Asonze

Boas,

Tenho varias textbox que aparecem datas num form, na folha de calculo tenho a data como Dia-Mes(abreviado)-Ano, mas no form aparece como Mês/Dia/Ano.

É Possivel formatar as textbox como a data que quero,e onde tenho que inserir isso?

Já tentei assim:

Private Sub FrmPedido_Initialize()
TxtDataP = Format(TxtDataP.Value, "dd-mmm-yyyy")

End Sub

E tambem no Form_Activate, mas aparece sempre como descrito.

Desde Já Obrigado pela ajuda que possam prestar.

Share this post


Link to post
Share on other sites
jpaulino

Mas como as datas são colocadas nas textboxes do UserForm? Deves usar a função Format(), como já estás a fazer, mas onde preenche as textboxes

Share this post


Link to post
Share on other sites
Asonze

Boas Jorge,

a Data é colocada na Textbox através de uma procura, ou ao adicionar novo registo coloco manualmente. Já tenho é um ficheiro do excel com mais de 150 registos e estava a tentar aproveitar.

Anexo o codigo para procura:

Private Sub CmdProcura_Click()
'CmdGuardar.Enabled = False

If TxtPedidoN.Text = "" Then
     MsgBox "Preciso Numero de pedido para Proseguir!"
     TxtPedidoN.SetFocus
     Exit Sub
End If

With Worksheets("GESFUSTE").Range("E:E")

Set c = .Find(TxtPedidoN.Value, LookIn:=xlValues, LookAt:=xlPart)

If Not c Is Nothing Then
  c.Activate
  TxtPedidoN.Value = c.Value
  TxtDataP.Value = c.Offset(0, 1).Value
  CboEscolher.Value = c.Offset(0, 3).Value
  TxtDescricao = c.Offset(0, 4).Value
  TxtOsN.Value = c.Offset(0, 5).Value
  TxtDataC.Value = c.Offset(0, 6).Value
  TxtDataF.Value = c.Offset(0, 7).Value
  TxtRelatN.Value = c.Offset(0, 9).Value
  TxtDataR.Value = c.Offset(0, 10).Value
  
If c.Offset(0, 2) = "PD" Then
    OptPD.Value = True
Else
    OptOutros.Value = True
End If

If c.Offset(0, 2) = "RCH" Then
    OptRCH.Value = True
Else
    OptOutros.Value = True
End If

Else
    MsgBox "Não foi encontrado o Pedido! Tente novamente colocar o nº do pedido."
End If
End With
End Sub

deduzo que pelo que me perguntas a função Format() deveria estar aqui, mas vou querer utilizar o mesmo formato de data mesmo quando adiciono novo registo. Dai perguntar onde devo colocar esse codigo.

Sou novato nisto, não te esqueças :)

Share this post


Link to post
Share on other sites
jpaulino

Sem ver o ficheiro e pelo que estás a mostrar, deve ser aqui:

TxtDataP.Value = Format(c.Offset(0, 1).Value, "dd-mm-yyyy")

Share this post


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.