Newsgroup: it.comp.appl.access
Titolo: Su non in elenco

Ciao a tutti
Ho bisogno del vostro aiuto,
In una maschera ho per l'azione  Su non in Elenco la seguente routine
Dim IntNuovo As Integer, strTitolo As String
Dim IntFinestraMsg As Integer, strMsg As String
 strTitolo = "                       codice non in elenco"
strMsg = "ATTENZIONE il Codice   " & NewData & "   è inesistente vuoi
codificarlo ? "
IntFinestraMsg = vbYesNo + vbQuestion '+ vbDefaultButton2
IntNuovo = MsgBox(strMsg, IntFinestraMsg, strTitolo)
 If IntNuovo = vbYes Then
 IDProdotto.Undo
DoCmd.OpenForm "CodificaArticoliPiaggio", , , , acFormAdd, acNormal, NewData
Response = acDataErrAdded
Response = acDataErrContinue
 Forms![codificaarticolipiaggio]![Chiudi3].Visible = True
Forms![codificaarticolipiaggio]![Comando62].Visible = False
Forms![codificaarticolipiaggio]![Chiudi2].Visible = False
Forms![codificaarticolipiaggio]![CodiceProdotto] = NewData
Forms![codificaarticolipiaggio]![CasellaCombinata46].Requery
Forms![codificaarticolipiaggio]![Descrizione].SetFocus
 Else
strTitolo = "                      Informazione   "
strMsg = "   digita un codice esistente nella casella.      "
IntFinestraMsg = vbOKOnly + vbExclamation
IntNuovo = MsgBox(strMsg, IntFinestraMsg, strTitolo)
Response = acDataErrAdded
Response = acDataErrContinue
 Me!IDProdotto.Undo
Me!IDProdotto.Requery
End If
End Sub
Il mio problema è inserire in questa routine  una condizione che mi possa
cambiare lo stato di Visible di alcuni controlli ,  a seconda che sia aperta
una maschera oppure un'altra.
Praticamente se la Maschera ElencoOrdiniPiaggio è aperta ,allora :
Forms![codificaarticolipiaggio]![Chiudi3].Visible = True
Forms![codificaarticolipiaggio]![Comando62].Visible = False
Forms![codificaarticolipiaggio]![Chiudi2].Visible = False
Se invece  la maschera aperta è OrdiniPiaggio allora :
Forms![codificaarticolipiaggio]![Chiudi3].Visible = False
Forms![codificaarticolipiaggio]![Comando62].Visible = False
Forms![codificaarticolipiaggio]![Chiudi2].Visible = True
Aspetto un aiuto  Grazie
Ciao Giuseppe

AMR-Giuseppe ha scritto:




Non serve che apri una maschera per inserire il nuovo valore, basta che lo
inserisci in tabella via SQL e avvisi la combo che lo hai fatto (con
acDataErrAdded)
If IntNuovo = vbYes Then
currentdb.execute "INSERT INTO tabella (campo1, campo2) VALUES (" &
newdata & "," & secondo valore & ");"
Response = acDataErrAdded
Namor
-- 
 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 ha scritto nel messaggio
news:bk9ran$ndd$1...@news.newsland.it...

Scusa ma forse mi sono spiegato male ,
la maschera la devo aprire comunque per inserire un
nuovo record , solo che nella maschera che vado ad aprire vorrei
che vengano  visualizzati  o no alcuni controlli  , la condizione è che:
se l'imput parte dalla "SottomascheraoOrdiniPiaggio della   maschera
"OrdiniPiaggio" allora :
 Forms![codificaarticolipiaggio]![Chiudi3].Visible = True
 Forms![codificaarticolipiaggio]![Comando62].Visible = False
 Forms![codificaarticolipiaggio]![Chiudi2].Visible = False
Se invece l'imput parte dalla "SottomascheraoOrdiniPiaggio
della maschera "ElencoOrdiniPiaggio" allora:
 Forms![codificaarticolipiaggio]![Chiudi3].Visible = False
 Forms![codificaarticolipiaggio]![Comando62].Visible = False
 Forms![codificaarticolipiaggio]![Chiudi2].Visible = True
Spero che tu mi possa aiutare
Ciao Giuseppe


Se sei nella SottomascheraoOrdiniPiaggio allora
subito dopo aver aperto la maschera che ti interessa nascondi i controlli e
dopo chuidi la maschera di provenienza
altrimenti lasci tutto com'è.
In buona sostanza metti codice nella maschera di partenza non in quella di
arrivo
MAssimiliano
--------------------------------
Inviato via 
http://usenet.libero.it

 --------------------------------
Ciao Massimiliano, in effetti il codice è nella maschera di partenza
nell'azione Non in List
non posso chiudere la maschera di partenza .
pensavo che fosse possibile con un'istruzione If....Then...Else
dire alla maschera che verrà aperta di nascondere o visualizzare
un controllo a secondo che nel DB sia aperta una maschera X o Y
Ciao Giuseppe

 ha scritto nel messaggio
news:Ox1ab.107633$R32.3...@news2.tin.it...

Allora sì, solo che devi passargli il valore OpenArgs
Guarda l'help è semplice
MAssimiliano

 ha scritto nel messaggio
news:oUcab.40227$w8.3...@news.edisontel.com...

Ciao MAssimiliano
grazie per il suggerimento ma non sono
riuscito ad applicare correttamente le istruzioni
dell'help al mio caso , saresti così gentile da darmi
l'imbeccata giusta  con un esempio.
Ciao Giuseppe