kako da se ukveri pozove direktno sa switchboarda? Ovako:
1) Otvori formu Switchboard u Design modu i idi u VBA prozor
2) Nadji funkciju Function HandleButtonClick
3) Dodaj jednu liniju koda na pocetku, gde se deklarisu konstante i dodaj konstantu 10 (vidi dole)
Code:
Private Function HandleButtonClick(intBtn As Integer)
' This function is called when a button is clicked.
' intBtn indicates which button was clicked.
' Constants for the commands that can be executed.
Const conCmdGotoSwitchboard = 1
Const conCmdOpenFormAdd = 2
Const conCmdOpenFormBrowse = 3
Const conCmdOpenReport = 4
Const conCmdCustomizeSwitchboard = 5
Const conCmdExitApplication = 6
Const conCmdRunMacro = 7
Const conCmdRunCode = 8
Const conCmdOpenPage = 9
Const conCmdOpenQuery = 10 ' ****** dodao Zidar ******
' An error that is special cased.
Const conErrDoCmdCancelled = 2501
Dim con As Object
Dim rs As Object
Dim stSql As String
'On Error GoTo HandleButtonClick_Err
i jos dodaj tri linije koda u deo gde kaze Select case:
Code:
Select Case rs![Command]
' Go to another switchboard.
Case conCmdGotoSwitchboard
RecordSource = "SELECT * FROM [Switchboard Items] WHERE [ItemNumber] = 0 AND [SwitchboardID]=" & rs![Argument]
FillOptions
' Open a form in Add mode.
Case conCmdOpenFormAdd
DoCmd.OpenForm rs![Argument]
' Open a form.
Case conCmdOpenFormBrowse
DoCmd.OpenForm rs![Argument]
' Open a report.
Case conCmdOpenReport
DoCmd.OpenReport rs![Argument], acPreview
'******** dodao Zidar, odavde *********
' Open a Query.
Case conCmdOpenQuery
DoCmd.OpenReport rs![Argument], acPreview
'*********************** dovde *********
' Exit the application.
Case conCmdExitApplication
DoCmd.Quit
' Run a macro.
Case conCmdRunMacro
DoCmd.RunMacro rs![Argument]
4) Pomocu wizarda dodaj novu opciju na switchboard,
Switchboard page name = 'Open Query'. Onda izadji iz wiarda.
5) Otvori tabelu "Switchboard Items"
6) nadji rekord u kome pise 'Open Query' u koloni ItemText
7) koloni Comand upisi 10
8) U koloni Argument upisi ime tvog kverija, npr. qryTvojQuery
9) sacuvaj promenu
10) Zatvori sve forme , tabele i kavrije i otvori Switchboard
Trebalo bi da je tamo nova opciaj 'open Query' o kad to kliknes, otvori se qryTvojQuery.
Na isti nacin mozes da dodas opciju za otvaranje forme u DS rezimu, uvodjenjem nove konstante, npr
conCmdOpenForm_DS =11
i dodavanjem koda:
' Open a form in Datasheet view.
Case conCmdOpenFormBrowse
DoCmd.OpenForm rs![Argument],acFormDS
'(proveri gde ide acFormDS, ovo kucam iz glave, moguce je da treba jos neki zarez ili slicno)
:-)