Private Sub çıkan_bobin_AfterUpdate()
If Me.[çıkan_bobin] = Dlookup ("[Tablonuzdakontroledilecekalanadi]", "Kontroledilecektablonuzunadi", "[Tablonuzdakontroledilecekalanadi]='" & Me.çıkan_bobin & "'") Then
MsgBox Me.çıkan_bobin & " nolu bobin daha önce üretilmiş", vbCritical, "Dikkat"
Else
End If
End Sub
siz kendinize göre tablo ve alan adlarını uyarlaya bilirsiniz.