Newsgroup: it.comp.appl.access
Titolo: inserire condizione.

BUON NATALE ai partecipanti.
_____________________________________
Con il clik del mio Comando4_Click
chiudo la maschera corrente ed effettuo
un requery alla mia combo37 (allego la riga di codice)
    DoCmd.Close
    Forms!M_AE_Pazienti_Nuovo.CasellaCombinata37.Requery
Vorrei inserire la condizione
if...
Forms!M_AE_Pazienti_Nuovo.CasellaCombinata37
..è aperta..
..than...Requery
altrimenti, non effettuare requery.
Come impostarlo?
Grazie ed AUGURI !!!!
Cataldo Formaro

 ha scritto nel messaggio
news:COEO9.51748$TC5.1...@twister1.libero.it...

Inserisci questa Funzione in un Modulo poi chiami la condizione così:
If IsLoaded("M_AE_Pazienti_Nuovo") then
Forms!M_AE_Pazienti_Nuovo.CasellaCombinata37.Requery
Public Function IsLoaded(ByVal strFormName As String) As Integer
'*****************************************************************
'Name      : IsLoaded (Function)
'Purpose   : Verifie if Form passed is already OPEN
'Author    : xxxx
'Called by :
'Calls     :
'Inputs    : String=Form.Name
'Output    : Return True if Form is Open
'*****************************************************************
    Const conObjStateClosed = 0
    Const conDesignView = 0
    If SysCmd(acSysCmdGetObjectState, acForm, strFormName) <>
conObjStateClosed Then
        If Forms(strFormName).CurrentView <> conDesignView Then
            IsLoaded = True
        End If
    End If
End Function
Ciao @Alex.

 Forms!M_AE_Pazienti_Nuovo.CasellaCombinata37.Requery
Abbi un pň di pazienza.
Saluti CF

 ha scritto nel messaggio
news:nwGO9.52080$Ou4.1...@twister2.libero.it...

Io ho pazienza, ma se provavi a farlo, mica esplodeva il Computer.....!
ESATTO..........!
@Alex.

 ha scritto nel messaggio
news:I1LO9.52986$TC5.1...@twister1.libero.it...

Sai, ieri sera era tardi, un botto a quell'ora, avrebbe svegliato tutti,
quindi avrebbero chiamato i vigili del fuoco e se poi venivano anche i
carabinieri, avrebbero pensato che stavo fabbricando qualche petardo per la
notte di capodanno e quindi mi avrebbero portato in caserma e tenuto fermo
fino a stamattina. Perciň ho preferito aspettare stamattina e fare le prove.
A parte lo svago, avevo gia provato e mi segnala:
Errore di compilazione:
Prevista variabile o routine nel modulo.
E' influente se ho chiamato il modulo "IsLoaded" ??
Allego il codice
____________________________
Private Sub Comando4_Click()
On Error GoTo Err_Comando4_Click
If IsLoaded("M_AE_Pazienti_Nuovo") Then
Forms!M_AE_Pazienti_Nuovo.CasellaCombinata37.Requery
    DoCmd.Close
  Exit_Comando4_Click:
    Exit Sub
Err_Comando4_Click:
    MsgBox Err.Description
    Resume Exit_Comando4_Click
End Sub
___________________________________
Ciao. CF

 Ciao. CF
Il modulo NON DEVI assolutamente chiamarlo IsLoaded, visto che in quella
maniera si chiama la funzione.
L'errore te lo dà perchè ti sei dimenticato ti scrivere la End If, ovvero
devi scrivere:
If IsLoaded("M_AE_Pazienti_Nuovo") Then
Forms!M_AE_Pazienti_Nuovo.CasellaCombinata37.Requery
End If
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


Grazie Robč!!
Alex si č preso le ferie?? Oggi non si č visto.
Naturalmente bontŕ sua.
ciao CF