Skip to main content

AccessTr.neT


Resimli Komut Düğmeleri

Resimli Komut Düğmeleri

#13
Paylaşımınız için teşekkürler.
Cevapla
#14
(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....
İnadına, ille de Accesstr.net...
Cevapla
#15
evet. Img-grin
Bana işe yarayan bir müdür göster,sana dünyayı yerinden oynatayım.
                                                                                        Descartes


Cevapla
#16
Teşekkürler. Emeğinize Sağlık.
Cevapla
#17
güzel bir uygulama teşekkür ederim
Cevapla
#18
Sayım mehmetdemiral;

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

Selamlarımla.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task