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
4848

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

#25
(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.
Access Çekirgesi 
[Resim: img-cray.gif]


Cevapla
#26
sayın @Oğuz Türkyılmaz  aşağıdaki örneği inceler misiniz?
burada yapmaya çalıştığım masa adına tıkladığınızda otomatik olarak tıkladığınız etiketin ismine göre form adisyon formunu açmak
tek tek 300 etikete tıkladığında olayını elle girmek yerine otomatik olarak (sonradan masa sayısını artırsanız bile) giriyor.
not yalnız masa numaralarını  gösteren etiketlerin adları "etiket1", "etiket2"..... formatında olmalı
kodun çalışma mantığı bu yapıya göre tasarlandı
.rar Bekleme Modu Rengine Çevirme_hy4.rar (Dosya Boyutu: 133,5 KB | İndirme Sayısı: 3)
Cevapla
#27
(12/01/2019, 14:53)haliliyas yazdı: sayın @Oğuz Türkyılmaz  aşağıdaki örneği inceler misiniz?
burada yapmaya çalıştığım masa adına tıkladığınızda otomatik olarak tıkladığınız etiketin ismine göre form adisyon formunu açmak
tek tek 300 etikete tıkladığında olayını elle girmek yerine otomatik olarak (sonradan masa sayısını artırsanız bile) giriyor.
not yalnız masa numaralarını  gösteren etiketlerin adları "etiket1", "etiket2"..... formatında olmalı
kodun çalışma mantığı bu yapıya göre tasarlandı

Teşekkür Ederim Halil bey. Bu çok iyi oldu.
Access Çekirgesi 
[Resim: img-cray.gif]


Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da