[Access] Passare valori in pop up (un po' da newbie)

[Van Basten]

ciao a tutti,
ecco il problema. Ho una maschera che ha come origine dati una determinata tabella (tab_utenti). Dovrei far aprire una pop up (tab_approfondimenti_utenti) che contenga dei dati relativi all'id dell'utente corrente.
Come faccio a passare l'id? Uff... ci sto impazzendo.

Grazie a tutti per gli eventuali interventi

[ms74]

Semplicissimo, basta inserire questo codice nell'evento OnClick
della Form chiamante;
supponiamo di Avere Form1(utenti), Form2(approfondimenti_utenti)

Dim StLinkCriteria as String
StLinkCriteria = "IdUtenteForm2 = " & Me.IdUtenteForm1
DoCmd.OpenForm Form2, , , StLinkCriteria

[ms74]

Scusa forse sono stato poco chiaro ma il codice va inserito nell'evento OnClick di un oggetto tipo il pulsante.

Ms74

[Van Basten]

.. GRAAANDEEE!!
Ora sempre più difficile, approfitto della tua disponibilità...

E' possibile estrarre l'id dell'utente direttamente dal form principale? Mi spiego: con il metodo da te suggerito vado a matchare l'id_utente da tab_utenti con quello sulla tabella tab_approfondimenti_utenti. Se però su quest'ultima quell'id ancora non esiste, visualizzo uno zero (e quindi non riesco a fare un insert): vorrei poter passare quello del form principale.... Lo so, sono palloso...

Ancora grazie!

[ms74]

Purtroppo non ho capito bene il quesito,
puoi spiegarti meglio?????

ms74

[Van Basten]

... ehmm.. scusa l'incasinamento... ci riprovo...
-------
maschera principale: origine dati 'tab_utenti'
maschera-pop up: origine dati 'tab_approfondimenti_utenti'
--------

Dalla maschera principale ho un tasto che mi deve aprire la maschera-pop up con una serie di dati.

Con il tuo suggerimento riesco a passare supponiamo l'id_utente=3 nella popup solo se questo id_utente è già presente in 'tab_approfondimenti_utenti'.
In caso contrario, cioè se in 'tab_approfondimenti_utenti' non esiste ancora un record con id_utente=3, non vedo nulla e quindi non posso inserire i nuovi valori.

Spero di essere riuscito a spiegarmi.. sono proprio una bestiolina, eh!??

Ri-grazie!

[ms74]

Dunque se non ho capito male, nel caso in cui un utente non ha
nessun approfondimento, anzichè visualizzarlo devi inserirlo.

A questo punto ci sono più possibiltà per la realizzazione (te ne suggerisco una semplice):

StLinkCriteria = "idUtenteApprofondimenti = " & idUtente

If CurrentDb.OpenRecordset("Select * FROM UtentiApprofondimenti Where StLinkCriteria).EOF Then

Docmd.OpenForm UtentiApprofondimenti , , , StLinkCriteria

else

Docmd.OpenForm UtentiApprofondimenti , , , StLinkCriteria, acFormAdd
Forms!UtentiApprofondimenti.idUtenteApprofondiment i = idUtente
Forms!UtentiApprofondimenti.Nome= "Mario"
Forms!UtentiApprofondimenti.Cognome= "Rossi"
Forms!UtentiApprofondimenti.Citta= "Roma"
'ricordati di salvare per consolidare l'inserimento
End If

Commento:
Come puoi notare controlli prima se IdUtente c'è, quindi lo visualizzi o inserisci.

Spero di essere stato chiaro

Ms74

[Van Basten]

... se non ci fossi tu come farei!!!???

Vado a mangiare e quando torno la provo subito!!

GRAZIE MILLE!

[Van Basten]

... per la verità avrei un problemino

Che cosa significa l'errore "Parametri insufficienti. Previsto 1"?

Ormai i grazie si sprecano.....

[ms74]

Questo è un classico errore di apertura del Recordset

se non utilizzi tabelle lincate via ODBC o cose particolari prova così:

CurrentDb.OpenRecordset("Select * FROM UtentiApprofondimenti Where idUtenteApprofondimenti = " & idUtente ).EOF

altrimenti puoi aiutarti con l'help online del VBA di Access cercando OpenRecordset e vedi qualche esempio.


Ms74