het veronderstellen van uw textbox wordt genoemd txt_SerialNum, en de bevelknoop wordt genoemd cmd_CheckSerialNum, dan zou de code kunnen kijken als:
Privé Subcmd_CheckSerialNum_Click
als isnull (DLOOKUP („Periodieke Num“, „tblDestroyed“,“ [Periodieke Num] = „„& me.txt _SerialNum &““ „)) = Vals toen
msgbox „dit is een beschadigd deel!“
Beëindig als
Beëindig Sub