Newsgroup: it.comp.appl.access
Titolo: Passaggio di parametri

Come faccio a passare parametri da una maschera ad un'altra??
la prima maschera ha un pulsante che ne apre un'altra.
mi serve che la prima passi un valore per un controllo non associato nella
seconda.
come faccio??
grazie 1k

 ha scritto nel messaggio
news:RQ289.230982$Jj7.5...@news1.tin.it...

Dopo il docmd.openform farai
forms("seconda form").controllo = tuovalore
oppure, se il valore è in un controllo della prima form, sul su apertura
della seconda form farai
controllo = forms("prima form").controllo
Antonio

 controllo = forms("prima form").controllo
In alternativa si può utilizzare OpenArgs:
'apertura form...
DoCmd.OpenForm "NomeForm", , , , , , strTuoValore
'sull'evento 'su apertura' della nuova maschera...
controllo = Me.OpenArgs
- --
Matteo Palmieri - Cybercreations
www.cybercreations.it
-----BEGIN PGP SIGNATURE-----
Version: 6.5.8ckt
Comment: Cybercreations
Comment: KeyID: 0xC83A8FFAC838BA1F
Comment: Fingerprint: 69F4 29D4 5913 B3B6 EDD2  B335 C83A 8FFA C838 BA1F
iQA/AwUBPWDOCMg6j/rIOLofEQJ8bQCgnAGfMNoin4+22olkwc870/4M57oAoMD2
mWL11wjt0K6RvjKHHbbv99gA
=IQWt
-----END PGP SIGNATURE-----

 ha scritto nel
messaggio news:ajqm44$muj$1...@serv1.albacom.net...


> "Diego" [...]:

    Dato che le maschere di Access altro non sono che dei moduli di classe
un po' speciali, considera anche la possibilita' di aggiunger loro
proprieta', metodi, eventi...
--
Ciao.
Maurizio
--------
?SPQR(C)
 X
--------

 proprieta', metodi, eventi...
La cosa è interessante, anche se non l'ho mai approfondita: potresti fare un
esempio pratico riferito al problema in questione?
Mi piacerebbe capire soprattutto i pro e i contro dell'utilizzo di queste
tecniche.

 Grazie a Tutti ;)
Il tuo ringraziamento migliore sarebbe quello di scrivere DOPO il quoting!!!
Antonio

 > "Maurizio Borrelli" [...]:

    Volentieri. Dato pero' che ci si mette meno a scrivere il codice che a
spiegare come e perche' funziona (se funziona...) serve la tua fattiva
collaborazione... :-) Ma domanda pure e se presumero' di sapere ti
rispondero'. Se mi segnali i piu' che certi errori mi farai un piacere.
    La gestione degli errori e' all'osso.
    Per non mettere troppa carne al fuoco mi sono concentrato unicamente
sugli eventi.
' Maschera: Lista telefonica di Fornitori
' Ottenuta mediante autocomposizione basata sulla:
' Query: Lista telefonica di Fornitori
' SELECT
'     Fornitori.IDFornitore AS cdtID
'   , Fornitori.NomeSocietà AS cdtNome
'   , Fornitori.Città AS cdtCittà
'   , Fornitori.Telefono AS cdtTelefono
' FROM Fornitori
' ORDER BY Fornitori.NomeSocietà
' ;
' dove la tabella Fornitori e' quella di Northwind.
'
Option Compare Database: Option Explicit
Const mc_sFormBName = "MascheraB"
Private WithEvents m_oAcFrmMascheraB  As Form_MascheraB
Private WithEvents m_oAcFrmBrowser    As Access.Form
Private Sub Form_Close()
  Set m_oAcFrmBrowser = Nothing
  Set m_oAcFrmMascheraB = Nothing
End Sub
Private Sub Form_Unload( _
  ByRef Cancel As Integer)
  If (m_oAcFrmMascheraB Is Nothing) Then
  Else
    On Error Resume Next
    DoCmd.Close acForm, mc_sFormBName, acSavePrompt
    If (Err.Number = 2501) Then
      Cancel = True
    End If
  End If
