Question Publish access (mdb) to app (exe)

[dzens]

Hi experts,
i completely built my program in access, and i want to publish it to app, this app is like pure app. (The users can not detect it was built in access). The Users juz only import or export data, can not change anything (structure)...
Try try to create mde file but its look like access ... and the users can find the database board.
Could you show me the way to do that ?
Thks in advance

 

[DCrake]

If your system only imports/exports data does it involve user intervention at all?

If not then why not write it in VB and make an exe out of it.

 

[Dennisk]

Access dbs cannot be converted to .exes. You can hide the database window, click tools / startup to see all options.
You can compile you db to a MDC or other formats with later versions of access. But you stll require the Access runtime.

 

[Banana]

Dcrake - FWIW, I do know of some Access application where it's simply used to import/export but forms are used to provide a friendly UI that deals with business-specific stuff, so it's not a simple File-Get External Data-Import/File-Export affairs (which could even be done with a batch file, probably).

To answer the OP's question:

This is not really doable, though there are hacks to make it look like an application. NigelShaw posted an example of how at this thread. Don't expect it to be simple, and frankly, I'd just be content to distribute it as Access; users will use what they need to use.

 

[dzens]

Thk all
I try to uncheck database window in tool/startup. Anh I can't find it
How can I get it.
Thks alot

 

[Dennisk]

its called 'Hide Database Window'

 

[Guus2005]

And here's some code to do it programatically:

'------------------------------------------------------
'OPTIONAL FUNCTIONS TO DISABLE BYPASS KEY AND TOOLBARS
'------------------------------------------------------
Public Sub SetAdmin(Optional blnIsAdmin As Boolean = True)
    'Admin user gives access to all functionality.
    Const DB_Text As Long = 10
    Const DB_Boolean As Long = 1
    ChangeProperty "StartupForm", DB_Text, "Customers"
    ChangeProperty "StartupShowDBWindow", DB_Boolean, blnIsAdmin
    ChangeProperty "StartupShowStatusBar", DB_Boolean, blnIsAdmin
    ChangeProperty "AllowBuiltInToolbars", DB_Boolean, blnIsAdmin
    ChangeProperty "AllowFullMenus", DB_Boolean, blnIsAdmin
    ChangeProperty "AllowBreakIntoCode", DB_Boolean, blnIsAdmin
    ChangeProperty "AllowSpecialKeys", DB_Boolean, blnIsAdmin
    ChangeProperty "AllowBypassKey", DB_Boolean, True
End Sub

Function ChangeProperty(strPropName As String, varPropType As Variant, varPropValue As Variant) As Integer
    Dim dbs As Object, prp As Variant
    Const conPropNotFoundError = 3270
    Set dbs = CurrentDb
    On Error GoTo Change_Err
    dbs.Properties(strPropName) = varPropValue
    ChangeProperty = True
Change_Bye:
    Exit Function
Change_Err:
    If Err = conPropNotFoundError Then    ' Property not found.
        Set prp = dbs.CreateProperty(strPropName, varPropType, varPropValue)
        dbs.Properties.Append prp
        Resume Next
    Else        ' Unknown error.
        ChangeProperty = False
        Resume Change_Bye
    End If
End Function

Enjoy!