Newsgroup: it.comp.appl.access
Titolo: Creare campo Numero Fattura automatico

Ciao a tutti, è la prima volta che scrivo su un NG e quindi spero di
nn creare danni a nessuno.
detto questo, ho questo problema: ho necessità di creare un numero di
fattura incementale che pero' debba partire da un numero specifico che
assegno da una tabella o da una maschera
esempio: maschera parametri: numero_inizio: 198; quando clikko su un
pulsante della form ove tratto gli ordini mi deve creare un
progressivo di uno ovvero: Nr.Fattura: 199
Grazie a tutti quelli che possono darmi una dritta, possibilmente enza
rimandarmi a ricerche assurde.
Ciao ciao

 ha scritto nel messaggio 
news:1173301431.1...@t69g2000cwt.googlegroups.com...

------------------------------
Se hai messo il numero in una tabella:
Me.NumeroFattura = dlookup("Numero","MiaTabella") + 1
Si pone il problema che una volta impostato il primo numero di fattura, 
successivo a quello impostato in tabella, la procedura non deve più leggere 
il numero dalla tabella ma dalla tabella fatture.
Per fare ciò ci possono essere molte strade.
Incrementi anche il numero predefinito nella tabella parametri.
Usi l'ultimo numero di fattura + 1 se la tabella fatture contiene record.
Aggiungi un campo (si/no) alla tabella parametri.
Anzichè usare un numero da cui partire nella tabella parametri, usi una 
inputbox prima di inserire il numero:
per esempio su attivato del controllo NFattura della maschera fatture:
Private Sub NFattura_GotFocus()
If IsNull(Me.NFattura) Or Me.NFattura = 0 Then
    Dim inpu As String, MiaFattura As Long
    MiaFattura = Nz(DMax("Nfattura", "TuaTabellaFatture"), 0)
        If MiaFattura = 0 Then
        inpu = InputBox("Inserisci il numero di fattura.", "Numero fattura", 
MiaFattura + 1)
            If inpu = "" Then
            Exit Sub
            Else
            Me.NFattura = CLng(inpu)
            End If
        Else
        Me.NFattura = MiaFattura + 1
        End If
End If
End Sub
Quest'ultimo esempio oltre ad ottenere quello che desideri è anche molto 
funzionale perchè inserisce automaticamente il numero fattura senza farti 
alcuna domanda se trova nella tabella fatture almeno un record.
Ciao, Carlo

 ha scritto nel messaggio 
news:1173301431.1...@t69g2000cwt.googlegroups.com...

---------------------
 Risposta
---------------------
Bhè, io ti invito a vedere il mio DEMO, magari ti può essere utile... il 
num. del documento è incrementale anche per anno.
http://www.accessgroup.it/HomeArgomenti.asp?ID=126&Oggetto2=DB%20Fatturazione
-- 
-- 
Ciao
Pablitomf (Maurizio Facciuti)
-----------------------------------------------------------------
Access: 97, 2000, XP e 2003
ASP
-----------------------------------------------------------------
http://www.accessgroup.it/
-----------------------------------------------------------------
Il mio motto :
""Non mi fido molto delle statistiche, perchè un uomo con la testa nel forno
acceso e i piedi nel congelatore statisticamente ha una temperatura media."

Innanzitutto grazie a Carlo per il codice, ma sinceramente non sono
riuscito a farlo funzionare, anche perche mi mostra ad ogni record che
inserisco sempre e comunque la inputbox e non sono riuscito a
risolvere il problema, quindi ti chiedo se riesci a darmi un ulteriore
soluzione senza utilizzare le imputboxbox""
Mentre tu Maurizio, hai fatto un db da urlo, nel senso che è fatto
benissimo e io non raggiungero' mai i tuoi livelli quindi ti faccio
1000 complimenti!
Purtroppo non riesco a sfruttarlo per la mia applicazione :-(
Grazie a tutti voi per l'aiuto.

 ha scritto nel messaggio 
news:1173399814.9...@64g2000cwx.googlegroups.com...
Innanzitutto grazie a Carlo per il codice, ma sinceramente non sono
riuscito a farlo funzionare, anche perche mi mostra ad ogni record che
inserisco sempre e comunque la inputbox e non sono riuscito a
risolvere il problema, quindi ti chiedo se riesci a darmi un ulteriore
soluzione senza utilizzare le imputboxbox""
Mentre tu Maurizio, hai fatto un db da urlo, nel senso che č fatto
benissimo e io non raggiungero' mai i tuoi livelli quindi ti faccio
1000 complimenti!
Purtroppo non riesco a sfruttarlo per la mia applicazione :-(
Grazie a tutti voi per l'aiuto.
----------------
Mi puoi rimandare il codice cosě come lo hai modificato per le tue esigenze?
Ciao, Carlo