Update linked table

[Peter Neumaier]

doesnt work, after editing the textfield, the value jumps automatically
to 12:00 am

 

[Pieter Wijnen]

OKIDO
Please retain all text when answering in newsgroups, it is annoying to have
to read all previous ones when it's no longer fresh in memory

Private Sub Text1_AfterUpdate
On Error Resume Next
' handle mm/dd/yy
Me.Text1 =
DateSerial(right(me.text1,2),Left(me.text1,2),Mid(me.text1,4,2))
Me.Dirty = False
End Sub

Pieter

PS what happened to your data when you closed the form?
All my code did was to save the edited data

 

[Pieter Wijnen]

OKIDO
Please retain all text when answering in newsgroups, it is annoying to have
to read all previous ones when it's no longer fresh in memory

Private Sub Text1_AfterUpdate
On Error Resume Next
' handle mm/dd/yy
Me.Text1 =
DateSerial(right(me.text1,2),Left(me.text1,2),Mid(me.text1,4,2))
Me.Dirty = False
End Sub

Pieter

PS what happened to your data when you closed the form?
All my code did was to save the edited data

 

[Peter Neumaier]

pieter,

it's working, thx man

OKIDO
Please retain all text when answering in newsgroups, it is annoying to have
to read all previous ones when it's no longer fresh in memory

Private Sub Text1_AfterUpdate
On Error Resume Next
' handle mm/dd/yy
Me.Text1 =
DateSerial(right(me.text1,2),Left(me.text1,2),Mid(me.text1,4,2))
Me.Dirty = False
End Sub

Pieter

PS what happened to your data when you closed the form?
All my code did was to save the edited data

 

[Peter Neumaier]

pieter,

it's working, thx man

OKIDO
Please retain all text when answering in newsgroups, it is annoying to have
to read all previous ones when it's no longer fresh in memory

Private Sub Text1_AfterUpdate
On Error Resume Next
' handle mm/dd/yy
Me.Text1 =
DateSerial(right(me.text1,2),Left(me.text1,2),Mid(me.text1,4,2))
Me.Dirty = False
End Sub

Pieter

PS what happened to your data when you closed the form?
All my code did was to save the edited data