Newsgroup: it.comp.appl.access
Titolo: Maschere a scelta obbligata(Modal) e Report

Buon pomeriggio,
Ho dei problemi con la gestione di maschere e sottomaschere in formato
Modal e visualizzazione Report in anteprima.
Vedo di spiegare nel dettaglio ciò che mi succede.
Allora:
-Ho una maschera principale che si apre con l'impostazione Scelta
obbligata a SI, che mi serve per gestire una elenco di prodotti.
-Da questa maschera apro una seconda Maschera formato PopUp e Scelta
obbligata a SI, che mi serve per la gestione dei Negozi.
-Da questa seconda maschera certe volte apro un Report in formato
Anteprima.
-Per evitare che il report rimanga nascosto sotto alle maschera ho messo
questo codice all'evento Open_Report
Private Sub Report_Open(Cancel As Integer)
    [Forms]![MskNegozioNew].Visible = False <-- è la seconda maschera
    [Forms]![Mskmodello].Visible = False    <--- è la prima maschera
End Sub
Alla chiusura del Report volevo ripristinare la visualizzazione delle due
maschere, rimanendo in visualizzazione nella seconda.
Avevo fatto così:
Private Sub Report_Close()
    [Forms]![Mskmodello].Visible = True
    [Forms]![MskNegozioNew].Visible = True
    [Forms]![MskNegozioNew].SetFocus
    [Forms]![MskNegozioNew]![NegozioRagioneSociale].SetFocus
End Sub
Ma purtroppo le due maschere sono bloccate e devo interrompere
l'applicazione per sbloccare tutto.
avevo anche aggiunto queste due righe, ma la seconda maschera non ha la
funzionalità dei comandi
 '   [Forms]![MskNegozioNew].Form.Modal = False
  '  [Forms]![Mskmodello].Form.Modal = False
Come posso fare???
Saluti
-- 
Raffaele Alberoni
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 
Ciao Raffaele ho fatto una "fregnaccia" di questo genere. Sembra che 
qualcosa faccia
Private Sub Form_Timer()
         If SysCmd(acSysCmdGetObjectState, acReport, "Articoli") = 0 Then
             Me.TimerInterval = 0
             Me.Visible = True
         End If
End Sub
Private Sub goRep_Click()
     DoCmd.OpenReport "Articoli", acPreview
     Me.TimerInterval = 1000
     Me.Visible = False
End Sub
--
a.cara

 a.cara
Buongiorno Alessandro
Ho provato la tua soluzione, effettivamente funziona (quindi non è una
fregnaccia) però solo con la maschera di "lancio" del report.
Infatti la mia situazione è quella di avere una maschera principale in
popup e Modale; la quale ne apre un'altra, sempre popup e modale e da
questa seconda lancio il report.
Io ho provato ad aggiungere le istruzioni per aprire-chiudere la prima, ma
poi non si visualizza la seconda oppure si blocca tutto.
Questo è il codice:
Private Sub Form_Timer()
    If SysCmd(acSysCmdGetObjectState, acReport, "RPTNegozio") = 0 Then
       Me.TimerInterval = 0
       [Forms]![Mskmodello].Visible = True
       [Forms]![MskNegozioNew].Visible = True
       [Forms]![MskNegozioNew].SetFocus
       [Forms]![MskNegozioNew]![NegozioRagioneSociale].SetFocus
    End If
End Sub
..
..
..
Private Sub ComandoSTAMPA_Click()
On Error GoTo Err_ComandoSTAMPA_Click
    Dim stDocName As String
    Dim stLinkCriteria As String
    stDocName = "RPTNegozio"
    stLinkCriteria = "[NegozioId]=" & Me![NegozioId]
    DoCmd.OpenReport stDocName, acPreview, stLinkCriteria
    Me.TimerInterval = 1000
    Me.Visible = False
    [Forms]![Mskmodello].Visible = False
Exit_ComandoSTAMPA_Click:
    Exit Sub
Err_ComandoSTAMPA_Click:
    MsgBox Err.Description
    Resume Exit_ComandoSTAMPA_Click
End Sub
Ne aprofitto di questo Post per ringraziare anche STE007 che in privato mi
ha proposto la soluzione di mettere a true la proprietà popup del report,
ma avendo A2000 questo non c'e', se non sbaglio è in XP
Saluti.
