Salve a tutti, sono alle prese con la reralizzazione di un database che gestisca l'ingresso e l'uscita del personale identificando anche l'automezzo posseduto.
Questa cosa la eseguo attraverso la "scansione" di un codice a barre (il codice fiscale) del soggetto e la scansione del codive a barre (la targa) del veicolo.
Tutto ok se eseguo la registrazione in ingresso ma non riesco a mettere nel campo orario in uscita l'ora in cui esce.
Posto quanto inserito nella textbox della targa:
Private Sub cerca_targa_AfterUpdate()
Dim cercatarga, cercaorain As Long
Dim valoretarga, id As String
valoretarga = Me.cerca_targa.Value
id = Me.id_pers
carcaorain = Nz(DCount("[id_inout]", "tb_inout", "[mezzo]= '" & Me.cerca_targa & "'"))
cercatarga = Nz(DCount("[id_mezzo]", "tb_mezzo", "[numero_targa]= '" & Me.cerca_targa & "'"))
If cercatarga = 0 Then
MsgBox ("Targa Inesistente")
Me.cerca_targa.SetFocus
ElseIf cercatarga = 1 And cercaorain = 0 Then
CurrentDb.Execute "INSERT INTO tb_inout (utente, mezzo, id_pers) VALUES ('" & Me.utente.Value & "', '" & Me.cerca_targa.Value & "', '" & Me.id_pers.Value & "')"
Else
DoCmd.RunSQL " UPDATE [tb_inout] SET [tb_inout].uscita_ora = '" & Me.ora.Value & "'" & _
" WHERE ((([tb_inout].id_pers)=" & Me!id_pers & "));"
End If
Me.cerca.SetFocus
End Sub
Come mai non funge?
Grazie
Gianni