autoexpand column values not save in access 2016

[arnelgp]

what does Datum_Keypress() even do?

ActiveControl is Not a Number, it is a Control. so obviously the code is wrong.
You can try to elimitate both the Click and Gotfocus event and just add code to it's Enter event:

Private Sub Omschrijving_Enter()
    Me.Omschrijving.ColumnWidth = -2
End Sub


Private Sub Omschrijving_Exit(Cancel As Integer)
    Me.Omschrijving.ColumnWidth = m_columnWidth
End Sub