Butonun tıklandığında olayındaki kodu aşağıdaki ile değiştirerek deneyiniz.
If [malzeme_is].[Form].RecordsetClone.RecordCount <> 0 Then
DoCmd.OpenReport "sozlesme", acViewPreview, "", "[album]![alb_no]=[Forms]![alb_is_ekle]![alb_no]", acNormal
DoCmd.PrintOut acPages, , , , 2
Else
MsgBox ("ürün eklemediniz")
End If