[VBA/ACCESS] Aggiornamento di una maschera dopo la modifica

[pardoree]

Buongiorno a tutti, sto cercano di risolvere un problemino ma con le mie scarse conoscenze non ne vengo fuori.

Ho una maschera ACCESS che mi espone tutti i record di una tabella, con affianco un pulsante che mi rimanda a una maschera di modifica. Bene, quado modifico un record accedendo alla relativa maschera e poi la chiudo, la modifica non viene automaticamente riportata sulla prima maschera che mi deve esporre tutti i dati.

Ho provato utilizzando un polsante con le istruzione

me.repaint

me.refresh

ma nulla di fatto...mi sapreste indirizzare voi verso la strada giusta?


grazie mille

[gfantuzzi]

puoi provare così:
nell'evento chiusura delle maschera di modifica aggiungi
Forms!Nome_della_tua_maschera_generale.requery

ciao.

[pardoree]

PERFETTO..L'AVEVO APPENA SCOPERTO IL REQUERY


solo che utilizzando la maschera di modifica per piu' maschere vorrei che quando la maschera primaria diventa nuovamente attiva, venga effettuato il requery

altrimenti mi darebbe un errore non trovando sempre la stessa maschera aperta


ho provato inserendo l'istruzione nel activate, ma non va
dove posso inserirlo?

[gfantuzzi]

Aggiungi un MODULO al progetto e fai copia/incolla con ciò che segue:

Public Function Aperta(ByVal strMaschera As String) As Boolean
'Restituisce True se la Maschera è aperta
Aperta = False
If SysCmd(acSysCmdGetObjectState, acForm, strMaschera) <> 0 Then
If Forms(strMaschera).CurrentView <> 0 Then
Aperta = True
End If
End If
End Function

La funzione serve per verificare se una determinata maschera è aperta oppure no e si usa così: IF APERTA("Nome_della_tua_maschera) THEN ...

A questo punto quando chiudi la tua maschera di modifica non devi fare altro che eseguire il Requery delle sole maschere che sono aperte.

Indi:
IF APERTA ("MASCHERA1") THEN FORMS!MASCHERA1.REQUERY
IF APERTA ("MASCHERA2") THEN FORMS!MASCHERA2.REQUERY
IF APERTA ("MASCHERA3") THEN FORMS!MASCHERA3.REQUERY

ciao

[pardoree]

Perfetto!

e' gia' la seconda volta che mi aiuti...grazie mille