merde, i messed up please help (1 Viewer)

murray83

Games Collector
Local time
Today, 15:24
Joined
Mar 31, 2017
Messages
728
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
 

Attachments

  • Office Q & A.accdb
    1.2 MB · Views: 84

Gasman

Enthusiastic Amateur
Local time
Today, 15:24
Joined
Sep 21, 2011
Messages
14,056
Well it is opening for me.Password for Admin and whatever that lookup control needs?
 

murray83

Games Collector
Local time
Today, 15:24
Joined
Mar 31, 2017
Messages
728
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

Enthusiastic Amateur
Local time
Today, 15:24
Joined
Sep 21, 2011
Messages
14,056
You can get into it OK, just cannot get a VBA window up?
 

Gasman

Enthusiastic Amateur
Local time
Today, 15:24
Joined
Sep 21, 2011
Messages
14,056
Here it is.
Be careful next time. :)

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

Code:
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
 

Attachments

  • Rescue Q&A.accdb
    896 KB · Views: 71

MajP

You've got your good things, and you've got mine.
Local time
Today, 11:24
Joined
May 21, 2018
Messages
8,463
Works for me as well using the admin password.
 

Users who are viewing this thread

Top Bottom