Private Sub Form_Load()
'Crea la cartella di rete v: se non esiste
If Not CreateObject("Scripting.FileSystemObject").FolderExists("V:") Then Shell ("NET USE V: \\fs3\file\Repcel\Produttivita")
End Sub
Private Sub OK_Click()
Call ControlloDati
Dim thisdb As Database
Dim Presenze As Database
Dim MatricoleRS As Recordset
Dim ContrattiRS As Recordset
Dim Nomeidx As Index
If Not CreateObject("Scripting.FileSystemObject").FileExists("v:\Presenze.mdb") Then
MsgBox "Attenzione! Non è possibile aprire la tabella Matricole.", vbCritical
Exit Sub
End If
Set Presenze = OpenDatabase("v:\Presenze.mdb")
Set thisdb = CurrentDb
Set MatricoleRS = Presenze.OpenRecordset("Matricole", dbOpenTable)
Set ContrattiRS = thisdb.OpenRecordset("Contratti", dbOpenTable)
MatricoleRS.Index = "Nome"
MatricoleRS.Seek "=", Form_Seleziona_Personale.Nome_Cas.Value
'MatricoleRS.MoveFirst
If Not MatricoleRS.NoMatch Then
'Trova la data di nascita
Do While True
If MatricoleRS!DT_Nascita = Form_Seleziona_Personale.DT_Nascita.Value Then
Exit Do
Else
MatricoleRS.MoveNext
End If
Loop
MatricoleRS.Edit
MatricoleRS!NomePers = Me.NomePers.Value
MatricoleRS!DT_Nascita = Me.DT_Nascita.Value
MatricoleRS!Area = Me.Area.Value
MatricoleRS!Badge = Me.Badge.Value
MatricoleRS!Matricola = Me.Matricola.Value
MatricoleRS.Update
End If
ContrattiRS.Edit
ContrattiRS!Nome = Me.NomePers.Value
ContrattiRS!DT_Nascita = Me.DT_Nascita.Value
ContrattiRS!Tipo = Me.Tipo.Value
ContrattiRS!Livello = Me.Livello.Value
ContrattiRS!N_Contratto = Me.N_Contratto.Value
ContrattiRS!Agenzia = Me.Agenzia.Value
ContrattiRS!Anzianità_Celltel = Me.Anzianità_Celltel.Value
ContrattiRS!DT_InzioContratto = Me.DT_InzioContratto.Value
ContrattiRS!DT_1Proroga = Me.DT_1Proroga.Value
ContrattiRS!DT_2Proroga = Me.DT_2Proroga.Value
ContrattiRS!DT_3Proroga = Me.DT_3Proroga.Value
ContrattiRS!DT_4Proroga = Me.DT_4Proroga.Value
ContrattiRS!DT_5Proroga = Me.DT_5Proroga.Value
ContrattiRS!DT_6Proroga = Me.DT_6Proroga.Value
ContrattiRS!DT_ScadenzaContratto = Me.DT_ScadenzaContratto.Value
ContrattiRS!DT_Limite = Me.DT_Limite.Value
ContrattiRS!N_ChiaveArmadio = Me.N_ChiaveArmadio.Value
ContrattiRS!N_ServiceCard = Me.N_ServiceCard.Value
ContrattiRS!IMEI_TEL = Me.IMEI_TEL.Value
ContrattiRS!Note = Me.Note.Value
ContrattiRS.Update
MsgBox "Operatore modificato in anagrafica"
End Sub
'Trova l'ultima data compilata tra le presenze e acqusiscie la lista degli operatori presenti per quella data
'****NON CANCELLARE buon esempio di Seek****
' With Presenze
' .Index = "PresenzeDATA"
' .Seek "=", lastDate
' temp_1 = .GetRows(maxOpe)
' i = 0
' Do
' Ope = temp_1(Presenze("Ope").OrdinalPosition, i)
' Area = temp_1(Presenze("Area").OrdinalPosition, i)
' Operatori(i, 0) = Ope
' Operatori(i, 1) = Area
' i = i + 1
' Loop Until i = UBound(temp_1, 2) + 1
'End With