1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56
|
Private Sub Command1_Click()
If Trim$(CmbAY) >= Trim$(CmbDeY) Then
'r' CmdEnreg.Enabled = False
Set UpdateAgent = New ADODB.Recordset
UpdateAgent.Open "IDplomat", Cnx, adOpenDynamic, adLockOptimistic
'r' On Error GoTo erreur
UpdateAgent.Find "N°=" & "'" & TxtSearchMatri.Text & "'"
' UpdateAgent.Open "SELECT * FROM IDplomat WHERE N° = """ & Val(TxtSearchMatri.Text) & """ "
', Cnx, adOpenStatic, adLockOptimistic
'UpdateAgent.Open "SELECT *
UpdateAgent.Update
UpdateAgent!NomDip = TxtNom.Text
UpdateAgent!PostNomDip = TxtPostNom.Text
UpdateAgent!PrenomDip = TxtPrenom.Text
UpdateAgent!QualiteDip = TxtQualite.Text
UpdateAgent!Etablissement = TxtEtablissement.Text
UpdateAgent!DureeSejourRDC = TxtDureeSejour.Text
UpdateAgent!AdresseRDC = TxtAdresseRDC.Text
UpdateAgent!AdresseMail = TxtCourriel.Text
UpdateAgent!TelDip = TxtPhone.Text
UpdateAgent!Validite = LblValidite.Caption
UpdateAgent!Mission01 = TxtMission01.Text
UpdateAgent!Mission02 = TxtMission02.Text
UpdateAgent!Mission03 = TxtMission03.Text
UpdateAgent!Mission = TxtMission.Text
'r' SaveAgent!Matricule = TxtMatricule.Text
UpdateAgent.Update
'r' SavePicture Image1.Picture, App.Path & "\images\face\" & Trim$(TxtMatricule) & ".jpg"
'r' SavePicture Image2.Picture, App.Path & "\images\finger\" & Trim$(TxtMatricule) & ".jpg"
'r' SavePicture Image3.Picture, App.Path & "\images\doc\" & Trim$(TxtMatricule) & ".jpg"
CmdImprimer.Enabled = True
'r' CmdNew.Enabled = False
MsgBox "Mise à jour effectuée avec succès!", vbOKOnly + vbInformation, "Enregistrement"
Else
MsgBox "Validité incorrect!", vbCritical, "Attention"
CmbAY.SetFocus
End If
End Sub |
Partager