Suite, Récup un champ qui se trouve dans une vue pour l'envo

[nicolas]

Je souhaite envoyer cette fois ci un élément ( Numéro de chrono qui se trouve dans une vue ) vers le mémo que je crée, La colonne s'appelle N°Doc J'essai de t'expliquer comment j'ai créer le champ Compteur..... 1>le nom de ma vue s'appelle Numéro de chrono2>Cette valeur de colonne a pour valeur : "N° dans vue " trs pratique si tu veux un bon compteur qui incrémente parfaitement ...... pas de doublon etc ....J'ai mis ce code .... mais ...je n'y arrive pas ...Set view = db.getview("Numéro de chrono") Set view = db.GetView("N°Doc") Call uidoc.FieldSetText("Body",N°Doc) Telle que ma base est faîte fait que le numéro du chrono est affiché que dans la vue ....Dans le formulaire je ne l'affiche pas ... c'est pour cela que je souhaite aller dans la vue en question récupérer le champ N°DOC du formulaire ouvert en cours ...ou la la la ...... que c'est compliqué ... je sais pas si tu as compris .... n'hésites pas à me faire répéter ...................

[nicolas]

j'ai mis ceci ...'Dans le corps de l'email : Set view = db.getview("Numéro de chrono") Set view = db.GetView("N°Doc") Call uidoc.FieldSetText("Body",Numchrono) Incorrect Argument Type , String Expected ...

[Emmanuelle]

Bonjour, c'est encore moi !Déjà, je ne pense pas que ça puisse marché car "Set view = db.GetView("N°Doc")" signifie que N°Doc est le nom de la vue que tu veux ouvrir, or je suppose que tu n'as pas de vue de ce nom. Tu dois utiliser un fonction sur les column, genre GetColumn ou quelque chose comme ça.De plus, ou a été défini Numchrono ? Comment le calcules tu ?[%sig%]

[nicolas]

Bonjour .... je t'embête déjà .... tu dois dire ....il exagére .....Bon sinom restons sérieux .... un petit peu ...regarde dna quand je double clique sur ma colonne N°DOC pour voir les propriétés de cette colonne je me suis dis qu'il était judicieux. de ... . va sur le dernier onglet ( 7 ème ) et il ya a une zone qui s'appelle ' Utilisation au niveau programme nom : et j'ai mis : NumChrono ....pour voir comment la colonne N°DOC focntionne et récupére le numéro chrono va sur le 1 er mail ... je te l'ai expliqué ....mer...

[Emmanuelle]

Ok, alors je ne connais pas bien cette fonction, mais si ça t'interresse, j'ai crée un LotusScript contant tous les documents contenus dans une vue, et en plus je l'ai commentée ! 'Déclarations Dim session As New NotesSession Dim db As NotesDatabase Dim view As NotesView Dim temp As Integer Dim doc As NotesDocument Set db = session.CurrentDatabase 'Choix de la vue à regarder Set view = db.GetView("NomDeLaVue") 'Premier document de la vue Set doc = view.GetFirstDocument 'Tant qu'il y a des documents dans la vue While Not(doc Is Nothing) 'Incrémenter le compteur et passé au document suivant temp=temp+1 Set doc = view.GetNextDocument(doc) Wend 'Mettre la valeur du compteur dans le corps du memo : Call uidoc.FieldSetText("Body",temp)Je ne sais pas si c'est très compréhensible, mais ça fonctionne très bien et je pense que ça pourrait t'aider.Bonne chance,[%sig%]

[nicolas]

merci ... bien ..et je met ce code ou .... dans mon formulaire .... ?

[Emmanuelle]

Ah la la... Faut tout faire ici ! Pour ce qui est du compteur, tu peux le réutiliser n'importe ou.Si c'est pour mettre dans le corps de ton memo, tu le met à la suite du code que je t'avais passé, lorsque ton mémo est ouvert.Ca ira ? J'éspère que je suis à peu prés claire.Bon courage, ça devrait être bien maintenant,[%sig%]

[nicolas]

excuse moi .... cest pas de ma faute ....

[Emmanuelle]

T'en fait pas, ça me géne pas Ca devrait te donner quelque chose du genre :Sub Click(Source As Button) 'Déclarations : Dim workspace As New NotesUIWorkspace Dim uidoc As NotesUIDocument Dim session As New NotesSession Dim db As NotesDatabase Dim view As NotesView Dim temp As Integer Dim doc As NotesDocument 'document courant Set uidoc = workspace.CurrentDocument 'La donnée que tu as actuellement sur ton doc que tu veux récupérer donneeARecuperer=uidoc.FieldGetText("TonChamp") 'Ouverture du memo Set uidoc = workspace.ComposeDocument ( "", "mail50.ntf", "Memo" ) Set uidoc = workspace.CurrentDocument 'Les données que tu veux remplir dans le memo : 'Par exemple, l'adresse e-mail du destiantaire Call uidoc.FieldSetText("EnterSendTo",adresse) 'Le sujet du mail Call uidoc.FieldSetText("Subject","Affaire/ N°Chrono : """+donneeARecuperer+"""") 'Calcul du compteur : Set db = session.CurrentDatabase'Choix de la vue à regarder Set view = db.GetView("NomDeLaVue") 'Premier document de la vue Set doc = view.GetFirstDocument'Tant qu'il y a des documents dans la vue While Not(doc Is Nothing)'Incrémenter le compteur et passé au document suivant temp=temp+1 Set doc = view.GetNextDocument(doc) Wend'Mettre la valeur du compteur dans le corps du memo : Call uidoc.FieldSetText("Body",temp) End SubA+,[%sig%]

[nicolas]

quand il passe sur cette ligne il me met .... ??'Premier document de la vue Set doc = view.GetFirstDocumentObjet Variable no Set

[Emmanuelle]

Ah... essai : Set db = New NotesDatabase("","NomDeTaBase.nsf")'choix de la vue à regarder Set view = db.GetView("NomDeTaVue") 'Premier document de la vue Set doc = view.GetFirstDocument 'Tant qu'il y a des documents dans la vue While Not(doc Is Nothing)...je pense que ça marche mieux.Ah, tu aura peux etre un problème ici : Call uidoc.FieldSetText("Body","Nombre de documents : "+temp)Tu n'as qu'a mettre: Call uidoc.FieldSetText("Body","Nombre de documents : "+Cstr(temp))car ainsi temp est bien convertit en texte.[%sig%]

[dani]

salutEmmanuelle,tu as dit t'etre mis depuis 1 mois et demi sur lotus et tu es deja assez forte je trouve ,comment as tu fait ?un livre sympa ?lotus en francais ?tu t'y connaissais deja en programmation objetsmerci d'aider les debutants comme nous!!

[nicolas]

Set db = New NotesDatabase("","NomDeTaBase.nsf")dés qu'il passe sur cette ligne ....il me dit ...Database ....nsf has not been opened YET ?....

[Emmanuelle]

Ah, c'est bizzare. Il m'a jamais fait ce genre d'erreur. Dis, ce serait pas plus simple si tu m'envoyais ton code LotusScript en entier ?S'il est long, envois le sur ma messagerie.[%sig%]

[Emmanuelle]

Merci pour le compliment Dani. Et bien , je sais pas, j'ai cherché pas mal dans l'aide, et je trouve que le LotusScript ressemble beaucoup à d'autres langages de programmation.Je te conseille de bien regardé l'aide, elle est vraimant bien faite et facile à comprendre d'après moi.Bonne chance pour la suite,[%sig%]