Newsgroup: it.comp.appl.access
Titolo: Creazione TabellaDA Rilevazione 2 x Roberto da casa

Scusa per il ritardo ma non ho potuto farlo prima, motivi di salute. La tua
Query funziona bene. Grazie. Io ho provato in altri modi diversi ma niente
da fare, il Tuo risultato č migliore. Ho tanta strada da fare .... mi
chiedevo se hai scritto tutta la query a manina o hai usato qualche Wizard
?. Credo comunque che la tua sia pura esperienza e studio.
Il programma continua.....
Adesso  ho una tabella  : Nome Tabella2 con Campi di esempio :
CODICE  MATRICOLA      DATA       INGRESSO   USCITA   INGRESSO1     USCITA1
    A          11              01/04/04     08.00        16.00
    D          21              01/04/04     08.00
12.00           16.30
    A          31              01/04/04     14.00        22.00
    D          41              01/04/04     09.00
13.00
    D          51              01/04/04     09.15        17.15
    A          61              01/04/04     08.00        12.00         14.00
17.30
In un Form di visualizzazione/modifica i dati di Tabella2  dovrebbero
essere di questo tipo :
CODICE  MATRICOLA      DATA       INGRESSO   USCITA   INGRESSO1     USCITA1
    A          11              01/04/04     08.00        16.00         12.20
12.50
    D          21              01/04/04     08.00
12.00          16.30
    A          31              01/04/04     14.00        22.00         12.20
12.50
    D          41              01/04/04     09.00
13.00
    D          51              01/04/04     09.15        17.15         12.30
13.30
    A          61              01/04/04     08.00        12.00         14.00
17.30
Prima del Form,
Ho scritto queste righe di codice ma funziona al contrario cioč con ( =
MyPausa ) non fa niente, con ( <> MyPausa )  la Matricola 61 si ritrova con
Ingresso1 e Uscita1 con le ore cambiate al posto di quelli che sono null "".
Dove l'errore ?
Sub CALCOLA()
Dim rsMyTable As Recordset
 Dim CodiceOp As String
 Dim CodiceDip As String
Dim MyOraIn, MyTime, MyZero, MyTime2, MyPausa
  CodiceOp = "A"
   CodiceDip = "D"
MyTime = #12:20:00 PM#
     MyOraIn = Format(MyTime, "hh:mm")
 MyTime2 = #12:50:00 PM#
           MyOraUs = Format(MyTime2, "hh:mm")
MyZero = ""
MyPausa = Format("MyZero", "Ora breve 24")
    Set rsMyTable = New ADODB.Recordset
    rsMyTable.ActiveConnection = CurrentProject.Connection
           rsMyTable.Open "Tabella2", , adOpenKeyset, adLockOptimistic, _
        adCmdTable
    Do Until rsMyTable.EOF
 If rsMyTable.Fields("INGRESSO1") = MyPausa Then
     If rsMyTable.Fields("USCITA1") = MyPausa Then
   If rsMyTable.Fields("CODICE") = CodiceOp Then
    If rsMyTable.Fields("USCITA") > 0 Then
     rsMyTable.Fields("INGRESSO1") = MyOraIn
       rsMyTable.Fields("USCITA1") = MyOraUs
    rsMyTable.Update
       End If
        End If
          End If
             End If
        rsMyTable.MoveNext
    Loop
    rsMyTable.Close
End Sub

 Il programma continua.....
[CUT]
Due problemi:
1) Non uso e non conosco ADO.
2) Non hgo capito quale siano i presupposti e cosa vuoi realizzare.
-- 
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

 ha scritto nel messaggio
news:aCabc.103521$Kc3.3...@twister2.libero.it...

Ciao,
Vorrei realizzare quanto segue : Se Uscita > 0  e Ingresso1 e Uscita1 sono
senza orario e il Campo Codice = A allora
Ingresso1 = 12.20 e Uscita1 = 12.50.
Se il campo Codice = D allora Ingresso1 = 12.30 e Uscita1 = 13.30
Poi sicuramente mi chiederanno di fare la somma di orario oltre le otto ore
di lavoro. Quindi mi tocca pensare  ad inserire un 'altro campo calcolato.
Grazie per ulteriori suggerimenti.

 Grazie per ulteriori suggerimenti.
Se i calcoli dovessero complicarsi un po', forse è più agevole abbandonare
la soluzione della query e scrivere del codice VBA che legge la tabella
delle timbrature e crea una tabella che contiene in un'unico record tutte le
timbrature di una giornata di un dipendente. Diventerà più facile fare i
calcoli e sicuramente risulterà moooolto più veloce in esecuzione.
Però per non farlo diventare una trelenovela a puntate, bisognerebbe che tu
comoscessi con esattezza quello che vuoi fare, e se non lo sai ancora
fattwlo raccontare da chi lo sa.
