1. Computer problem? Tech Support Guy is completely free -- paid for by advertisers and donations. Click here to join today! If you're new to Tech Support Guy, we highly recommend that you visit our Guide for New Members.

Dying Here!!!!!!!!

Discussion in 'Business Applications' started by NotSoNu, Mar 24, 2005.

Thread Status:
Not open for further replies.
Advertisement
  1. NotSoNu

    NotSoNu Thread Starter

    Joined:
    Jan 4, 2005
    Messages:
    8
    Ok mybe I am missing something, but I can't seem to find it. :mad:

    I am compiling several Access 2000 dB to create one. Everything was going great untill I started to run my tests. I have a total of 8 Switchboards that I want to make a Master Board to operate the individual boards. As I was working it, I notices that 3 of my switchboards aren't working. :( The really sad part is that in their individual dB's they work properly. :mad: Will it not intergrate??? :confused:
    This is what I get when trying to open switchboards 4, 6, and 7...

    MVB
    Compile error: userdefined type not defined.

    It then opens debuggerand highlights

    Private Sub Form_Open (Cancel as Interger)

    Here is the entire code....

    Option Compare Database

    Private Sub Form_Open(Cancel As Integer)
    ' Minimize the database window and initialize the form.

    Dim dbs As Database
    Dim rst As Recordset

    On Error GoTo Form_Open_Err

    ' Minimize the database window.
    DoCmd.SelectObject acForm, "Switchboard", True
    DoCmd.Minimize

    DoCmd.Hourglass False
    Set dbs = CurrentDb()
    Set rst = dbs.OpenRecordset("My Company Information")
    If rst.RecordCount = 0 Then
    rst.AddNew
    rst![Address] = Null
    rst.Update
    MsgBox "Before using this application, you need to enter your company name, address and related information."
    DoCmd.OpenForm "My Company Information", , , , , acDialog
    End If
    rst.Close
    dbs.Close

    ' Move to the switchboard page that is marked as the default.
    Me.Filter = "[ItemNumber] = 0 AND [Argument] = 'Default' "
    Me.FilterOn = True

    Form_Open_Exit:
    Exit Sub

    Form_Open_Err:
    MsgBox Err.Description
    Resume Form_Open_Exit

    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


    Here is the Code for a working switchboard...


    Private Sub Form_Open(Cancel As Integer)
    ' Minimize the database window and initialize the form.

    On Error GoTo Form_Open_Err

    ' Minimize the database window.
    DoCmd.SelectObject acForm, "Switchboard", True
    DoCmd.Minimize

    ' Move to the switchboard page that is marked as the default.
    Me.Filter = "[ItemNumber] = 0 AND [Argument] = 'Default' "
    Me.FilterOn = True

    Form_Open_Exit:
    Exit Sub

    Form_Open_Err:
    MsgBox Err.Description
    Resume Form_Open_Exit

    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



    Any Help in locating my problem will be very appreciated. :cool:
     
  2. OBP

    OBP Trusted Advisor

    Joined:
    Mar 8, 2005
    Messages:
    19,679
    What do you get when you manualy try to Compile this VB in Dbug>Compile?
     
  3. NotSoNu

    NotSoNu Thread Starter

    Joined:
    Jan 4, 2005
    Messages:
    8
    I get a message stating that the connection has been lost. If I delete the switchboard and import it again, it won't import.
     
  4. NotSoNu

    NotSoNu Thread Starter

    Joined:
    Jan 4, 2005
    Messages:
    8
    Ok, I have found the problem... when I close my database, it erases all the scripts that run my forms. I have uninstalled and reinstalled access and that did not correct the problem. What do I need to do to correct this action???? :confused: :confused: :confused:
    I did get a message durring install that said Microsoft could not connect with internal server... does this have anything to do with it?? :confused: :confused: :confused:
     
  5. OBP

    OBP Trusted Advisor

    Joined:
    Mar 8, 2005
    Messages:
    19,679
    It sounds as if you inadvertantly hit link instead of import data. I would try and import the switchboards again and ensure you choose import. Also try a repair and compact of the Database.
     
  6. NotSoNu

    NotSoNu Thread Starter

    Joined:
    Jan 4, 2005
    Messages:
    8
    Got that part figured out. I had to dl office updates because vb wasn't compatable with Access2000. :eek: Now it is svaing the import modules when I close the file. Now I have to figure out why I am now getting a new message...

    Compile Error: User-defined type not defined. :eek:
     
  7. OBP

    OBP Trusted Advisor

    Joined:
    Mar 8, 2005
    Messages:
    19,679
    What line of vb does it highlight when it gives you the error message?
     
  8. Sponsor

As Seen On
As Seen On...

Welcome to Tech Support Guy!

Are you looking for the solution to your computer problem? Join our site today to ask your question. This site is completely free -- paid for by advertisers and donations.

If you're not already familiar with forums, watch our Welcome Guide to get started.

Join over 733,556 other people just like you!

Loading...
Thread Status:
Not open for further replies.

Short URL to this thread: https://techguy.org/345513

  1. This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
    By continuing to use this site, you are consenting to our use of cookies.
    Dismiss Notice