(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.

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, 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.