Newsgroup: it.comp.appl.access
Titolo: stLinkCriteria

se da controllo "N_Vendita " di una maschera esterna (p.e. M_Elenco)volessi
aprire maschera e sottomaschera (p.e. Forms!M_Ordine!M_Carichi_ordine.form) 
per posizionarmi
sul medesimo numero del controllo "N_Vendita " cliccato
 
come dovrei modificare questo codice?
 
Private Sub N_Vendita _DblClick(Cancel As Integer)
    Dim stDocName As String
    Dim stLinkCriteria As String
    stDocName = "M_Ordine"
    stLinkCriteria = "[N_Vendita]=" & Me![N_Vendita]
    DoCmd.OpenForm stDocName, , , stLinkCriteria
 
End Sub
 
 

 ha scritto nel messaggio 
news:4f1acb19$0$1381$4faf...@reader2.news.tin.it...

ho dimenticato di dire che la maschera princiaple M_Ordine
ha come origine record la tbclienti e che con
le sottomaschere non c'č alcun collega campi  secondari e master
ma solo tra sottomaschere 
 
 

 ma solo tra sottomaschere
 
con questo codice riesco ad aprire la maschera "M_Ordine" senza errori,
ma non riesco a posizionarmi sul record con lo stesso "N_Vendita"
 
    Dim stDocName As String
    Dim stLinkCriteria As String
    stDocName = "M_Ordine"
    stLinkCriteria = "forms!M_Ordine!M_Carichi_Ordine.Form![N_Vendita]=" & 


      DoCmd.OpenForm stDocName, , , stLinkCriteria
Franco,
 
stLinkcriteria e' un filtro per il form principale *non* per le 
sottomaschere!
 
prova questo:
DoCmd.OpenForm stDocName
forms!M_Ordine!M_Carichi_Ordine.Form.Recordset.findfirst "N_Vendita=" & 
Me![N_Vendita]
 
oppure :
DoCmd.OpenForm "M_Ordine"
forms!M_Ordine!M_Carichi_Ordine.Form.Filter= "N_Vendita=" & Me![N_Vendita]
forms!M_Ordine!M_Carichi_Ordine.Form.Filteron=true
-- 
 
ac (x=y-1)

 ha scritto nel messaggio 
news:W1SSq.124280$GZ3....@tornado.fastwebnet.it...

ciao Alessandro
entrambe non danno errore e aprono la maschera "M_Ordine"
ma la sottomaschera "M_Carichi_Ordine" che dovrebbe mostrarmi i record è 
vuota.
 
 


Probabilmente quel valore N_Vendita non c'e' o il formato di richiesta 
e' errato.
Quale' i recordsource della sottomaschera? Quali sono i campi? c'e' 
qualche condizione?
 
-- 
 
ac (x=y-1)

 ha scritto nel messaggio 
news:sSSSq.124303$GZ3....@tornado.fastwebnet.it...

origine record sottomaschera  "M_Carichi_Ordine"
sql:
SELECT TbOrdine.IDOrdine, TbOrdine.N_Vendita, TbOrdine.DataOrdine, 
TbClienti.Ragione_Sociale, TbClienti.Indirizzo, TbClienti.CAP, 
TbClienti.Citta, TbClienti.IdCliente, TbOrdine.IdPorto, TbOrdine.IDSconto, 
TbOrdine.DataCarico, TbOrdine.GiorniConsegna
FROM TbClienti LEFT JOIN TbOrdine ON TbClienti.IdCliente = 
TbOrdine.IDCliente
WHERE (((TbClienti.IdCliente)=[Forms]![M_Ordine]![CboCliente_1] Or 
(TbClienti.IdCliente)=[Forms]![M_Ordine]![CboCliente_2]))
ORDER BY TbOrdine.N_Vendita DESC , TbOrdine.DataOrdine DESC;
 
Se può essere d'aiuto all'apertuta della maschera "M_Ordine"
per accedere ai vari record della sottomaschera "M_Carichi_Ordine", utilizzo 
o la combo con lista clienti, oppure
su clic del controllo Clienti della sottomaschera "M_Elenco_Ordine" con 
questo codice:
    Forms!M_Ordine!M_Carichi_Ordine.Form.Recordset.FindFirst _
    "IdOrdine = " & Me!IDOrdine
 
In pratica quando apro la maschera "M_Ordine"
solo la sottomaschera "M_Elenco_Ordine" mi mostra tutti
i records presenti; mentre la sottomaschera "M_Carichi_Ordine" diventa 
attiva
solo o tramite combo o su clic del controllo clienti della sottomaschera 
"M_Elenco_Ordine"
 
 
 

 "M_Elenco_Ordine"
 
ho notato che se la mschera "M_Ordine" č aperta e con i records anche
nella sottomaschera "M_Carichi_Ordine"
 
il codice che mi hai dato funziona
    Forms!M_Ordine!M_Carichi_Ordine.Form.Recordset.FindFirst _
    "IdOrdine = " & Me!IDOrdine
 
in pratica cosi' mi manca ancora un riga di comando
 
 
 
 

 in pratica cosi' mi manca ancora un riga di comando
Ciao Alessandro
 
la soluzione č fare in modo che all'apertura della Maschera M_Ordine
anche la sottomaschera "M_Carichi_Ordine" sia
aperta, magari sull'ultimo record inserito;
grazie per l'aiuto
 
 

 ha scritto nel messaggio 
news:4f1c5a24$0$1390$4faf...@reader2.news.tin.it...

ecco la soluzione
  Forms!M_Ordine!CboCliente = Me!IDCLIENTE
    Forms!M_Ordine!CboCliente.Requery
    Forms!M_Ordine!M_Carichi_Ordine.Form.Requery
    Forms!M_Ordine!M_Carichi_Ordine.Form.Recordset.FindFirst "IdOrdine = " & 
Me!IDOrdine