Newsgroup: it.comp.appl.access
Titolo: numerazione fattura formato testo

Ripropongo il problema sperando di esporlo meglio e che qualche
esperto mi aiuti.
Ho un database multiaziendale.
Tabelle: tblAziende campi IdAzienda ecc.. , tblFatture campi
IdAzienda, NFattura.
Per la numerazione ho applicato l'esempio del sito comune. Nel valore
predefinito ho:
="" & Format(IIf(IsNull(DMax("[NFattura]";"[tblFatture]";"[NFattura]
like '???/" & Format(Date();"aa") & "'"));
1;Mid(DMax("[NFattura]";"[tblFatture]";"[NFattura] like '???/" &
Format(Date();"aa") & "'");1;3)+1);"000") & "/" & Format(Date();"aa")
Quindi la numerazione è 001/08 e così via.
A me serve che la numerazione sia progressiva in base all'IdAzienda
scelta.
Quindi ho messo sul campo Nfattura sugli eventi "clic" o "su attivato"
la funzione che mi assegna la numerazione progressiva tenendo conto
dell'IdAzienda scelto.
Ho provato così ma non funziona
NFattura = Format(IIf(IsNull(DMax("[NFattura]", "[tblFatture]",
"[IDAzienda]= " & Forms![frmFatture]![IDAzienda1], "[NFattura] like
'???/" & Format(Date();"aa") & "'"));
1;Mid(DMax("[NFattura]";"[tblFatture]";"[IDAzienda]= " & Forms!
[frmFatture]![IDAzienda1],"[NFattura] like '???/" &
Format(Date();"aa") & "'");1;3)+1);"000") & "/" & Format(Date();"aa").
Mi date una dritta per favore?

Mi date una dritta per favore?
NFattura = Format(IIf(IsNull(DMax("[NFattura]", "[tblFatture]",
"[IDAzienda]= " & Forms![frmFatture]![IDAzienda1] & " AND [NFattura] like
'???/" & Format(Date();"aa") & "'"));
1;Mid(DMax("[NFattura]";"[tblFatture]";"[IDAzienda]= " & Forms!
[frmFatture]![IDAzienda1] & " AND [NFattura] like '???/" &
Format(Date();"aa") & "'");1;3)+1);"000") & "/" & Format(Date();"aa").
Vincenzo Turturro
Certificato Eucip Core Level
ITA 0000-002299 del 14/05/2007
---------------------------------------------
il sito comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------
risorse Access:
http://www.accessgroup.it
---------------------------------------------
Il sito comune di it.comp.as400
http://www.faq400.com
---------------------------------------------

 ha scritto nel messaggio 
news:84911f94-5e4f-48ef...@z38g2000hsc.googlegroups.com...
Ripropongo il problema sperando di esporlo meglio e che qualche
esperto mi aiuti.
Ho un database multiaziendale.
Tabelle: tblAziende campi IdAzienda ecc.. , tblFatture campi
IdAzienda, NFattura.
Per la numerazione ho applicato l'esempio del sito comune. Nel valore
predefinito ho:
="" & Format(IIf(IsNull(DMax("[NFattura]";"[tblFatture]";"[NFattura]
like '???/" & Format(Date();"aa") & "'"));
1;Mid(DMax("[NFattura]";"[tblFatture]";"[NFattura] like '???/" &
Format(Date();"aa") & "'");1;3)+1);"000") & "/" & Format(Date();"aa")
Quindi la numerazione č 001/08 e cosě via.
A me serve che la numerazione sia progressiva in base all'IdAzienda
scelta.
Quindi ho messo sul campo Nfattura sugli eventi "clic" o "su attivato"
la funzione che mi assegna la numerazione progressiva tenendo conto
dell'IdAzienda scelto.
Ho provato cosě ma non funziona
NFattura = Format(IIf(IsNull(DMax("[NFattura]", "[tblFatture]",
"[IDAzienda]= " & Forms![frmFatture]![IDAzienda1], "[NFattura] like
'???/" & Format(Date();"aa") & "'"));
1;Mid(DMax("[NFattura]";"[tblFatture]";"[IDAzienda]= " & Forms!
[frmFatture]![IDAzienda1],"[NFattura] like '???/" &
Format(Date();"aa") & "'");1;3)+1);"000") & "/" & Format(Date();"aa").
Mi date una dritta per favore?
Ciao Giuseppe
vedi se puň aiutarti:
http://tinyurl.com/432hy5
Daniele 

 ---------------------------------------------
Grazie per la risposta. Incollando la funzione in vba ho dovuto unire
le righe tirando su con canc.
Il codice me lo mette in rosso dicendo "errore di compilazione:
Previsto:separatore di elenco oppure )   evidenziandomi il punto e
virgola dopo
Format(Date() e prima di "aa"). Un errore di punteggiatura? A dopo.

 Daniele
Grazie Daniele per la risposta. Ho guardato quel post e anche se molto
simile al mio  la differenza è che il mio numero è composto da numero/
aa e quindi la formula è diversa e  più complessa.
Grazie comunque, credo che il codice nel primo posto opportunamente
modificato da Vincenzo Turturro con qualche piccola correzione sulla
punteggiatura funzioni.


Allora ho provato a sostituire i vari punti e virgola che mi segnalava
come errore mettendo le virgole.
Il risultato è che dopo aver scelto l'azienda e cliccando o attivando
il campo NFattura mi restituisce 001/aa anzichè il numero progressivo
e /08.
La formula adesso è:
NFattura = Format(IIf(IsNull(DMax("[NFattura]", "[tblFatture]",
"[IDAzienda]= " & Forms![frmFatture]![IDAzienda1] & " AND [NFattura]
like '???/" & Format(Date, "aa") & "'")), 1, Mid(DMax("[NFattura]",
"[tblFatture]", "[IDAzienda]= " & Forms![frmFatture]![IDAzienda1] & "
AND [NFattura] like '???/" & Format(Date, "aa") & "'"), 1, 3) + 1),
"000") & "/" & Format(Date, "aa")
Continuo a provarci e resto in attesa di un tuo intervento.
Grazie VT.

Format(Date() e prima di "aa"). Un errore di punteggiatura? A dopo.
Fermi tutti !
In VBA devi sostituire i ; con , (non ci avevo fatto caso, nella prima
risposta ...)
Quindi l'espressione diventa:
NFattura = Format(IIf(IsNull(DMax("[NFattura]", "[tblFatture]",
"[IDAzienda]= " & Forms![frmFatture]![IDAzienda1], "[NFattura] like
'???/" & Format(Date, "aa") & "'")), 1, Mid(DMax("[NFattura]",
"[tblFatture]", "[IDAzienda]= " & Forms![frmFatture]![IDAzienda1],
"[NFattura] like '???/" & Format(Date, "aa") & "'"), 1, 3) + 1),
"000") & "/" & Format(Date, "aa")


 >> >Ho provato così ma non funziona

Scusa Vincenzo ma ora quando attivo la casella NFattura mi apre Vba e
dice Errore di compilazione, numero errato di argomenti o assegnazione
di proprietà non valida  evidenziano DSum.
Ciao.

Ciao.
!?!?!?!
DSum ?
Non nella formula di cui stiamo parlando, suppongo ...


 ---------------------------------------------
Scusa mi correggo è DMax.
Giuseppe.

On Fri, 11 Apr 2008 09:58:35 +0200, "VT @ Work" <V...@Work.it> wrote:
 (...) 
Scusa: nel msg di risposta ho copiato la formula sbagliata invece di
quella corretta !
Fattura = Format(IIf(IsNull(DMax("[NFattura]", "[tblFatture]",
"[IDAzienda]= " & Forms![frmFatture]![IDAzienda1] & " AND [NFattura]
like '???/" & Format(Date, "aa") & "'")), 1, Mid(DMax("[NFattura]",
"[tblFatture]", "[IDAzienda]= " & Forms![frmFatture]![IDAzienda1] & "
AND [NFattura] like '???/" & Format(Date, "aa") & "'"), 1, 3) + 1),



Allora Vincenzo, quest'ultima formula non mi dà nessun errore, però
quando attivo o clicco la casella NFattura non succede nulla.
Scusami l'insistenza, ma sono tanti mesi che ci sto dietro e ora con
te mi sembra di essere sul punto di risolvere. Grazie ancora.
Giuseppe.

On 11 Apr, 13:21, "VT @ Work" <V...@Work.it> wrote:

Il codice che (finalmente) funziona a quale evento di quale controllo l'hai associato ?


 wrote:

L'ho associato alla casella con origine NFattura sia su evento
attivato che su click.
In entrambi non dà nè segnalazione di errore, nè restituisce qualsiasi
valore.
Giuseppe.

Giuseppe.
Servono più dettagli:
posta entrambe le sub associate ai due eventi.


 wrote:

Il codice è uguale per tutte e due  gli eventi ed è quella del tuo
post
On Fri, 11 Apr 2008 09:58:35 +0200, "VT @ Work" <V...@Work.it> wrote:
 (...)
Scusa: nel msg di risposta ho copiato la formula sbagliata invece di
quella corretta !
Private Sub NFattura_GotFocus()
Fattura = Format(IIf(IsNull(DMax("[NFattura]", "[tblFatture]",
"[IDAzienda]= " & Forms![frmFatture]![IDAzienda1] & " AND [NFattura]
like '???/" & Format(Date, "aa") & "'")), 1, Mid(DMax("[NFattura]",
"[tblFatture]", "[IDAzienda]= " & Forms![frmFatture]![IDAzienda1] & "
AND [NFattura] like '???/" & Format(Date, "aa") & "'"), 1, 3) + 1),
"000") & "/" & Format(Date, "aa")
End Sub
Private Sub NFattura_Click()
Fattura = Format(IIf(IsNull(DMax("[NFattura]", "[tblFatture]",
"[IDAzienda]= " & Forms![frmFatture]![IDAzienda1] & " AND [NFattura]
like '???/" & Format(Date, "aa") & "'")), 1, Mid(DMax("[NFattura]",
"[tblFatture]", "[IDAzienda]= " & Forms![frmFatture]![IDAzienda1] & "
AND [NFattura] like '???/" & Format(Date, "aa") & "'"), 1, 3) + 1),
"000") & "/" & Format(Date, "aa")
End Sub
Ciao. Giuseppe.

Ciao. Giuseppe.
Private Sub NFattura_GotFocus()
Me.NFattura = Format(IIf(IsNull(DMax("[NFattura]", "[tblFatture]",
"[IDAzienda]= " & Forms![frmFatture]![IDAzienda1] & " AND [NFattura]
like '???/" & Format(Date, "aa") & "'")), 1, Mid(DMax("[NFattura]",
"[tblFatture]", "[IDAzienda]= " & Forms![frmFatture]![IDAzienda1] & "
AND [NFattura] like '???/" & Format(Date, "aa") & "'"), 1, 3) + 1),
"000") & "/" & Format(Date, "aa")
me.refresh
End Sub


 wrote:

Scusa Vincenzo, ma non ne riusciamo a venire a capo.
Il codice funziona ma la numerazione inizia da 001 e per l'anno mi
mette /aa anzichè /08. Quindi mi ha restituito 001/aa.
Le due formule di prima non davano alcun risultato perchè a inizio
codice c'era
Private Sub NFattura_Click()
Fattura =
anzichè
Private Sub NFattura_Click()
NFattura =
Giuseppe.

 ha scritto nel messaggio 
news:8741f85a-bb7f-4992...@a70g2000hsh.googlegroups.com...
Scusa Vincenzo, ma non ne riusciamo a venire a capo.
Il codice funziona ma la numerazione inizia da 001 e per l'anno mi
mette /aa anzichè /08. Quindi mi ha restituito 001/aa.
Le due formule di prima non davano alcun risultato perchè a inizio
codice c'era
Private Sub NFattura_Click()
Fattura =
anzichè
Private Sub NFattura_Click()
NFattura =
Giuseppe.
[risposta]
Prova a sostituire le aa con yy:
...Format(Date, "aa")...
...Format(Date, "yy")...
Ciao.
-- 
Sergio MAZZA 

 ha scritto nel messaggionews:8741f85a-bb7f-4992...@a70g2000hsh.googlegroups.com...

Tutto a posto. Con questa modifica ora va alla grande. Non so come
ringraziarvi. Erano mesi che ci sbattevo la testa.
Siete grandi. Grazie Vincenzo e Grazie Sergio.
Giuseppe.