Newsgroup: it.comp.appl.access
Titolo: Aggiornamento recordset dopo chiusura maschera

Quando clicco sul pulsante 'Esci' dalla maschera frmAggiungiUtente vorrei
che, una volta tornati alla maschera frmSchedaPrimoContatto, i nuovi
record fossero subito visibili ovvero navigabili con i cursori. Questo non
è possibile per ora. Devo chiudere e riaprire la maschera perchè i record
siano visibili.
Allora ho pensato di abbozzare del codice per aggiornare il recordset in
questione alla chiusura della maschera frmAggiungiUtente, ma il codice non
funziona. Ecco il codice:
Private Sub cmdEsci_Click()
On Error GoTo Err_cmdEsci_Click
    Dim stDocName As String
    Dim stLinkCriteria As String
    stDocName = "frmSchedaPrimoContatto"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
    Call UpdateX
 
 
    DoCmd.Close acForm, "frmAggiungiUtente"
 
Exit_cmdEsci_Click:
    Exit Sub
Err_cmdEsci_Click:
    MsgBox Err.Description
    Resume Exit_cmdEsci_Click
 
End Sub
UpdateX() è la funzione di aggiornamento che ho ricavato dalla guida in
linea di VB e riadattato:
Public Sub UpdateX()
   Dim dbsMIODB As Database
   Dim rstUtenti As Recordset
   Set dbsMIODB = CurrentDb
   Set rstUtenti = Current.OpenRecordset("tblUtenti")
   With rstUtenti
      .Edit
      MsgBox "Aggiornare la tabella Utenti con i nuovi dati?"
      If MsgBox(strMessage, vbYesNo) = vbYes Then
         .Update
      Else
         .CancelUpdate
      End If
      .Close
   End With
   dbsMIODB.Close
End Sub
Solo che dopo aver inserito gli utenti e cliccato sul pulsante cmdEsci mi
appare il messaggio di errore 'Necessario Oggetto'.
Non ho idea di come risolvere il problema... magari potete darmi dei
suggerimenti sul codice?
Grazie mille a tutti!!!!!
Buona giornata!
-- 
Insostenibile è il peso della conoscenza, se questa toglie poesia all'
Essere Umano.
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 Buona giornata!
In realtà a te basta un semplice requry
-- 
_ _
Ciao
MAssimiliano Amendola            
www.accessgroup.it
Cisa1 - I° Conferenza Italiana per Sviluppatori Access Arezzo 4+5
Giugno 2005 Sono aperte le iscrizioni  Info:  
www.donkarl.com/it

> In realtà a te basta un semplice requry
Buongiorno MA :)
Quindi in cmdEsci_Click() che codice dovrei aggiungere?
Grazie :)


 Grazie :)
Dunque se apri la maschera in modalità dialog e poi la chiudi sai
esattamente quando ti ritorna il focus e quindi ci metti
me.requery


 me.requery
O.o
Aiuto :)
Io apro frmAggiungiUtente da frmSchedaPrimoContatto. In frmAggiungiUtente
ci sono dei controlli associati in cui si inseriscono gli opportuni dati,
poi c'è il pulsante Esci. Quando esco da frmAggiungiUtente e torno in
frmSchedaPrimoContatto io vorrei che i record aggiunti fossero già
visibili senza dover prima chiudere frmSchedaPrimoContatto e poi riaprirla.
Se faccio un Me.Requery in frmAggiungiUtente che recordset aggiorno?
Eppoi devo scrivere qualcos'altro?
Penso che il codice debba essere qualcosa del tipo:
Private Sub cmdEsci_Click()
On Error GoTo Err_cmdEsci_Click
Dim dbMIODB As DAO.Database
Dim rsUtenti As DAO.Recordset
Dim stDocName As String
Dim stLinkCriteria As String
Set dbMIODB = CurrentDb
Set rsUtenti = dbMIODB.OpenRecordset("tblUtenti")
Me.Requery
dbMIODB.Close
    stDocName = "frmSchedaPrimoContatto"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
 
    DoCmd.Close acForm, "frmAggiungiUtente"
 
Exit_cmdEsci_Click:
    Exit Sub
Err_cmdEsci_Click:
    MsgBox Err.Description
    Resume Exit_cmdEsci_Click
 
End Sub
Ma l'ho provato proprio adesso. Ho inserito un utente e quando clicco su
Esci non lo vedo cmq :(((
