Buongiorno. Premesso che non ho mai giocherellato con le API e ho sempre tratto inspirazione modificando codici visti qua e la avrei bisogno di consigli sulla fattibilità di una cosa.
Sono riuscito tramite questa semplice funzione
Public Sub Finestra(ByRef Frm As Form, ByVal Caso As String)
Dim hWindow As Long
Dim nResult As Long
Dim nCmdShow As Long
Dim AppAccess As Access.Application
If Not Aperta("Frm_error") Then Evento = "Finestra"
If GetBolHid("Debugging", "DB") Then
Forms(Frm.Name).ShortcutMenu = True
If Frm.Name <> "Frm_lavload" Then Forms(Frm.Name).Moveable = False
Exit Sub
Else
Forms(Frm.Name).ShortcutMenu = False
Forms(Frm.Name).Moveable = True
End If
hWindow = Application.hWndAccessApp
Select Case Caso
Case "NASCONDI"
nCmdShow = NASCONDI
Case "VEDI"
nCmdShow = VEDI
End Select
nResult = ShowWindow(ByVal hWindow, ByVal nCmdShow)
Call ShowWindow(Frm.hwnd, VEDI)
End Sub
a fare in modo di dare al mio database un aspetto meno “Work in progress” eliminando i menù a tendina con il tasto destro e “soprattutto” rendendo invisibile la parte dell'interfaccia di Access che proprio non digerisco.
Così facendo però ho perso la possibilità di avere nella taskbar l'icona relativa al database (La classica icona di Access in esecuzione per intenderci).
E' possibile quindi chiedo nascondere l'interfaccia ma tenere l'icona comunque visibile? Ho provato le varie costanti ma il risultato non l'ho ottenuto.
Chiedo come ho detto fattibilità o idea alternativa.