Response = MsgBox("Allow 'Null' index? Otherwise ignore 'Null' index.", vbYesNo)
'"Allow 'Null' index? Otherwise ignore 'Null' index."
', vbYesNo + vbCritical + vbDefaultButton2,,,,
If Response = vbYes Then ' User chose Yes.
idxNew.IndexNulls = adIndexNullsAllow
Else ' User chose No.
idxNew.IndexNulls = adIndexNullsIgnore
End If
|