Acquista i nostri libri consigliati su Amazon.it
+ Rispondi al messaggio
Visualizzazione dei risultati da 1 a 10 su 10

automatizzare numerazione

  1. #1
    biker non  in linea Scolaretto
    salve a tutti....volevo porvi un quesito.....
    sto realizzando un db per la realizzazione di buoni pasto.....con tanto di numerazione.....
    all'inizio avevo impostato tale valore a CONTATORE...solo che non va bene poich quando qualkuno si prenota e poi per un qualsiasi motivo dovesse venir meno quel numero lo perdo....
    come posso realizzare un pulsante che al mio comando mi numera il tutti i buoni di quel giorno continuando la numerazione del giorno precedente?In questo modo riuscirei a sapere anche il numero totale dei buoni pasto emessi......spero di essermi spiegato bene

  2. #2
    L'avatar di seamission
    seamission non  in linea Scribacchino
    Quote Originariamente inviato da biker Visualizza il messaggio
    salve a tutti....volevo porvi un quesito.....
    sto realizzando un db per la realizzazione di buoni pasto.....con tanto di numerazione.....
    all'inizio avevo impostato tale valore a CONTATORE...solo che non va bene poich quando qualkuno si prenota e poi per un qualsiasi motivo dovesse venir meno quel numero lo perdo....
    come posso realizzare un pulsante che al mio comando mi numera il tutti i buoni di quel giorno continuando la numerazione del giorno precedente?In questo modo riuscirei a sapere anche il numero totale dei buoni pasto emessi......spero di essermi spiegato bene
    Ciao Biker
    L'argomento stato pi volte trattato fai una ricerca sul forum.
    Questo uno dei tanti 3d che trattano incremento di un campo progressivo.
    ℹ️ Leggi di pi su seamission ...

  3. #3
    biker non  in linea Scolaretto
    Quote Originariamente inviato da seamission Visualizza il messaggio
    Ciao Biker
    L'argomento stato pi volte trattato fai una ricerca sul forum.
    Questo uno dei tanti 3d che trattano incremento di un campo progressivo.
    purtroppo l'ho visto ma nn serve alla mia causa....

    dim pasto as recordset
    dim dbcorrente as database
    dim totale as integer
    dim ultimo as integer
    set dbcorrente=currentDb
    set pasto = dbCorrente.OpenRecordset ("Pasti")

    'lettura dati nella tabella pasti

    Do until Pasto.Eof
    Conteggio di tutti i prenotati
    dim totale= dcount("[id_pasto]";"pasti";[data pasto]=me![prenotazione])
    dim ultimo = dmax("[numero buono]";"pasti";[buonoemesso]=-1)
    For i = 1 to [totale]
    pasto.edit
    if pasto.fields ("data pasto") = me![prenotazione] then
    pasto.fields ("numero buono")=[utimo]+i
    end if
    pasto.update
    pasto.movenext
    next i
    loop
    end sub

    questo il codice che ho scritto...ma appena lo lancio si blocca...
    In sintesi dovrebbe succedere questo...in una form ho un campo [prenotazione] dove inserisco il giorno della prenotazione dei buoni pasto.
    Poi premendo un altro tasto dovrebbe avviarsi il codice che ho scritto e che dovrebbe numerare tutti i buoni del giorno selezionato riprendendo la numerazione dall'ultimo buono emesso.....
    spero di essere stato chiaro.....
    Ultima modifica di biker; 26-11-2008 15:35 

  4. #4
    L'avatar di seamission
    seamission non  in linea Scribacchino
    Quote Originariamente inviato da biker Visualizza il messaggio
    purtroppo l'ho visto ma nn serve alla mia causa....

    dim pasto as recordset
    dim dbcorrente as database
    dim totale as integer
    dim ultimo as integer
    set dbcorrente=currentDb
    set pasto = dbCorrente.OpenRecordset ("Pasti")

    'lettura dati nella tabella pasti

    Do until Pasto.Eof
    Conteggio di tutti i prenotati
    dim totale= dcount("[id_pasto]";"pasti";[data pasto]=me![prenotazione])
    dim ultimo = dmax("[numero buono]";"pasti";[buonoemesso]=-1)
    For i = 1 to [totale]
    pasto.edit
    if pasto.fields ("data pasto") = me![prenotazione] then
    pasto.fields ("numero buono")=[utimo]+i
    end if
    pasto.update
    pasto.movenext
    next i
    loop
    end sub

    questo il codice che ho scritto...ma appena lo lancio si blocca...
    In sintesi dovrebbe succedere questo...in una form ho un campo [prenotazione] dove inserisco il giorno della prenotazione dei buoni pasto.
    Poi premendo un altro tasto dovrebbe avviarsi il codice che ho scritto e che dovrebbe numerare tutti i buoni del giorno selezionato riprendendo la numerazione dall'ultimo buono emesso.....
    spero di essere stato chiaro.....
    Non dici dove si blocca e se hai fatto un debug .
    Dopo il loop dovresti chiudere la tabella pasto cosi:
    Loop
    Pasto.Close
    End sub
    Ho controllato un mio esempio che usa un metodo identico per scrivere dei dati e L'End If si trova posizionato fra Update e movenext.
    Diventerebbe cosi:
    Do until Pasto.Eof
    Conteggio di tutti i prenotati
    dim totale= dcount("[id_pasto]";"pasti";[data pasto]=me![prenotazione])
    dim ultimo = dmax("[numero buono]";"pasti";[buonoemesso]=-1)
    For i = 1 to [totale]
    pasto.edit
    if pasto.fields ("data pasto") = me![prenotazione] then
    pasto.fields ("numero buono")=[utimo]+i

    pasto.update
    end if
    pasto.movenext
    next i
    loop
    Pasto.close
    end sub
    Ultima modifica di seamission; 26-11-2008 16:39 
    ℹ️ Leggi di pi su seamission ...

  5. #5
    L'avatar di Genio
    Genio non  in linea Scribacchino
    dim pasto as recordset (giusto)
    Dim un comando che serve per creare variabili

    dim totale= dcount("[id_pasto]";"pasti";[data pasto]=me![prenotazione])] Sbagliato
    totale= dcount("[id_pasto]";"pasti";[data pasto]=me![prenotazione]) Giusto
    ℹ️ Leggi di pi su Genio ...

  6. #6
    biker non  in linea Scolaretto
    dim pasto as recordset
    dim dbcorrente as database
    dim totale as integer
    dim ultimo as integer
    set dbcorrente=currentDb
    set pasto = dbCorrente.OpenRecordset ("Pasti")

    'lettura dati nella tabella pasti

    Do until Pasto.Eof
    Conteggio di tutti i prenotati
    totale= dcount("[id_pasto]";"pasti";[data pasto]=me![prenotazione])
    dim ultimo = dmax("[numero buono]";"pasti";[buonoemesso]=-1)
    For i = 1 to [totale]
    pasto.edit

    praticamente si blocca qui...mi d errore 3021....nessun record corrente

  7. #7
    L'avatar di seamission
    seamission non  in linea Scribacchino
    Quote Originariamente inviato da biker Visualizza il messaggio
    dim pasto as recordset
    dim dbcorrente as database
    dim totale as integer
    dim ultimo as integer
    set dbcorrente=currentDb
    set pasto = dbCorrente.OpenRecordset ("Pasti")

    'lettura dati nella tabella pasti

    Do until Pasto.Eof
    Conteggio di tutti i prenotati
    totale= dcount("[id_pasto]";"pasti";[data pasto]=me![prenotazione])
    dim ultimo = dmax("[numero buono]";"pasti";[buonoemesso]=-1)
    For i = 1 to [totale]
    pasto.edit

    praticamente si blocca qui...mi d errore 3021....nessun record corrente
    Per analogia anche questo deve essere corretto come da suggerimento post Genio
    dim ultimo = dmax("[numero buono]";"pasti";[buonoemesso]=-1)
    ultimo = dmax("[numero buono]";"pasti";[buonoemesso]=-1)
    ℹ️ Leggi di pi su seamission ...

  8. #8
    biker non  in linea Scolaretto
    Quote Originariamente inviato da seamission Visualizza il messaggio
    Per analogia anche questo deve essere corretto come da suggerimento post Genio


    ho provato anche cos.....non succede assolutamente nulla.....anzi cos mi dice che il campo [totale] sconosciuto.....

  9. #9
    biker non  in linea Scolaretto
    tutto risolto......


    ' apertura tabella

    do until pasto.eof
    pasto.edit
    if pasto.fields("data pasto")=me![prenotazione] then
    pasto.fields("numero buono")=nz(dmax("[numero buono]","pasti]"),0)+1
    pasto.update
    end if
    pasto.movenext
    loop
    pasto.close
    end sub

    funziona esattamente come volevo io....lo posto se magari dovesse servire a qualkuno ciao ciao e grazie

  10. #10
    L'avatar di seamission
    seamission non  in linea Scribacchino
    Quote Originariamente inviato da biker Visualizza il messaggio
    tutto risolto......


    ' apertura tabella

    do until pasto.eof
    pasto.edit
    if pasto.fields("data pasto")=me![prenotazione] then
    pasto.fields("numero buono")=nz(dmax("[numero buono]","pasti]"),0)+1
    pasto.update
    end if
    pasto.movenext
    loop
    pasto.close
    end sub

    funziona esattamente come volevo io....lo posto se magari dovesse servire a qualkuno ciao ciao e grazie
    D'accordissimo con t , per penso che dovresti postare il codice completo e chiarire meglio
    il lavoro che svolge il codice, cosi ch leggendo solo l'ulitmo post, l'utente finale abbia chiaro l'uso che n deve fare.
    Ciao e Buon lavoro
    ℹ️ Leggi di pi su seamission ...

+ Rispondi al messaggio

Potrebbero interessarti anche ...

  1. Automatizzare query
    Da MAURIZIO79 nel forum Microsoft Access
    Risposte: 6
    Ultimo Post: 24-05-2015, 23:15
  2. Automatizzare access e pdf
    Da ALIANTE47 nel forum Microsoft Access
    Risposte: 9
    Ultimo Post: 26-08-2014, 08:15
  3. macro per automatizzare
    Da stregatto nel forum Microsoft Excel
    Risposte: 1
    Ultimo Post: 05-02-2014, 11:13
  4. Automatizzare query di aggiornamento
    Da Gregorio nel forum Microsoft Word
    Risposte: 10
    Ultimo Post: 30-10-2008, 16:24
  5. Automatizzare moltiplicazioni
    Da francogilles nel forum Microsoft Word
    Risposte: 2
    Ultimo Post: 05-11-2004, 16:28