Momoria insufficiente durante utilizzo di Access 2010

[GIULIO MARIA]

Carissimi sono nel panico più totale...! Improvvisamente access 2010 si blocca di continuo col messaggio ' memoria insufficiente, chiudere i programmi in esecuzione'
Premetto che non sono molto pratico di windows 8.1. ...... Stavo lavorando con Access quando mi è apparso il messaggio, da quel momento si blocca di continuo. Chiaramente stavo svuluppando nuove maschere con vba un po' complesso, ma poi le ho semplificate al massimo....purtroppo senza risultati. Continua a boloccarsi ! Prima si limitava a bloccarsi solo quandi andavo in visualizzazione struttura di alcune macre di aggiornamento, ma poi ripartiva......non so più che pensare....help....!
GM

[nman]

innanzitutto "Compatta e ripristina"
se non va crei un altro DB vergine e gli trascini dentro tutti gli oggetti

di solito funziona

.

[GIULIO MARIA]

Grazie nman....Ho provato tutto il provabile, compreso l'aumento del paging di windows 8...senza alcun beneficio. Trascinare gli oggetti del mio dtabase equivale arifarlo....ce ne sono troppi......aagh...Comunque ho avuto un'illuminazione...ho pensato che dipendesse da troppe maschere aperte contemporaneamente. Ho una maschera madre con 11 maschere nidificate a scheda. Facendone due, con 7 una e quattro l'altra, vedo che non mi compare nessun messaggio di errore, finora...! Solito ristorante con 11 tavoli....ho diviso la prima sala che ne ha sette e la saletta che ne ha quattro. Questo per rendere intuitivo l'utilizzo di chi dovrà adoperarlo. Ho inserito un bottone con chiusura di madre1 e apertura di madre2 e ci si muove abbastanza fluidamente. Unica cosa che non so come attuare: evitare che nel passaggio si veda la maschera 'logon principale'.....Che ne dici? Ti scrivo il codice:

Private Sub Comando138_Click()
On Error GoTo Err_Comando138_Click


If Me.Dirty Then Me.Dirty = False
DoCmd.Close
Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "TGeneraleContiScheda2"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Comando138_Click:
Exit Sub

Err_Comando138_Click:
MsgBox Err.Description
Resume Exit_Comando138_Click

End Sub

Grazie e ciao.
GM

[nman]

....... Trascinare gli oggetti del mio dtabase equivale arifarlo....ce ne sono troppi......aagh .........

per trascinare un oggetto ci vogliono circa 2 secondi,
se tu avessi esagero 1000 oggetti te la cavi in un'oretta di lavoro .......

......... Ho una maschera madre con 11 maschere nidificate a scheda. Facendone due, con 7 una e quattro l'altra, vedo che non mi compare nessun messaggio di errore, .........

pero vedo che il tuo problema non dipendeva da quello che avevo ipotizzato, bensi effettivamente da sovrautilizzo inutile di memoria,

11 maschere aperte 1 sopra l'altra magari con tutti i record delle tabelle per ogni maschera ........

io stando cosi le cose non lo dividerei solamente in 2 bensi in 11
Ti fai un pannello con 11 pulsanti
ogni pulsante fa queste cose
- chiude tutte le maschere ( puoi chiudere senza errori anche le maschere non aperte ) ( oppure fai un ciclo )
- apre 1 sola maschera specifica

Detta diversamente i record aperti devono essere quelli che puoi visualizzare sullo schermo,
tutti gli altri fanno solo peso,

Detta ancora diversamente, osserva il web ( magari qualche ecommerce ) quando apri i listini
quasi sempre devi fastidiosamente avanzare di 10 in 10 per vedere i tuoi record .......

Tu su una rete puoi muoverti più liberamente ma poi le risorse finiscono comunque

[GIULIO MARIA]

Infatti...! Pensavo di eliminare le schede e usare i pulsanti. Ma ammesso che io abbia 11 pulsanti per 11 tavoli...diventa farraginoso per l'utente chudere ogni volta una maschera per poi passare all'altra (e non in sequenza ma random). C'è un comando che mi pemetta di chiudere la maschera solo passando ad un'altra? Cioè...sono sul tavolo 1 e voglio passare al 7....che comando mi permette di chiudere la maschera 1, semplicemente premendo il tasto 7?
Grazie ancora per la pazienza!
GM

[nman]

Ti fai 11 pulsanti che fanno ogniuno queste cose

-- Chiude TUTTE le maschere
-- apre 1 sola maschera specifica

Public Sub ChiudiTutteEAprineUna()
' con questo ciclo chiudi in assoluto tutte le maschere
Dim objFrms As Object
    For Each objFrms In Application.CurrentProject.AllForms
        DoCmd.Close acForm, objFrms.Name, acSaveNo
    Next objFrms

' adesso puoi aprire la tua unica maschera
DoCmd.OpenForm "Tavolo3", acNormal, "", "", , acNormal

End Sub

[nman]

magari se vuoi evitare di chiudere proprio tutte le maschere .....

For Each ..............................
        If objFrms.Name <> "NomeMaschera" Then
            DoCmd.Close acForm, objFrms.Name, acSaveNo
        End If
Next .........

[GIULIO MARIA]

Sarebbe l'ideale....però non so come inserirlo in un pulsante, cioè dove lo metto all'interno del comando che mi genera il bottone di chiusura maschera?
----------------
Private Sub Comando138_Click()
On Error GoTo Err_Comando138_Click

If Me.Dirty Then Me.Dirty = False
DoCmd.Close
Dim stDocName As String
Dim stLinkCriteria As String


Exit_Comando138_Click:
Exit Sub

Err_Comando138_Click:
MsgBox Err.Description
Resume Exit_Comando138_Click

End Sub
------------------------
Ho provato in vari modi ma..........non riesco! Abbi pazienza....!

[nman]

Non ho capito nel dettaglio tutto quello che vuoi fare

Comunque io per eliminare la struttura a schede che ti da
problemi di esaurimento memoria pensavo più o meno a questo

[GIULIO MARIA]

Semplicemente....Perfetto! Grazie per la pazienza e per aver capito che ho bisogno di esempi, oltre alle idee!
Ho riportato il form 'paro paro'.....funziona tutto perfettamente. C'è una cosa però che non capisco...perchè quando passo da una maschera all'altra, all'interno delle maschere, seppure per un attimo...., mi visualizza la mia maschera logon che corrisponde al tuo 'pannello'??? Nel tuo esempio non succede!