Skip to main content

AccessTr.neT


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

Oğuz Türkyılmaz
Oğuz Türkyılmaz
26
4847

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

#19
Sn.@Allback Kayış koparmama az kalmıştı bu renk mevzusunda, bir şey daha öğrenmiş oldum teşekkür ederim.
Access Çekirgesi 
[Resim: img-cray.gif]


Cevapla
#20
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
.rar Bekleme Modu Rengine Çevirme_hy2.rar (Dosya Boyutu: 132,34 KB | İndirme Sayısı: 2)
Cevapla
#21
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ı.
.rar Cactus Cafe Bekleme.rar (Dosya Boyutu: 134,94 KB | İndirme Sayısı: 1)
Access Çekirgesi 
[Resim: img-cray.gif]


Cevapla
#22
aşağıdaki çalışmayı inceler misiniz @Oğuz Türkyılmaz bey
.rar Bekleme Modu Rengine Çevirme_hy3.rar (Dosya Boyutu: 113,76 KB | İndirme Sayısı: 3)
Cevapla
#23
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.
Access Çekirgesi 
[Resim: img-cray.gif]


Cevapla
#24
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
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task