If MsgBox("güncellensinmi?", vbYesNo, "Güncelleniyor...") = vbYes Then
DoCmd.RunSQL ("UPDATE VERIGIRIS SET SEVKDURUMU = 'GÖNDERİLDİ' WHERE (((SEVKDURUMU) Like '*' & [Formlar]![frmikitarih]![SEVKDURUMU] & '*'));")
End If
Ayrıca örneklerini göndermeden önce sıkıştırıp onar.