Error accessing the system registry

[Cogito]

I installed Office 2000 Professional onto a Windows Vista laptop and when I tried to compile the code the following error message appears:

'User-Defined type not defined'

I went to check the registry and the following message appears:

'Error accessing the system registry'.

I have tied to repair Access using the Office 2000 repair facility but no luck.

Do you have any suggestions on this problem.

Thank you

[ADezii]

I installed Office 2000 Professional onto a Windows Vista laptop and when I tried to compile the code the following error message appears:

'User-Defined type not defined'

I went to check the registry and the following message appears:

'Error accessing the system registry'.

I have tied to repair Access using the Office 2000 repair facility but no luck.

Do you have any suggestions on this problem.

Thank you

Post the code that you were attempting to compile.

[Cogito]

I forgot to mention that error occurs when I try to look at the references in the Visual Basic window.

Here is a sample of the code. There is no problem with it on an XP laptop.

Option Compare Database
Option Explicit
 
Private Sub cboProperty_AfterUpdate()
 
Me.cboFlat.Requery
 
End Sub
 
Private Sub cmdClose_Click()
 
On Error GoTo Err_cmdClose_Click
 
DoCmd.OpenForm "frmMainMenu", acNormal
DoCmd.Close acForm, "frmReports"
 
Exit_cmdClose_Click:
    Exit Sub
 
Err_cmdClose_Click:
    MsgBox Err.Description
    Resume Exit_cmdClose_Click
 
End Sub
 
Private Sub cmdLabelP1_Click()
 
 
DoCmd.OpenReport "rptOwners_Labels", acViewPreview
DoCmd.RunMacro "mrToolbar.ShowPrintTool"
End Sub
 
Private Sub cmdLabelP2_Click()
 
DoCmd.OpenReport "rptOwners_Labels_P2", acViewPreview
DoCmd.RunMacro "mrToolbar.ShowPrintTool"
End Sub
 
Private Sub cmdPrint_Click()
 
Dim Msg As String, Msg2 As String, Response As String, Style As String
 
Msg = "There are no Arrears for " & "" & Forms![frmReports].[cboProperty].Column(1)
Style = vbOKOnly + vbInformation + vbDefaultButton1
 
Msg2 = "There are no Outstanding Actions for " & "" & Forms![frmReports].[cboProperty].Column(1)
 
On Error GoTo Err_cmdPrint_Click
 
If Me.lstReports = "rptInvoice" Then
    DoCmd.SetWarnings False
    DoCmd.OpenQuery "qupdInvoicesPrinted"
    DoCmd.SetWarnings True
End If
 
If Me.lstReports = "rptServiceChargeArrearsRpt" Then
    DoCmd.SetWarnings False
    DoCmd.OpenQuery "qdelServiceChargeArrearsTotal"
    DoCmd.OpenQuery "qappServiceChargeASrrearsTotalCY"
    DoCmd.OpenQuery "qappServiceChargeASrrearsTotalPY"
    DoCmd.SetWarnings True
End If
 
If Me.lstReports = "rptInvoiceArrears" And IsNull(DLookup("[PropertyID]", "qselInvoicesArrearsRpt")) Then
    Response = MsgBox(Msg, Style)
    If Response = 1 Then
        GoTo 10
    End If
End If
 
If Me.lstReports = "rptGroundRentArrears" And IsNull(DLookup("[PropertyID]", "qselGroundRentArrears")) Then
    Response = MsgBox(Msg, Style)
    If Response = 1 Then
        GoTo 10
    End If
End If
 
If Me.lstReports = "rptPropertyActions" And IsNull(DLookup("[PropertyID]", "qselPropertyAction")) Then
    Response = MsgBox(Msg2, Style)
    If Response = 1 Then
        GoTo 10
    End If
End If
'rptPropertyActions
DoCmd.OpenReport Me.lstReports, acViewPreview
DoCmd.RunMacro "mrToolbar.ShowPrintTool"
 
10
 
Exit_cmdPrint_Click:
    Exit Sub
 
Err_cmdPrint_Click:
    MsgBox Err.Description
    Resume Exit_cmdPrint_Click
 
End Sub
 
 
 
Private Sub Command17_Click()
 
DoCmd.OpenReport "rptOwners_Labels_FH_P2", acViewPreview
DoCmd.RunMacro "mrToolbar.ShowPrintTool"
End Sub
 
Private Sub Command18_Click()
 
