rbt.InputMask = "" rbt.SetFocus DoCmd.RunCommand acCmdShowDatePicker <------------------< rbt.InputMask = "00,00,0000;0;_"
DoCmd.OpenForm "Frm_Giris", , , "[MALZEME KODU]='" & Me.Liste85.Column(3) & "'"