Private Function MouseClick(ctl As Label) altındaki tüm kodları silin ve şunları yapıştırınnot ilk satırı silmeyin. Ama son satırı silin.)
Kod:
Dim s As String
Select Case ctl.Name
Case "lbl1"
Dim X, I
'not: buraya hangi işlemleri yaptıracaksanız o kodu giriniz
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Exit_kaydet_Click:
X = InitStatus("Lütfen Bekleyiniz... " & Me![Oran], "Geçen Süre: 0", Int(Me![Oran]))
For I = 0 To Me![Oran]
X = SetStatus("Geçen Süre: " & I, I)
If X = False Then GoTo EXIT_SUB
Next I
EXIT_SUB:
X = ResetStatus()
Exit_Yenile_Click:
Case "lbl2"
DoCmd.GoToRecord , , acNewRec
Exit_yenikayıt_Click:
Case "lbl3"
Case "lbl4"
Case "lbl5"
Case "lbl6"
stDocName = "menu"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Case "lbl7"
DoCmd.Close
'Application.Quit
End Select
End Function
Kolay gelsin.