DoCmd.OpenReport "rptOwners_Labels_FH_P1", acViewPreview
DoCmd.RunMacro "mrToolbar.ShowPrintTool"
End Sub
 
Private Sub Form_Open(Cancel As Integer)
On Error GoTo Err_Form_Open
 
DoCmd.Maximize
 
Me.cboFlat.Visible = False
Me.cboProperty.Visible = False
Me.cboYear.Visible = False
Me.cboHalfYear.Visible = False
 
Exit_Form_Open:
    Exit Sub
 
Err_Form_Open:
    MsgBox Err.Description
    Resume Exit_Form_Open
 
End Sub
 
Private Sub lstReports_Click()
 
If Me.lstReports = "rptContactProperty" Or Me.lstReports = "rptBillExtraInvoice" Then
    Me.cboFlat.Visible = True
    Me.cboProperty.Visible = True
Else
    Me.cboFlat.Visible = False
    Me.cboProperty.Visible = False
End If
 
If Me.lstReports = "rptInvoiceArrears" Or Me.lstReports = "rptPropertyActions" Or Me.lstReports = "rptInvoiceDetails" Or Me.lstReports = "rptOwners" Or Me.lstReports = "rptInvoice_Phase2" Then
    Me.cboProperty.Visible = True
End If
 
If Me.lstReports = "rptInvoice" Or Me.lstReports = "rptInvoiceRedecWindows" Or Me.lstReports = "rptInvoiceRedecoration" Then
    Me.cboProperty.Visible = True
    Me.cboYear.Visible = True
Else
    Me.cboYear.Visible = False
End If
 
If Me.lstReports = "rptInvoiceReprint" Then
    Me.cboFlat.Visible = True
    Me.cboProperty.Visible = True
    Me.cboYear.Visible = True
Else
    'Me.cboYear.Visible = False
End If
 
If Me.lstReports = "rptGroundRentInvoice" Or Me.lstReports = "rptGroundRentArrears" Then
    Me.cboHalfYear.Visible = True
    Me.lblHalfYear.Visible = True
    Me.cboYear.Visible = True
Else
    Me.cboHalfYear.Visible = False
    Me.lblHalfYear.Visible = False
    Me.cboYear.Visible = False
End If
 
End Sub
 

Thank you for your help in this matter. I am not a experienced programmer, I try an learn as I go along.

[Denburt]

The code appears to be o.k. from what I can see. When you get the error message is there a button called "debug" if so click this and tell us what line it is on.
'User-Defined type not defined'

FYI, I know your version is 2000 but have heard that MS Access 2007 is much more restrictive in the syntax department than previous versions. Although many people disagree for one reason or another the correct way to refer to a control is Me!ControlName. Me.Controlname can be quite quirky I have found this to be an issue for me in the past with older versions of Access. Just an idea.

According to Microsoft one thing MS Access will not like in Access 2007 is if you use a boolean as such.

If myBool then

Microsoft states that in 2007 you will need the complete statement.

If myBool = True then

[ADezii]

I installed Office 2000 Professional onto a Windows Vista laptop and when I tried to compile the code the following error message appears:

'User-Defined type not defined'

I went to check the registry and the following message appears:

'Error accessing the system registry'.

I have tied to repair Access using the Office 2000 repair facility but no luck.

Do you have any suggestions on this problem.

Thank you

1. The Style and Response Variables are Declared as String which is incorrect, they shoud be declared as Integers, namely:
   

   Dim Msg As String, Msg2 As String, Response As String, Style As String
                                  'SHOULD BE
   Dim Msg As String, Msg2 As String, Response As Integer, Style As Integer
    

2. GoTo Line Number, except in Error Trapping, is usually never a good idea to use. It is only supported for backward compatibility and may not even be supported in 2007. Check on this.

[Cogito]

Thank you for your prompt reply,

The problem is on a friend's laptop and I do not have access to it this week. From memory when I ran compile the error starts on the first DIM statement.

When I select Tools/References in the Microsoft Visual Basic window the

"Error accessing the system registry" message appears.

The database runs fine on my XP laptop.

I hope this is of help.

[Denburt]

It is als nevera goog idea to use a single word for variables you might find yourself bumpininto keywords especially since they can change from version to version.

instead of:
Dim Msg As String, Msg2 As String, Response As Integer, Style As Integer

I would use:
Dim Msg As String, Msg2 As String, intResponse As Integer, strStyle As Integer

[missinglinq]

You might want to look at this forum's posting regarding Vista and Access databases!

http://www.thescripts.com/forum/thread653390.html