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.
Access Çekirgesi