(12/01/2019, 11:31)haliliyas yazdı: butonun kodunu aşağıdaki kodla değiştirip dener misiniz?

DoCmd.SetWarnings False



If IsNull(Me.Metin147) Then

    If MsgBox("Göerevli adı seçmediniz! görevli seçmeden işlemi iptal edip çıkmak için 'HAYIR'a, görevli seçmek için 'EVET'e basınız", vbYesNo + vbQuestion) = vbYes Then

    Me.Metin147.SetFocus

    Exit Sub

    Else

    DoCmd.Close acForm, "F_04_AdisyonFisi"

    DoCmd.OpenForm "F_01_MasaGiris"

    Exit Sub

    End If

End If

XMasaNo = Replace(Me.txtMasaNo, " ", "")

xname = "Etiket" & XMasaNo

DoCmd.OpenForm "F_01_MasaGiris"

Forms("F_01_MasaGiris").Form.Controls(xname).BorderColor = vbRed

DoCmd.RunSQL " UPDATE T_02_MasaListesi SET DoluBos = 1" & _

             " WHERE (((MasaNo)=" & XMasaNo & "));"



DoCmd.SetWarnings True

Sn.@"haliliyas" teşekkür ederim istediğim gibi çözümlenmiştir.Ellerinize sağlık.