HERNEYSE
Çözüm
MouseClick diye bi fonksiyon var. Oraya tıkladığın CONTrol geliyor.
Adına göre select case'e girer. Hangisini istiyorsan ordaki case içine gir istediğin fonksiyonu yaz.
Kod:
Private Function MouseClick(ctl As Label)
Dim s As String
Select Case ctl.Name
Case "lbl1"
s = "Ana Sayfa"
Case "lbl2"
s = "Arama"
Case "lbl3"
s = "Üye Listesi"
Case "lbl4"
s = "Takvim"
Case "lbl5"
s = "Yardım"
Case "lbl6"
s = "İletişim"
stDocName = "Form1"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Case "lbl7"
stDocName = "Form1"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Case Else
s = "Hiç Bir Şey "
End Select
s = s & " tıklandı..."
Me.Metin9.Text = Me.Metin9.Text & vbCrLf & s
End Function