anta din textbox namnges txt_SerialNumen, och befalla knäppas namnges cmd_CheckSerialNumen, då något liknande för kodifierastyrkalook:
Privat undercmd_CheckSerialNum_Click
om isnull (DLOOKUP (”seriellt numeriskt”, ”tblDestroyed”,” [seriellt numeriskt] = ””& den me.txt _SerialNumen &”” ”)) = falskt därefter
msgbox ”detta är en skadad del!”,
Avsluta om
Avsluta suben