Kodları aşağıdakilerle değiştiriniz.

Private Sub Ekle_Click()

Dim GeciciUrunadi As String

If Forms![frm_masabılgılerı]![masano] = 0 Then MsgBox ("Lütfen Masa Seçiniz..Masano sıfır olamaz"): Exit Sub

If IsNull(Me.urunadı) Or Me.urunadı = "" Then

MsgBox ("Listeden Ürün Seçiniz")

Else

GeciciUrunadi = Me.urunadı

mıktar = mıktar + 1

Forms![frm_masabılgılerı].Requery

With Forms![frm_masabılgılerı]![FIS].Form.Recordset

.FindFirst "[urunadı] = " & "'" & GeciciUrunadi & "'"

If .NoMatch Then MsgBox (GeciciUrunadi & " bulunamadı")

End With

Forms![frm_masabılgılerı]![HESTOP] = Forms![frm_masabılgılerı]![FIS].Form![toplam]

Forms![frm_masabılgılerı].[HESTOP].Requery

End If

End Sub

Private Sub CIKAR_Click()

Dim GeciciUrunadi As String

If Forms![frm_masabılgılerı]![masano] = 0 Then MsgBox ("Lütfen Masa Seçiniz..Masano sıfır olamaz"): Exit Sub

If IsNull(Me.urunadı) Or Me.urunadı = "" Then

MsgBox ("Listeden Ürün Seçiniz")

Else

GeciciUrunadi = Me.urunadı

mıktar = mıktar - 1

Forms![frm_masabılgılerı].Requery

With Forms![frm_masabılgılerı]![FIS].Form.Recordset

.FindFirst "[urunadı] = " & "'" & GeciciUrunadi & "'"

If .NoMatch Then MsgBox (GeciciUrunadi & " bulunamadı")

End With

Forms![frm_masabılgılerı]![HESTOP] = Forms![frm_masabılgılerı]![FIS].Form![toplam]

Forms![frm_masabılgılerı].[HESTOP].Requery

End If

End Sub