- Učlanjen(a)
- 18.07.2001
- Poruke
- 18,077
- Poena
- 1,365
Moja oprema
- CPU & Cooler
- Intel® Core™ i5-9500F, NZXT Kraken Z63
- GPU
- Asus GTX 2070 Super
- Storage
- Samsung 980 Pro NVMe 1 TB
- Kućište
- NZXT H210i
- Monitor
- LG C2 42"
- Miš & tastatura
- Logitech G502, Keychron K8, Nuphy Air75, Ducky TKL One 2
- Ostale periferije
- Glupi HP štampač
- Laptop
- Apple Macbook Pro 14" M1
- Tablet
- Apple iPad Pro 11"
- Mobilni telefon
- Apple iPhone 13 Pro Max
- Pametni uređaji
- Apple Watch Ultra
- Pristup internetu
- Kablovski internet
Napravih bazu u accessu, ali zelim da bude samostalan program. Da li mogu da nekako iskompajliram kod i da dobijem program?
Switchboard
----------------
Option Compare Database
Private Sub Form_Open(Cancel As Integer)
' Minimize the database window and initialize the form.
' Move to the switchboard page that is marked as the default.
Me.Filter = "[ItemNumber] = 0 AND [Argument] = 'Default' "
Me.FilterOn = True
End Sub
Private Sub Form_Current()
' Update the caption and fill in the list of options.
Me.Caption = Nz(Me![ItemText], "")
FillOptions
End Sub
Private Sub FillOptions()
' Fill in the options for this switchboard page.
' The number of buttons on the form.
Const conNumButtons = 8
Dim con As Object
Dim rs As Object
Dim stSql As String
Dim intOption As Integer
' Set the focus to the first button on the form,
' and then hide all of the buttons on the form
' but the first. You can't hide the field with the focus.
Me![Option1].SetFocus
For intOption = 2 To conNumButtons
Me("Option" & intOption).Visible = False
Me("OptionLabel" & intOption).Visible = False
Next intOption
' Open the table of Switchboard Items, and find
' the first item for this Switchboard Page.
Set con = Application.CurrentProject.Connection
stSql = "SELECT * FROM [Switchboard Items]"
stSql = stSql & " WHERE [ItemNumber] > 0 AND [SwitchboardID]=" & Me![SwitchboardID]
stSql = stSql & " ORDER BY [ItemNumber];"
Set rs = CreateObject("ADODB.Recordset")
rs.Open stSql, con, 1 ' 1 = adOpenKeyset
' If there are no options for this Switchboard Page,
' display a message. Otherwise, fill the page with the items.
If (rs.EOF) Then
Me![OptionLabel1].Caption = "There are no items for this switchboard page"
Else
While (Not (rs.EOF))
Me("Option" & rs![ItemNumber]).Visible = True
Me("OptionLabel" & rs![ItemNumber]).Visible = True
Me("OptionLabel" & rs![ItemNumber]).Caption = rs![ItemText]
rs.MoveNext
Wend
End If
' Close the recordset and the database.
rs.Close
Set rs = Nothing
Set con = Nothing
End Sub
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
' 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
' Find the item in the Switchboard Items table
' that corresponds to the button that was clicked.
Set con = Application.CurrentProject.Connection
Set rs = CreateObject("ADODB.Recordset")
stSql = "SELECT * FROM [Switchboard Items] "
stSql = stSql & "WHERE [SwitchboardID]=" & Me![SwitchboardID] & " AND [ItemNumber]=" & intBtn
rs.Open stSql, con, 1 ' 1 = adOpenKeyset
' If no item matches, report the error and exit the function.
If (rs.EOF) Then
MsgBox "There was an error reading the Switchboard Items table."
rs.Close
Set rs = Nothing
Set con = Nothing
Exit Function
End If
Select Case rs![Command]
' Go to another switchboard.
Case conCmdGotoSwitchboard
Me.Filter = "[ItemNumber] = 0 AND [SwitchboardID]=" & rs![Argument]
' Open a form in Add mode.
Case conCmdOpenFormAdd
DoCmd.OpenForm rs![Argument], , , , acAdd
' Open a form.
Case conCmdOpenFormBrowse
DoCmd.OpenForm rs![Argument]
' Open a report.
Case conCmdOpenReport
DoCmd.OpenReport rs![Argument], acPreview
' Customize the Switchboard.
Case conCmdCustomizeSwitchboard
' Handle the case where the Switchboard Manager
' is not installed (e.g. Minimal Install).
On Error Resume Next
Application.Run "ACWZMAIN.sbm_Entry"
If (Err <> 0) Then MsgBox "Command not available."
On Error GoTo 0
' Update the form.
Me.Filter = "[ItemNumber] = 0 AND [Argument] = 'Default' "
Me.Caption = Nz(Me![ItemText], "")
FillOptions
' Exit the application.
Case conCmdExitApplication
CloseCurrentDatabase
' Run a macro.
Case conCmdRunMacro
DoCmd.RunMacro rs![Argument]
' Run code.
Case conCmdRunCode
Application.Run rs![Argument]
' Open a Data Access Page
Case conCmdOpenPage
DoCmd.OpenDataAccessPage rs![Argument]
' Any other command is unrecognized.
Case Else
MsgBox "Unknown option."
End Select
' Close the recordset and the database.
rs.Close
HandleButtonClick_Exit:
On Error Resume Next
Set rs = Nothing
Set con = Nothing
Exit Function
HandleButtonClick_Err:
' If the action was cancelled by the user for
' some reason, don't display an error message.
' Instead, resume on the next line.
If (Err = conErrDoCmdCancelled) Then
Resume Next
Else
MsgBox "There was an error executing the command.", vbCritical
Resume HandleButtonClick_Exit
End If
End Function
Unos podataka
-----------------------
Option Compare Database
Private Sub Lektor_dugme_Click()
On Error GoTo Err_Lektor_dugme_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Lektori"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Lektor_dugme_Click:
Exit Sub
Err_Lektor_dugme_Click:
MsgBox Err.Description
Resume Exit_Lektor_dugme_Click
End Sub
Private Sub Korektori_dugme_Click()
On Error GoTo Err_Korektori_dugme_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Korektori"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Korektori_dugme_Click:
Exit Sub
Err_Korektori_dugme_Click:
MsgBox Err.Description
Resume Exit_Korektori_dugme_Click
End Sub
Private Sub Operateri_dugme_Click()
On Error GoTo Err_Operateri_dugme_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Operater"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Operateri_dugme_Click:
Exit Sub
Err_Operateri_dugme_Click:
MsgBox Err.Description
Resume Exit_Operateri_dugme_Click
End Sub
Private Sub Nosilac_dugme_Click()
On Error GoTo Err_Nosilac_dugme_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Takt nosilac"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Nosilac_dugme_Click:
Exit Sub
Err_Nosilac_dugme_Click:
MsgBox Err.Description
Resume Exit_Nosilac_dugme_Click
End Sub
Private Sub Izlaz_dugme_Click()
On Error GoTo Err_Izlaz_dugme_Click
DoCmd.Quit
Exit_Izlaz_dugme_Click:
Exit Sub
Err_Izlaz_dugme_Click:
MsgBox Err.Description
Resume Exit_Izlaz_dugme_Click
End Sub
Switchboard
----------------
Option Compare Database
Private Sub Form_Open(Cancel As Integer)
' Minimize the database window and initialize the form.
' Move to the switchboard page that is marked as the default.
Me.Filter = "[ItemNumber] = 0 AND [Argument] = 'Default' "
Me.FilterOn = True
End Sub
Private Sub Form_Current()
' Update the caption and fill in the list of options.
Me.Caption = Nz(Me![ItemText], "")
FillOptions
End Sub
Private Sub FillOptions()
' Fill in the options for this switchboard page.
' The number of buttons on the form.
Const conNumButtons = 8
Dim con As Object
Dim rs As Object
Dim stSql As String
Dim intOption As Integer
' Set the focus to the first button on the form,
' and then hide all of the buttons on the form
' but the first. You can't hide the field with the focus.
Me![Option1].SetFocus
For intOption = 2 To conNumButtons
Me("Option" & intOption).Visible = False
Me("OptionLabel" & intOption).Visible = False
Next intOption
' Open the table of Switchboard Items, and find
' the first item for this Switchboard Page.
Set con = Application.CurrentProject.Connection
stSql = "SELECT * FROM [Switchboard Items]"
stSql = stSql & " WHERE [ItemNumber] > 0 AND [SwitchboardID]=" & Me![SwitchboardID]
stSql = stSql & " ORDER BY [ItemNumber];"
Set rs = CreateObject("ADODB.Recordset")
rs.Open stSql, con, 1 ' 1 = adOpenKeyset
' If there are no options for this Switchboard Page,
' display a message. Otherwise, fill the page with the items.
If (rs.EOF) Then
Me![OptionLabel1].Caption = "There are no items for this switchboard page"
Else
While (Not (rs.EOF))
Me("Option" & rs![ItemNumber]).Visible = True
Me("OptionLabel" & rs![ItemNumber]).Visible = True
Me("OptionLabel" & rs![ItemNumber]).Caption = rs![ItemText]
rs.MoveNext
Wend
End If
' Close the recordset and the database.
rs.Close
Set rs = Nothing
Set con = Nothing
End Sub
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
' 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
' Find the item in the Switchboard Items table
' that corresponds to the button that was clicked.
Set con = Application.CurrentProject.Connection
Set rs = CreateObject("ADODB.Recordset")
stSql = "SELECT * FROM [Switchboard Items] "
stSql = stSql & "WHERE [SwitchboardID]=" & Me![SwitchboardID] & " AND [ItemNumber]=" & intBtn
rs.Open stSql, con, 1 ' 1 = adOpenKeyset
' If no item matches, report the error and exit the function.
If (rs.EOF) Then
MsgBox "There was an error reading the Switchboard Items table."
rs.Close
Set rs = Nothing
Set con = Nothing
Exit Function
End If
Select Case rs![Command]
' Go to another switchboard.
Case conCmdGotoSwitchboard
Me.Filter = "[ItemNumber] = 0 AND [SwitchboardID]=" & rs![Argument]
' Open a form in Add mode.
Case conCmdOpenFormAdd
DoCmd.OpenForm rs![Argument], , , , acAdd
' Open a form.
Case conCmdOpenFormBrowse
DoCmd.OpenForm rs![Argument]
' Open a report.
Case conCmdOpenReport
DoCmd.OpenReport rs![Argument], acPreview
' Customize the Switchboard.
Case conCmdCustomizeSwitchboard
' Handle the case where the Switchboard Manager
' is not installed (e.g. Minimal Install).
On Error Resume Next
Application.Run "ACWZMAIN.sbm_Entry"
If (Err <> 0) Then MsgBox "Command not available."
On Error GoTo 0
' Update the form.
Me.Filter = "[ItemNumber] = 0 AND [Argument] = 'Default' "
Me.Caption = Nz(Me![ItemText], "")
FillOptions
' Exit the application.
Case conCmdExitApplication
CloseCurrentDatabase
' Run a macro.
Case conCmdRunMacro
DoCmd.RunMacro rs![Argument]
' Run code.
Case conCmdRunCode
Application.Run rs![Argument]
' Open a Data Access Page
Case conCmdOpenPage
DoCmd.OpenDataAccessPage rs![Argument]
' Any other command is unrecognized.
Case Else
MsgBox "Unknown option."
End Select
' Close the recordset and the database.
rs.Close
HandleButtonClick_Exit:
On Error Resume Next
Set rs = Nothing
Set con = Nothing
Exit Function
HandleButtonClick_Err:
' If the action was cancelled by the user for
' some reason, don't display an error message.
' Instead, resume on the next line.
If (Err = conErrDoCmdCancelled) Then
Resume Next
Else
MsgBox "There was an error executing the command.", vbCritical
Resume HandleButtonClick_Exit
End If
End Function
Unos podataka
-----------------------
Option Compare Database
Private Sub Lektor_dugme_Click()
On Error GoTo Err_Lektor_dugme_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Lektori"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Lektor_dugme_Click:
Exit Sub
Err_Lektor_dugme_Click:
MsgBox Err.Description
Resume Exit_Lektor_dugme_Click
End Sub
Private Sub Korektori_dugme_Click()
On Error GoTo Err_Korektori_dugme_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Korektori"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Korektori_dugme_Click:
Exit Sub
Err_Korektori_dugme_Click:
MsgBox Err.Description
Resume Exit_Korektori_dugme_Click
End Sub
Private Sub Operateri_dugme_Click()
On Error GoTo Err_Operateri_dugme_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Operater"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Operateri_dugme_Click:
Exit Sub
Err_Operateri_dugme_Click:
MsgBox Err.Description
Resume Exit_Operateri_dugme_Click
End Sub
Private Sub Nosilac_dugme_Click()
On Error GoTo Err_Nosilac_dugme_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Takt nosilac"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Nosilac_dugme_Click:
Exit Sub
Err_Nosilac_dugme_Click:
MsgBox Err.Description
Resume Exit_Nosilac_dugme_Click
End Sub
Private Sub Izlaz_dugme_Click()
On Error GoTo Err_Izlaz_dugme_Click
DoCmd.Quit
Exit_Izlaz_dugme_Click:
Exit Sub
Err_Izlaz_dugme_Click:
MsgBox Err.Description
Resume Exit_Izlaz_dugme_Click
End Sub
