Formu Beklet Moduna Alıp Kapatarak Ait Olduğu Denetimi Bekleme Modu Rengine Çevirme

Sn.@Allback Kayış koparmama az kalmıştı bu renk mevzusunda, bir şey daha öğrenmiş oldum teşekkür ederim.

dilerim işinize yarar
yüklerken dolu masaların rengini değiştiriyor
beklete basınca da hem renk değişiyor hem de tabloda masa dolu alanını aktifleştiriyor

Sn.@"haliliyas" Elinize sağlık. Beklet moduna tıklandığında MasaGiris formu açılırken AdisyonFisi formu kapanmıyordu, onu hallettim sadece bir sorun var AdisyonGiris ekranında hareket yokken yani masaya servis verilmemişken boş durumda beklet derseniz masa etiketini yine kırmızı yapıyor yani masada hareket olup olmadığını dikkate almıyor. Masada eğer hareket yoksa beklet pozisyonunu pasifize etmem yada hareket görmemiş adisyondan çıkıldığında etiketin kırmızıya dönmesini engellemem lazım.24 ve 25 nolu masalar bu şekilde boşken beklet pozisyonuna alındı.

aşağıdaki çalışmayı inceler misiniz @Oğuz Türkyılmaz bey

AdisyonFisi ekranından Hayır seçip işlem yapmadan çıkmak istediğimde Formu kapatmadan AdisyonGiris ekranını önplana aldı arkada 19 numaralı masa açık şekilde kaldı masayı kapatmadı giriş ekranında masanın renginide yine kırmızıya çevirdi.ben formu kapatarak çıksın diye kodunuza resimdeki kapatma kodunu yazdım bu seferde formu kapattı fakat resimdeki hatayı verdi. Resmi sohbet panelinden gönderdim.

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