Questo browser non è più supportato.
Esegui l'aggiornamento a Microsoft Edge per sfruttare i vantaggi di funzionalità più recenti, aggiornamenti della sicurezza e supporto tecnico.
![](data:image/svg+xml, %3Csvg xmlns='http://www.w3.org/2000/svg' height='64' class='font-weight-bold' style='font: 600 30.11764705882353px "SegoeUI", Arial' width='64'%3E%3Ccircle fill='hsl(128, 8%, 22%)' cx='32' cy='32' r='32' /%3E%3Ctext x='50%25' y='55%25' dominant-baseline='middle' text-anchor='middle' fill='%23FFF' %3EA%3C/text%3E%3C/svg%3E)
Ciao,
non riesco a trovare un ciclo che mi dia gli stessi risultati scritti nel campo "Risultato_Esatto":
La tabella in questione si chiama "Singoli" con i campi: "Data", "Ora","GG" e "R" in cui debbono uscire gli stessi risultati scritti manualmente nel campo "E" delle immagini postate.
In definitiva debbo contare quante date intercorrono tra l'una e l'altra (considerando quelle gemelle una sola volta) inserendo il risultato nel campo "GG" con la lettera "V".
Spero riusciate a capire il senso del risultato, in quanto a spiegarlo è un tantino complicato :-)
Vladimiro
Una famiglia di sistemi di gestione per database relazionali di Microsoft progettati per semplificare l'uso.
Domanda bloccata. Questa domanda è stata eseguita dalla community del supporto tecnico Microsoft. È possibile votare se è utile, ma non è possibile aggiungere commenti o risposte o seguire la domanda.
Ciao Vladimiro,
Non ti nego che ho tentato di buttare giù una routine ma per mancanza di tempo ho desistito.
Mi sono ripromesso di tornarci sù lunedì.
Ti aggiorno se arrivo ad un risultato significativo
David
Ciao Vladimiro,
prova a valutare la seguente funzione. Ci sono alcune cose che non tornano rispetto alle immagini che hai pubblicato ma in alcuni casi, ammesso che abbia capito bene il meccanismo, ho l'impressione che l'errore non sia nella funzione.
Diciamo che vuole essere un inizio :-)
Public Function fCalcolaRitardi(ByVal dData As Date, ByVal iOra As Integer) As Integer
Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim iRitardo As Integer
Dim iContaP As Integer
Dim dDataPrec As Date
Dim sGGprec As String
Set db = CurrentDb
Set rst = db.OpenRecordset("SELECT Data, Ora, GG From tRitardi " _
& "WHERE Data <= # " & Format(dData, "mm/dd/yyyy") & "# " _
& "AND Ora <= " & iOra & " Order By Data, Ora", dbOpenSnapshot, dbReadOnly)
With rst
Do While Not .EOF
'Debug.Print !Data; !Ora
If !GG = "P" Then
If dDataPrec = !Data And sGGprec = "P" Then
iContaP = iContaP + 1
Else
iRitardo = 0
End If
ElseIf !GG = "V" Then
If dDataPrec = !Data And sGGprec = "P" Then
iRitardo = iContaP + 1
ElseIf dDataPrec = !Data And sGGprec = "V" Then
iRitardo = 0
Else
iRitardo = 1
End If
End If
dDataPrec = !Data
sGGprec = !GG
.MoveNext
Loop
End With
fCalcolaRitardi = iRitardo
rst.Close
db.Close
Set rst = Nothing
Set db = Nothing
End Function
David
Ciao David,
mi hai anticipato di qualche minuto :-)
Siccome mi sono accorto che nelle immagine postate all'inizio di questo thread ci sono degli errori,
ho provveduto a sostituirle con altre immagini; in più ho sostituito allo stesso link una demo con più esempi.
Tutto questo prima di provare la tua routine.
Ti faccio sapere.
Grazie Vladimiro
Ciao Vladimiro
per facilità di calcolo e vista la rappresentazione che hai fatto delle ore, nella funzione le ho considerate come "interi"
David
Ciao Vladimiro
per facilità di calcolo e vista la rappresentazione che hai fatto delle ore, nella funzione le ho considerate come "interi"
David
Ciao David,
a prescindere, probabilmente hai pensato di inserire la funzione direttamente nel campo della query (anche se riscontro diversi errori come ad esempio il riferimento alla tabella "tRitardi" che ho sostituito, forse sbagliando, con il nome della query "Singola_Query") mentre ho bisogno di una routine che mi implementi il campo della query direttamente da un pulsante: come da esempio messo on line.
In poche parole non sono riuscito nell'intento.
Vladimiro