cs_Patrik
Messages postés95Date d'inscriptionjeudi 24 janvier 2002StatutMembreDernière intervention10 octobre 2005
-
27 févr. 2002 à 12:25
Makabey
Messages postés152Date d'inscriptionmercredi 27 juin 2001StatutMembreDernière intervention11 juillet 2002
-
27 févr. 2002 à 18:21
Salut,
Je souhaite afficher le nom des quatre dernier fichiers ouverts pour mon application (le nom des fichiers est stocké dans une base de données).
Et ensuite créer un évenement click qui me permetrai d'ouvrir le fichier séléctionné.
(exemple : se reporter à excel, menu fichier).
Merci, à tous ceux qui pourront m'apporter une réponse, @+ Patrik
Makabey
Messages postés152Date d'inscriptionmercredi 27 juin 2001StatutMembreDernière intervention11 juillet 20021 27 févr. 2002 à 18:21
Crée un premier élément menu tel FileLastFiles (tu met n'importe quoi pour le Caption) et met 0 pour son index, ensuite Visible=false, tu devrait aussi créer un séparateur (caption est '-') juste au-dessus.
Ce code devrait te donner une piste:
Sub Form_Load
Dim iCmpt as Integer
If(Recordset.RecordCount>0)then
do
if iCmpt=0 then
FileLastFiles(0).visible=true
FileSeparateur.visible=true
FileLastFiles(0).Caption=RecordSet.Fields("NomChamps").Value
else
iCmpt=iCmpt+1
load FileLastFiles(iCmpt)
FileLastFiles(iCmpt).visible=true
FileLastFiles(iCmpt).Caption=RecordSet.Fields("NomChamps").Value
end if
Recordset.MoveNext
loop until Recordset.EOF
End Sub
Sub FileLastFiles_Click(Index)
'OpenFile/Shell/etc... (FileLastFiles(Index).Caption)
End Sub