WITH THIS
IF .Value = '' AND .RowSourceType = 5
lcSource = .RowSource
&lcSource[ALEN(&lcSource)] = 'New opt ' + TIME()
DIMENSION &lcSource[ALEN(&lcSource)+1]
&lcSource[ALEN(&lcSource)] = ''
.Requery
ELSE
WAIT WINDOW "Combo selection: " + .Value NOWAIT
ENDIF
ENDWITH
|