05/01/2009, 12:14
31/01/2009, 15:15
(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 = 0olarak 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
Kod:
Private Function MouseClick(ctl As Control)
Select Case ctl.Caption
Case "Ekle"
MsgBox "selam"
Case "Detay"
MsgBox "bu da detay"
End Select
End FunctionBurada ben msgbox ile örnekledim, siz artık docmd.openform ile kendi kodlarınızı yazarsınız. Kolay gelsin....
04/02/2009, 17:52
evet. 
10/02/2009, 00:03
10/02/2009, 00:09
10/02/2009, 11:16
Sayım mehmetdemiral;
Açıklamalarınıza ve paylaşımınıza çok teşekkür ediyorum.
Selamlarımla.
Açıklamalarınıza ve paylaşımınıza çok teşekkür ediyorum.
Selamlarımla.