merde, i messed up please help

[murray83]

OK i may have done two silly things

1. not backed up my work before i seem to have cocked it up

and

2. cocked it up so it wont open with the shift key :banghead::banghead::banghead: and i haven't disabled it via code just in the options for the database


attached is the thing, if you can help or tell me how i can export to a fresh DB then be v v grateful

 

[Gasman]

Well it is opening for me.Password for Admin and whatever that lookup control needs?

 

[murray83]

Well it is opening for me.Password for Admin and whatever that lookup control needs?

ok ill try again in morning as getting late

 

[Gasman]

You can get into it OK, just cannot get a VBA window up?

 

[Gasman]

Here it is.
Be careful next time.

And you did put code in it, in a module called shiftdisable?

Option Compare Database

Public Function SetProperties(strPropName As String, varPropType As Variant, varPropValue As Variant) As Integer
On Error GoTo Err_SetProperties
    
    'Dim db As Database, prp As Property
    Dim db As DAO.Database, prp As DAO.Property
    
    Set db = CurrentDb
    db.Properties(strPropName) = varPropValue
    SetProperties = True
    Set db = Nothing
    
Exit_SetProperties:
    Exit Function
    
Err_SetProperties:
    If Err = 3270 Then 'Property not found
        Set prp = db.CreateProperty(strPropName, varPropType, varPropValue)
        db.Properties.Append prp
        Resume Next
    Else
        SetProperties = False
        MsgBox "Runtime Error # " & Err.Number & vbCrLf & vbLf & Err.Description
        Resume Exit_SetProperties
    End If
    
End Function

 

[MajP]

Works for me as well using the admin password.