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

1 2 3 4 5
12/01/2019, 11:59

Oğuz Türkyılmaz

(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.
12/01/2019, 14:53

berduş

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ı
12/01/2019, 15:04

Oğuz Türkyılmaz

(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.
1 2 3 4 5