Sn.@Allback Kayış koparmama az kalmıştı bu renk mevzusunda, bir şey daha öğrenmiş oldum teşekkür ederim.
Access Çekirgesi
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