Do Until TxtMasaRenk.EOF
            XMasaNo = Replace(TxtMasaRenk.Fields("MasaNo"), " ", "")
            xName = "Etiket" & XMasaNo
            Controls(xName).BorderColor = vbRed
            TxtMasaRenk.MoveNext


Bu yapıyı kullanmısız cafe programında cerceveyı renklendırmek ıcın ama taksıd formunda sadece BackColor yerıne BorderColor'u sevgili Access yemedi.