End Sub
Private Sub m_oAcFrmBrowser_Unload( _
  ByRef Cancel As Integer)
  With m_oAcFrmBrowser
    Cancel _
      = (MsgBox("Confermi?", vbOKCancel, .Name) = vbCancel)
  End With
End Sub
Private Sub m_oAcFrmMascheraB_Move( _
  ByVal Direction As Integer)
  On Error GoTo erh
  Select Case Direction
  Case -1 ' Indietro
    Me.Recordset.MovePrevious
  Case 1  ' Avanti
    Me.Recordset.MoveNext
  Case Else
    ' Errore?
  End Select
ext:
  Exit Sub
erh:
  With Err
    MsgBox .Description, vbCritical, "ERR#" & Format$(.Number)
  End With
  Resume ext
End Sub
Private Sub pdcNavigatore_Click()
  If (m_oAcFrmMascheraB Is Nothing) Then
    DoCmd.OpenForm mc_sFormBName
    Set m_oAcFrmMascheraB = Forms(mc_sFormBName)
    Set m_oAcFrmBrowser = m_oAcFrmMascheraB
    With m_oAcFrmBrowser
      .OnUnload = "[Routine evento]"
    End With
  End If
End Sub
' Maschera: MascheraB. PopUp
' Possiede due pulsanti di comando:
' pdcIndietro, pdcAvanti.
'
Option Compare Database: Option Explicit
Public Event Move(ByVal Direction As Integer)
Private Sub pdcAvanti_Click()
  RaiseEvent Move(1)
End Sub
Private Sub pdcIndietro_Click()
  RaiseEvent Move(-1)
End Sub


"Maurizio Borrelli" <


Madonna ... sei una miniera ;-))
Appena ho un briciolo di tempo mi smazzo ben bene il tuo esempio e se ho
problemi concettuali/tecnici ti faccio sapere.
Molte grazie per la disponibilità (e competenza).

 Molte grazie per la disponibilitą (e competenza).
Ecco, se magari tagliavi un po' di quoting come ho fatto io adesso, sarebbe
stato molto meglio...
Antonio

 stato molto meglio...
Forse sarebbe stato meglio, ma andava comunque benissimo.

 Forse sarebbe stato meglio, ma andava comunque benissimo.
    Perche' dici cio'? A me per esempio non andava affatto bene ma sono
stato zitto per evitare sovrapposizioni, visto che c'e' gia' un robottony
che ci pensa.


 ha scritto nel messaggio
news:2pp89.79077$n04.2...@twister2.libero.it...

Questa è la tua personalissima opinione, in contrasto con l'opinione
comune...
Antonio

 Antonio
Sorry ^___^

 che ci pensa.
Robottony?
hmmm....
me piace?
Boh...
Antonio

 comune...
Omologarsi troppo fa male caro mio...
Non posterei mai prima del Quoting ... mentre č piů che accettabile omettere
qualche Cut.
E poi questo č it.comp.appl.access non it.comp.quoting
Ciao.

 E poi questo è it.comp.appl.access non it.comp.quoting
Allora non hai capito il motivo per cui vengono segnalate le "scorrettezze":
le convenzioni che regolano il NG fanno parte del NG stesso
Antonio

 le convenzioni che regolano il NG fanno parte del NG stesso
Ti ripeto, tu hai visto scorretto quel post ... io lo vedo discutibile
(potevo fare meglio) ma accettabile.
Sei troppo invasivo, per non dire rompicoglioni.
Io trovo insopportabili le puttanate alla romana che semini a desta e a
manca, tuttavia non perdo tempo e risorse a rimarcarle... impara a fare lo
stesso e incontrerai meno problemi -e cloni a quanto vedo-
Giorgio.

 stesso e incontrerai meno problemi -e cloni a quanto vedo-
Ho capito, laurą, laurą laurą...
Ah gazzanģ, ma vafangule va!
Antonio