Originariamente inviato da ladyBlu
Ciao a tutti, ragazzi.
Sto lavorando in VB su Access, e ho la necessità che una maschera (form) venga aperta in modale.
In VB6 è semplice, basta scrivere
NomeForm.Show 1
e il gioco è fatto.
Ma in access come si fa??? :master:
Io ho impostato l'opzione "A scelta obbligatoria" della maschera su "Si", ma come faccio a dirgli che deve aprirsi ed eseguire le istruzioni che ci sono dopo solo quando è stata chiusa???
ecco il codice.
codice:
Private Sub ApriFinestraOpzioni()
On Error GoTo Errore
DoCmd.Hourglass (False)
DoCmd.OpenForm "FRMOpzioniBudget"
Esci:
Exit Sub
Errore:
DoCmd.Hourglass (False)
MsgBox Err.Description
Resume Esci
End Sub
presumo che ci sia qualche parolina magica da aggiungere all'istruzione in rosso... o almeno lo spero!!!
Conto sul vostro aiuto, ragazzi.
Grazie di cuore...
Ciao
prova con le simpatiche api
SetWindowPos(hwnd, HWND_TOPMOST, Left, Top, Width, Height, 1)
oppure
codice:
Public Const SWP_NOACTIVATE = &H10
Public Const SWP_SHOWWINDOW = &H40
Public Const HWND_TOPMOST = -1
Public Const HWND_NOTOPMOST = -2
Declare Function SetWindowPos Lib "user32" Alias "SetWindowPos" (ByVal hwnd As Long, _
ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, _
ByVal cy As Long, ByVal wFlags As Long) As Long
Routine per impostare un form Always On Top:
Public Sub AlwaysOnTop(x as Form,Y as Boolean)
Select Case Y
Case = True
SetWindowPos x.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE Or SWP_SHOWWINDOW
Case=False
SetWindowPos x.hWnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE Or SWP_SHOWWINDOW
End Select
End Sub