fixing date 31/12/1899 into textbox on userform

[Hasson]

hi
I have this code , when I write the day of date in textbox then should complete the current month and current year but it shows this date 31/12/1899
so if I write 1 then should complete the date like this 01/06/2021

Private Sub TextBox1_Change()
  Dim dDate As Date
 dDate = DateSerial(Year(Date), Month(Date), Day(Date))
 TextBox1.Value = Format(TextBox1.Value, "dd/mm/yyyy")
 dDate = TextBox1.Value
End Sub

any suggestion to fix it ,please?

 

[dmt32]

I suspect using the AfterUpdate event more likely to allow you to do what you are trying to do

See if this update to your code helps

Private Sub TextBox1_AfterUpdate()
    Dim dDate As Date
    dDate = DateValue(Val(Me.TextBox1.Value) & "/" & Month(Date))
    TextBox1.Value = Format(dDate, "dd/mm/yyyy")
End Sub

Type the day of month & then exit the TextBox - code should then add current month & year

Dave

 

[Hasson]

I suspect using the AfterUpdate event more likely to allow you to do what you are trying to do

actually I did it but nothing changes
also your updating doesn't work the problem still continues

 

[dmt32]

actually I did it but nothing changes
also your updating doesn't work the problem still continues

Did you use my code as published (unchanged) and also delete your old code?
You need to EXIT the control for this event to trigger

Dave

 

[Hasson]

Did you use my code as published (unchanged) and also delete your old code?

sorry my bad ! now it works thanks for your supporting

 

[dmt32]

welcome - glad resolved

Dave