Newsgroup: it.comp.appl.access
Titolo: Nascondere finestra DB (AC_XP)

Ciao a tutti,
ho un problema vorrei nascondere la finestra del database...ho già spuntato
da strumenti-->avvio e impostato la maschera all'apertura del DB ma credo
che per il fatto che da codice abbia nascosto delle barre, continua ad
essere visibile!
Vorrei utilizzare il comando da VB
StartupShowDBWindow = False
ma non funziona...e con certezza non saprei dove inserirlo...ho provato nel
codice della maschera che utilizzo come avvio ma non fuziona...come posso
fare...vi invio uno stralcio del codice della maschera che utilizzo
all'avvio
Grazie
Private Sub Form_Open(Cancel As Integer)
    DoCmd.ShowToolbar "Formattazione (maschera/report)", acToolbarNo
    DoCmd.ShowToolbar "Struttura maschera", acToolbarNo
    DoCmd.ShowToolbar "Visualizzazione maschera", acToolbarNo
    ' Vorrei inserirlo qui...ma non va!
    Dim CodSbloc As String
    Dim Dbs As Database
    Dim Rst As Recordset
    On Error Resume Next
    Set Dbs = CurrentDb
    Set Rst = Dbs.OpenRecordset("select * from Chiave")
    Rst.MoveFirst
    If Rst!chiave <> GetSerialNumber Then
        CodSbloc = InputBox("Si è tentato di duplicare l'applicativo!" &
(Chr(13)) & "Inserire il codice di sblocco!" & (Chr(13)) & "Il programma
sarà chiuso comunque")
        If CodSbloc = "250378" Then 'questo valore è sostituibile con quello
che volete
            Rst.Edit
            Rst!chiave = GetSerialNumber
            Rst.Update
        End If
        Rst.Close
        Dbs.Close
        Set Rst = Nothing
        Set Dbs = Nothing
        DoCmd.Quit 'questo comando chiude in ogni caso il menu del programma
se è stato duplicato
    End If
    Rst.Close
    Dbs.Close
    Set Rst = Nothing
    Set Dbs = Nothing
End Sub


[CUT]
prova con queste:
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
'Ecco la funzione da lanciare
Function Finestra()
Const DB_Text As Long = 10
Const DB_Boolean As Long = 1
        ChangeProperty "StartupShowDBWindow", DB_Boolean, False
End Function

 Grazie Neo...ma tutto questo dove lo inserisco?Faccio un modulo?Oppure lo
inserisco nell'evento Su apertura della mia maschera?
Ciao
Robby


metti tutto in un modulo
e su apertura della form lanci
Finestra

 ha scritto nel messaggio
news:CSkHa.183963$g92.3...@news2.tin.it...

prova a lanciare finestra prima di lanciare il controllo.
ora devo andare se non va rimandami un post di avviso e domani provo a
guardare il tuo codice..


prova
ad inserire il comando finestra come ultima azione quando chiudi il database
il comando che blocca la visualizzazione della finestra del database ha
valore dal successivo riavvio del database,
quindi non vorrei che hai da qualche parte una funzione che la visualizza.
il codice l'ho guardato ma non ho trovato nessun richiamo alle propietà del
database..

 ha scritto nel messaggio
news:hUzHa.97285$lK4.2...@twister1.libero.it...

Neo ho trovato la soluzione...praticamente è il contrario di quello che c'è
scritto sulla guida...
-Dal menù strumenti lasci la visualizzazione del database
-poi all'interno della macro autoexec inserisci il comando "esegui comando",
richiami una funzione (che io ho chiamato NascBar() ) dove richiami una
macro e utilizzi il comando "nascondi finestra"....è un pò complesso lo so,
ma almeno va...
Grazie comunque del disturbo
Ciao
Robby