text box error

[medic466]

Hi All, having a small error with my date text box. I'm new to this so I might be doing it wrong. :) this is my code

Private Sub Txtbirthdate_click()
frmdefendantsdata.Txtbirthdate.Text = Format(Txtbirthdate.Text, "##/##/####")
End Sub

It works fine I enter 681996 and it comes up 6/8/1996 .....But if I click on the text box again it changs to /68/1996 why. I'm sure there is somthing missing

Thanks for any help Chuck

[Ali Rizwan]

Hi All, having a small error with my date text box. I'm new to this so I might be doing it wrong. :) this is my code

Private Sub Txtbirthdate_click()
frmdefendantsdata.Txtbirthdate.Text = Format(Txtbirthdate.Text, "##/##/####")
End Sub

It works fine I enter 681996 and it comes up 6/8/1996 .....But if I click on the text box again it changs to /68/1996 why. I'm sure there is somthing missing

Thanks for any help Chuck

Ok
I know your problem
you are setting format like this 00/00/0000
means two digits/two digits/four digits
if you enter this text in textbox
09081997
then click anytime the text remains 9/08/1997
try my sugestion.
GOOD LUCK

[medic466]

Ok
I know your problem
you are setting format like this 00/00/0000
means two digits/two digits/four digits
if you enter this text in textbox
09081997
then click anytime the text remains 9/08/1997
try my sugestion.
GOOD LUCK

Thanks for the help and the fast reply

[medic466]

Thanks for the help and the fast reply

Again thanks for the help, changed format to 00/00/0000 and that works well but after date is in place if I click again the date changes to / the day and month / then the year 68/1986 ? thanks for looking again C

[Killer42]

Can you give us some idea of what you're trying to achieve? You can't really expect to keep applying the same format transformation over and over to something which has already been formatted.

[medic466]

Can you give us some idea of what you're trying to achieve. You can't really expect to keep applying the same format transformation over and over to something which has already been formatted.

Sure, I have 1 text box for the birthdate and 2nd one for age. everthing works fine put birthdate in say 03101964 enter birthdate fill 3/10/1964 age text fills 43 for age. now if you click on the birthday text it changes from 3/10/1964 to 00/02/3446 and errors on the age code. thanks for looking at this again for me

here is the code for both text boxes

Private Sub Txtbirthdate_click()
  frmdefendantsdata.Txtbirthdate.Text = Format(Txtbirthdate.Text, "00/00/0000")
End Sub
 
Private Sub txtage_gotfocus()
 
  Select Case Month(Txtbirthdate)
    Case Is < Month(Date)
      Txtage = DateDiff("YYYY", Txtbirthdate, Now())
    Case Is = Month(Date)
      Select Case Day(Txtbirthdate)
        Case Is < Day(Date)
          Txtage = DateDiff("YYYY", Txtbirthdate, Now())
        Case Is = Day(Date)
          Txtage = DateDiff("YYYY", Txtbirthdate, Now())
        Case Is > Day(Date)
          Txtage = DateDiff("YYYY", Txtbirthdate, Now()) - 1
      End Select
    Case Is > Month(Date)
      Txtage = DateDiff("YYYY", Txtbirthdate, Now()) - 1
    Case Else
      Txtage = 0
  End Select
End Sub

[Killer42]

Hm...

Personally I don't think it's a good idea to play around with the format in the one place like this. Anyway, there are probably tons of different things you can do to try and resolve the situation. for example...

Private Sub Txtbirthdate_LostFocus()
  Dim TempDate As Date
  With Txtbirthdate
    ' If user entered date with slashes (or we have already reformatted)
    ' then convert to an actual date value and back.
    If Instr(.Text, "/") Then
      TempDate = DateValue(.Text)
    Else
      TempDate = DateValue(Format(.Text, "00/00/0000")
    End If
    .Text = Format(TempDate, "Short date")
  End With
End Sub

Oh, and drop the Click event procedure.



However, perhaps the simplest (and most bullet-proof) solution would be to use a DateTimePicker control instead of a textbox. This provides a dropdown calendar in which the user can choose a date. Or possibly a MaskedEdit control, which is like a textbox but imposes a specified format on what the user enters. That way, you could force the date to be input as a date.

[Ali Rizwan]

Again thanks for the help, changed format to 00/00/0000 and that works well but after date is in place if I click again the date changes to / the day and month / then the year 68/1986 ? thanks for looking again C

See Msedic
Your code is right there is no problem in your code but remember a day must have two digits, month must have two digits ans year must have four digits like
Day 01,02,03,04,05,06,07,08,09,10,11,12,....,31
Right
Month 01,02,03,04,05,06,07,08,09,10,11,12
Right
And
Year 1997 or 2001
Right now try to put this text in textbox
01021997
and click any number of time the textremain 1/02/1997
Remember there is no error in your code error is in your text writing in text field.

[Ali Rizwan]

Hi All, having a small error with my date text box. I'm new to this so I might be doing it wrong. :) this is my code

Private Sub Txtbirthdate_click()
frmdefendantsdata.Txtbirthdate.Text = Format(Txtbirthdate.Text, "##/##/####")
End Sub

It works fine I enter 681996 and it comes up 6/8/1996 .....But if I click on the text box again it changs to /68/1996 why. I'm sure there is somthing missing

Thanks for any help Chuck

Oh
Im sorry i have posted on wrong ones

[medic466]

Oh
Im sorry i have posted on wrong ones

Thanks for all your help C