Sub JeLeSaisTuMoé() dim réponse as byte = int((rnd()*2) + 1) select case réponse case 1 messagebox.show("J'ai décidé que je voulais le fichier") Case 2 messagebox.show("J'ai décidé que je voulais le chemin d'accès") case else messagebox.show("J'ai décidé que j'étais indécis" end select end sub
"et je veux aussi ajouter le rapports sous forme pdf chemin d'accès au fichier PDF dans la base de données"
j'ai une interface qui comporte des informations à ajouter
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionle voici ms il me manque les lignes pour ajouter le pdf