modüle
[code]Option Compare Database
Option Explicit

Private Const LABEL_RAISED_BackColor = 14474460
Private Const LABEL_SUNKEN_BackColor = 15785160
Dim lngLabelCurrentColor As Long


Public Sub LabelSpecialEffect(frm As Form, Optional intEffect As Integer = 2)
On Error Resume Next
Dim ctl As Control
Dim strControlName As String

For Each ctl In frm.Controls
With ctl
If .ControlType = acTextBox Or .ControlType = acComboBox Then
.BorderStyle = 1
.BorderC

selam arkadaslar..ben yaptıgım anasayfa formunun flashlı yada anımasyonlu olmasını ıstıyorum..bunu nasıl saglarız..

tesekkürler..

Sayın hocalarım; Form içinde bir sıra text boxa veri girdikten sonra kalan kutuların son değer girilen kutuya 0 (sıfır) girilmesi halinde pasif kalmaları (değer girişine müsade etmemeleri, 1 girilmesi halinde aktif olup girişe müsade etmelerini ekteki uygulamam yapmaya çalıştım ancak yardıma ihtiyaç duyuyorum.
(chek box kullanmayı tercih etmiyorum zira kullanımını çok iyi bilmiyorum ve 0-1 sayısal değerlerine göre rapolamada toplam aldırdım)

[attachment=11703]