Dernière mise à jour le 16 décembre 2007


Présentation du projet - Cliquer ici
 
Procédure de réalisation de la base de données des étudiants - Cliquer ici

Programme permettant l'insertion du lien photo dans la base access :

 

Public Sub ImporterLiensPhotos()

Dim Rst As Recordset


Set Rst = CurrentDb.OpenRecordset("nom_table")

Do While Not Rst.EOF

  Rst.Edit
    Rst.Fields(14) = "Image de " & Rst.Fields("nm_etu") & " " &
Rst.Fields("pr_etu") & "#" & "c:\Rep_image\" & Rst.Fields("cd_etu") &
".jpg" & "#"

  Rst.Update
  Rst.MoveNext

Loop

End Sub