DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Option Compare Database
Option Explicit
Private Sub Form_DblClick(Cancel As Integer)
End Sub
Private Sub Form_Deactivate()
End Sub
Private Sub Form_Error(DataErr As Integer, Response As Integer)
End Sub
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
End Sub
Private Sub Form_Open(Cancel As Integer)
End Sub
Private Sub Form_Current()
End Sub
Private Sub FillOptions()
' Bu denetim panosu seçeneklerini doldurur.
' Formdaki düğme sayısı.
Const conNumButtons = 8
Dim dbs As Database
Dim rst As Recordset
Dim strSQL As String
Dim intOption As Integer
' Formun ilk düğmesi odaklanır ve ilki hariç formdaki
' tüm düğmeler gizlenir. Odağın üzerinde bulunduğu
' alanı gizleyemezsiniz.
Me![Option1].SetFocus
For intOption = 2 To conNumButtons
Me("Option" & intOption).Visible = False
Me("OptionLabel" & intOption).Visible = False
Next intOption
' Denetim Panosu Öğeleri tablosunu açar ve bu Denetim
' Panosu Sayfası için ilk öğeyi bulur.
Set dbs = CurrentDb()
strSQL = "SELECT * FROM [Denetim Panosu Öğeleri]"
strSQL = strSQL & " WHERE [ItemNumber] > 0 AND [SwitchboardID]=" & Me![SwitchboardID]
strSQL = strSQL & " ORDER BY [ItemNumber];"
Set rst = dbs.OpenRecordset(strSQL)
' Bu Denetim Panosu Sayfası için seçenek yoksa,
' bir ileti görüntüler. Aksi takdirde, sayfayı öğelerle doldurur.
If (rst.EOF) Then
Me![OptionLabel1].Caption = "Bu denetim panosu sayfası için öğe yok"
Else
While (Not (rst.EOF))
Me("Option" & rst![ItemNumber]).Visible = True
Me("OptionLabel" & rst![ItemNumber]).Visible = True
Me("OptionLabel" & rst![ItemNumber]).Caption = rst![ItemText]
rst.MoveNext
Wend
End If
' Kayıt kümesini ve veritabanını kapatır.
rst.Close
dbs.Close
End Sub
Private Function HandleButtonClick(intBtn As Integer)
' Bir düğme tıklatıldığında bu işlev çağrılır.
' intBtn, hangi düğmenin tıklatıldığını belirtir.
' Çalıştırılabilir komut sabitleri.
Const conCmdGotoSwitchboard = 1
Const conCmdOpenFormAdd = 2
Const conCmdOpenFormBrowse = 3
Const conCmdOpenReport = 4
Const conCmdCustomizeSwitchboard = 5
Const conCmdExitApplication = 6
Const conCmdRunMacro = 7
Const conCmdRunCode = 8
' Özel durum hatası.
Const conErrDoCmdCancelled = 2501
Dim dbs As Database
Dim rst As Recordset
On Error GoTo HandleButtonClick_Err
' Tıklatılan düğmeye ilişkin Denetim Panosu Öğesi
' tablosunun öğesini bulur.
Set dbs = CurrentDb()
Set rst = dbs.OpenRecordset("Denetim Panosu Öğeleri", dbOpenDynaset)
rst.FindFirst "[SwitchboardID]=" & Me![SwitchboardID] & " AND [ItemNumber]=" & intBtn
' Eşleşen öğe yoksa, hatayı raporlar ve işlevden çıkar.
If (rst.NoMatch) Then
MsgBox "Denetim Panosu Öğeleri tablosunu okurken bir hata oluştu."
rst.Close
dbs.Close
Exit Function
End If
Select Case rst![Command]
' Bir başka denetim panosuna gider.
Case conCmdGotoSwitchboard
Me.Filter = "[ItemNumber] = 0 AND [SwitchboardID]=" & rst![Argument]
' Bir formu Ekleme kipinde açar.
Case conCmdOpenFormAdd
DoCmd.OpenForm rst![Argument], , , , acAdd
' Form açar.
Case conCmdOpenFormBrowse
DoCmd.OpenForm rst![Argument]
' Rapor açar.
Case conCmdOpenReport
DoCmd.OpenReport rst![Argument], acPreview
' Denetim Panosunu özelleştirir.
Case conCmdCustomizeSwitchboard
' Denetim Panosu Yöneticisinin yüklü olmadığı
' durumu dikkate alır (örn. En Az Yükleme).
On Error Resume Next
Application.Run "WZMAIN70.sbm_Entry"
If (Err <> 0) Then MsgBox "Komut kullanılamıyor."
On Error GoTo 0
' Formu güncelleştirir.
Me.Filter = "[ItemNumber] = 0 AND [Argument] = 'Varsayılan' "
Me.Caption = Nz(Me![ItemText], "")
FillOptions
' Uygulamadan çıkar.
Case conCmdExitApplication
CloseCurrentDatabase
' Makro çalıştırır.
Case conCmdRunMacro
DoCmd.RunMacro rst![Argument]
' Kodu çalıştırır.
Case conCmdRunCode
Application.Run rst![Argument]
' Diğer komutlar tanınmıyor.
Case Else
MsgBox "Bilinmeyen seçenek."
End Select
' Kayıt kümesini ve veritabanını kapatır.
rst.Close
dbs.Close
HandleButtonClick_Exit:
Exit Function
HandleButtonClick_Err:
' Herhangi bir nedenle eylem kullanıcı tarafından iptal
' edildiyse, hata iletisi görüntüleme.
' Bunun yerine, sonraki satırda kal.
If (Err = conErrDoCmdCancelled) Then
Resume Next
Else
MsgBox "Komutu yürütürken bir hata oluştu.", vbCritical
Resume HandleButtonClick_Exit
End If
End Function