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