AccessTr.neT
Resimli Komut Düğmeleri - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Örnekleri ve Uygulamaları (https://accesstr.net/forum-access-ornekleri-ve-uygulamalari.html)
+--- Konu Başlığı: Resimli Komut Düğmeleri (/konu-resimli-komut-dugmeleri.html)

Sayfalar: 1 2 3 4 5


Cvp: Resimli Komut Düğmeleri - assenucler - 05/01/2009

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


Cvp: Resimli Komut Düğmeleri - mehmetdemiral - 31/01/2009

(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

Kod:
.BorderStyle = 0

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ÇILIYORImg-grin

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


Kod:
Private Function MouseClick(ctl As Control)
Select Case ctl.Caption


Case "Ekle"
MsgBox "selam"

Case "Detay"
MsgBox "bu da detay"
End Select

End Function

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


Cvp: Resimli Komut Düğmeleri - Bilgisayarcı - 04/02/2009

evet. Img-grin


Cvp: Resimli Komut Düğmeleri - BigBossTurk - 10/02/2009

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


Cvp: Resimli Komut Düğmeleri - BKCAN - 10/02/2009

güzel bir uygulama teşekkür ederim


Cvp: Resimli Komut Düğmeleri - İsmail Küçükşengün - 10/02/2009

Sayım mehmetdemiral;

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

Selamlarımla.