Etiketler
|
|
|
Metin Kutularının Etiketlerini Girişe Göre Etkinleştirme
|
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
|
Yazar: webdzyn - Cevaplar: 3 - İzleme: 2360
Girişe Anımasyonlu Girmek
|
selam arkadaslar..ben yaptıgım anasayfa formunun flashlı yada anımasyonlu olmasını ıstıyorum..bunu nasıl saglarız..
tesekkürler..
|
Formdaki text boxların girişe göre pasif veya aktif olması
|
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]
|