Newsgroup: it.comp.appl.access
Titolo: aggiungi record con formati diversi a seconda della form aperta

A seconda che una maschera venga aperta tramite un pulsante dalla form NUOVA 
FATTURA ACQUISTO o dalla form NUOVA FATTURA VENDITA, alcuni campi andranno 
inseriti con formati diversi in tabella.
Ecco perch� ho creato i seguenti casi:
Private Sub Form_Open(Cancel As Integer)
If Forms![NUOVA FATTURA ACQUISTO].Visible = True Then
Me.PROTOCOLLO = Format("A") & Format("/") & Format(Forms![NUOVA FATTURA 
ACQUISTO]![DETTAGLI FATTURE ACQUISTO.PROTOCOLLO], "0000") & Format("/") & 
Format(Right(Year(Now()), 2))
Me.FT_NUMERO = Forms![NUOVA FATTURA ACQUISTO]![NUM FT]
Me.IMPORTO = Forms![NUOVA FATTURA ACQUISTO]![TOTALE FATTURA]
Me.RAGIONE_SOCIALE = Forms![NUOVA FATTURA ACQUISTO]![CONTO FORNITORE]
Else
End If
If Forms![NUOVA FATTURA VENDITA].Visible = True Then
Me.PROTOCOLLO = Format("V") & Format("/") & Format(Forms![NUOVA FATTURA 
VENDITA]![PROTOCOLLO], "0000") & Format("/") & Format(Right(Year(Now()), 2))
Me.FT_NUMERO = Forms![NUOVA FATTURA VENDITA]![NUM FT]
Me.IMPORTO = Forms![NUOVA FATTURA VENDITA]![TOTALE FATTURA]
Me.RAGIONE_SOCIALE = Forms![NUOVA FATTURA VENDITA]![CONTO CLIENTE]
End If
End Sub
Il problema nasce quando � aperta la form NUOVA FATTURA VENDITA perch� sulla 
prima riga della funzione mi si blocca.
Come posso ovviare?
Grazie
-- 
Giorgia 

 ha scritto nel messaggio 
news:hmoij8$knq$1...@speranza.aioe.org...

Probabilmente ho postato in modo poco chiaro....;-)
Cosa posso mettere come condizione dopo Else affinch� se la form NUOVA 
FATTURA ACQUISTO non fosse aperta, riuscissi a passare al secondo If?
Grazie.
Giorgia 

 FATTURA ACQUISTO non fosse aperta, riuscissi a passare al secondo If?
Quando apri il form specifica il parametro Openforms specificando  un 
valore di riconoscimento e poi testa quel valore sull'apertura.
--
ac

 ac
Ciao, scusate se mi intrometto, ma io andrei a monte, perchè una
stessa maschera per le fatture di vendita e quelle di acquisto ? Cosa
hanno in comune ? Cosa ci si guadagna ? Personalmente ho sempre fatto
maschere diverse per acquisti e vendite (fatture, DDT, ordini,
offerte) e non ho mai avuto problemi.
Ciao
Alberto

 ac
Ciao, scusate se mi intrometto, ma io andrei a monte, perch� una
stessa maschera per le fatture di vendita e quelle di acquisto ? Cosa
hanno in comune ? Cosa ci si guadagna ? Personalmente ho sempre fatto
maschere diverse per acquisti e vendite (fatture, DDT, ordini,
offerte) e non ho mai avuto problemi.
Ciao
Alberto
Ciao Alberto,
non ho la stessa maschera per fatture di vendita e d'acquisto ma 2 come fai 
tu.
La funzione mi occorre per lo scadenzario in cui verranno inserite le 
scadenze con prot del tipo A/0000/10 per quelle d'acquisto e del tipo 
V/0000/10 per quelle di vendita.
Mi occorre per� che la form INSERISCI SCADENZA prelevi i dati correttamente 
a seconda della form correntemente aperta.
Giorgia 

 ac
ciao Alessandro,
in attesa di qualche risposta mi sono avventurata in una cosa del tipo
Private Sub Form_Open(Cancel As Integer)
If DimmiNomeMaschera = "" Then
Exit Sub
Else
Select Case DimmiNomeMaschera
Case "NUOVA FATTURA ACQUISTO"
Me.PROTOCOLLO = Format("A") & Format("/") & Format(Forms![NUOVA FATTURA 
ACQUISTO]![DETTAGLI FATTURE ACQUISTO.PROTOCOLLO], "0000") & Format("/") & 
Format(Right(Year(Now()), 2))
Me.FT_NUMERO = Forms![NUOVA FATTURA ACQUISTO]![NUM FT]
Me.IMPORTO = Forms![NUOVA FATTURA ACQUISTO]![TOTALE FATTURA]
Me.RAGIONE_SOCIALE = Forms![NUOVA FATTURA ACQUISTO]![CONTO FORNITORE]
Case "Maschera2"
Me.PROTOCOLLO = Format("V") & Format("/") & Format(Forms![NUOVA FATTURA 
VENDITA]![PROTOCOLLO], "0000") & Format("/") & Format(Right(Year(Now()), 2))
Me.FT_NUMERO = Forms![NUOVA FATTURA VENDITA]![NUM FT]
Me.IMPORTO = Forms![NUOVA FATTURA VENDITA]![TOTALE FATTURA]
Me.RAGIONE_SOCIALE = Forms![NUOVA FATTURA VENDITA]![CONTO CLIENTE]
End Select
End If
End Sub
ma in "If DimmiNomeMaschera = "" Then"
mi viene segnalato "Tipo non corrispondente"
Perch�?
ah DimmiNomeMaschera � una variabile globale
Global MioNomeForm As String
Giorgia

 Perchï¿œ?
Probabilmente c'e' qualche errore nella gestione della varibile pubblica.
Mio consiglio usa le variabili pubbliche quando strettamente indispensabile.
Forse nel consiglio sono stato sbrigativo.
Il form attuale crdo che lo apri con una docmd.
In questa istruzione, prototipo a seguire:
docmd.openform (NomeMaschera, Visualizzazione, NomeFiltro, 
CondizioneWHERE, Modalitï¿œDati, Modalitï¿œFinestra, ArgomentiApertura)
Puoi fare questo
docmd.openform (NomeMaschera, Visualizzazione, , , , , "x")
dove in  "x" puoi indicare, ad es., "V" o "A" a seconda di quale form la 
apre
Sull'apertura di "NomeMaschera" non fai altro che
if "" & Openargs= "V"
    .... allora e' da vendita
elseif "" & openargs = "A"
    .... allora e' da acquisti
else
    ..... allora e' da un'altra parte
endif
-
ac