Database libri

[Dylan666]

Mi appresto a creare un piccolo database per una cosa come un migliaio massimo (ma spero siano molti meno) di libri e dispense. Il committente è un ultra 50enne con modeste conoscenze del PC. Siccome è un amico di famiglia non necessita di un qualcosa di "professionale", ma di funzionale sì.

Ora, io avevo pensato ad Access (la mia è la versione 2002) ma si presenta il seguente problema: vorrei cercare di fare il tutto più possibile attraverso le Maschere, sia l'immissione che la ricerca dei dati. Per la prima non c'è problema, si fa tutto via wizard, ma sulla seconda ho qualche difficoltà. Sapreste indirizzarmi verso qualche sito particolarmente datto? Non mi fate Googlare a vuoto... Domanda n 2: è possibile fare in modo che la maschera ricopra interamente lo schermo così da coprire tutto le barre degli strumenti e il resto dell'interfaccia di Access (un po' come si può fare con Excell)?

[archimede]

Ora, io avevo pensato ad Access (la mia è la versione 2002) ma si presenta il seguente problema: vorrei cercare di fare il tutto più possibile attraverso le Maschere, sia l'immissione che la ricerca dei dati. Per la prima non c'è problema, si fa tutto via wizard, ma sulla seconda ho qualche difficoltà. Sapreste indirizzarmi verso qualche sito particolarmente datto?

Prova qui.

Domanda n 2: è possibile fare in modo che la maschera ricopra interamente lo schermo così da coprire tutto le barre degli strumenti e il resto dell'interfaccia di Access (un po' come si può fare con Excell)?

Io avevo usato questo (A97):

Codice: Seleziona tutto

'Definizioni necessarie per la Function fAccessWindow (nasconde la finestra di Access per RT Version)
'Start
Private Declare Function IsWindowVisible Lib "user32" (ByVal hWnd As Long) As Long
Dim dwReturn As Long
Const SW_HIDE = 0
Const SW_SHOWNORMAL = 1
Const SW_SHOWMINIMIZED = 2
Const SW_SHOWMAXIMIZED = 3
Private Declare Function ShowWindow Lib "user32" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long

'Definizioni necessarie per la Function fAccessWindow (nasconde la finestra di Access per RT Version)
'Start
   ' The following Declares and constants were taken from WIN30API.TXT
   ' that ships with the Visual Basic Professional Edition.
   ' Enter each of the following Declare statements on one, single line:
   Global Const GW_HWNDNEXT As Long = 2
   Global Const GW_CHILD As Long = 5
   Global Const GWW_ID As Long = (-12)
   Declare Function SetFocusAPI Lib "user32" Alias "SetFocus" _
                    (ByVal hWnd As Long) As Long
   Declare Function apiGetDesktopWindow Lib "user32" Alias "GetDesktopWindow" () As Long
'   Declare Function GetDeskTopWindow Lib "User32" () As Long
   Declare Function GetWindow& Lib "user32" _
                    (ByVal hWnd As Long, ByVal wCmd As Long)
   Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" _
                    (ByVal hWnd As Long, ByVal lpString As String, ByVal aint As Long) As Long
   Declare Function GetClassName Lib "user32" Alias "GetClassNameA" _
                    (ByVal hWnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
   Declare Function GetParent Lib "user32" (ByVal hWnd As Long) As Long
   Declare Function GetWindowWord Lib "user32" _
                    (ByVal hWnd As Long, ByVal nIndex As Long) As Long
'End
    If Procedure = "Hide" Then
        dwReturn = ShowWindow(Application.hWndAccessApp, SW_HIDE)
    End If
    If Procedure = "Show" Then
        dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMAXIMIZED)
    End If
    If Procedure = "Minimize" Then
        dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMINIMIZED)
    End If
    If SwitchStatus = True Then
        If IsWindowVisible(hWndAccessApp) = 1 Then
            dwReturn = ShowWindow(Application.hWndAccessApp, SW_HIDE)
        Else
            dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMAXIMIZED)
        End If
    End If
    If StatusCheck = True Then
        If IsWindowVisible(hWndAccessApp) = 0 Then
            fAccessWindow = False
        End If
        If IsWindowVisible(hWndAccessApp) = 1 Then
            fAccessWindow = True
        End If
    End If
End Function

e allo startup richiamavo Call fAccessWindow("Hide").

Occhio però:
1) Conserva sempre una copia del db di sviluppo prima di fare prove: potresti non riuscire più a metter mano nel db
2) avrai problemi con la preview dei reports (ho finito con l'usare lo Snapshot Viewer).

HTH.

Alessandro