Resimli Komut Düğmeleri

Paylaşımınız için teşekkürler.

(15/12/2008, 09:18)İsmail Küçükşengün yazdı: Sayın üstadım;

Böylesine güzel örneklerinizi paylaştığınız için çok teşekkürler.

SİZDEN BİR RİCAM OLACAK;

Etiketlerin kenar çizgileri ilk etapta gözükmese, üzerine fare ile gelindiğinde gözükecek şekilde kodlarda nasıl bir değişiklik yapılabilir.

Selamlarımla.

Sayın Küçükşengün

Bunun için modülde en altta yer alan bölümde

Public Sub AlAnimasyonu(ctl As Control)
On Error Resume Next
With ctl
Select Case .ControlType
Case acLabel, acOptionGroup
.SpecialEffect = 0
.TextAlign = 3
.FontBold = False
.FontSize = 8
.ForeColor = vbBlack
.BorderStyle = 1
.BorderColor = vbBlack
.BackStyle = 1
.BackColor = Normal
.Tag = "0"
Case acTextBox
.BorderColor = 0
Case Else
End Select
End With
End Sub


kodlarında koyu olan yeri



olarak değiştirin.

---

(05/01/2009, 10:57)İsmail Küçükşengün yazdı: Sayın Bilgisayarcı;

Örneğinize bir form ekledim. Form aç Etiketine çift tıkladığımda istenen Diğer Form açılıyor, fakat tek tıklamayla Form açılmıyor. Bunun nedeni ne olabilir. Etiketlere tek tıklamayla işlem yaptıramaz mıyız.

Örnek Ekteyemedim. Etiketin birinin adını Form1 AÇ yaptım. Etikete tek tıklamayla, form açılmıyor. Kodları:


Private Sub lbl1_Click()
DoCmd.OpenForm "Form1"
End Sub
(BU KODLA FORM AÇILMIYOR) Tek tıklamayla açılması için kod nasıl olmalı?

Private Sub lbl1_DblClick(Cancel As Integer)
DoCmd.OpenForm "Form1"
End Sub
(BU KODLA FORM AÇILIYOR
Selamlarımla.

Bu işlem o şekilde yapılmıyor. Bunun için mouse click yordamında caption'ı okutup case ile işlem yaptıracaksınız. Örneğin



Burada ben msgbox ile örnekledim, siz artık docmd.openform ile kendi kodlarınızı yazarsınız. Kolay gelsin....

evet.

Teşekkürler. Emeğinize Sağlık.

güzel bir uygulama teşekkür ederim

Sayım mehmetdemiral;

Açıklamalarınıza ve paylaşımınıza çok teşekkür ediyorum.
Selamlarımla.