EXPORTATION VALEUR D'1 VUE VERS ACCESS

[M@rcello]

BonjourJ'ai une vue qui comporte la colonne suivante "TypeCP": cette colonne affiche le résultat d'une formule: @If(AutreABSENCE="-- Choisir --";ReqType;AutreABSENCE)J'ai un agent qui exporte vers access 97 les données de la vue Call result.SetValue(1,doc.MAT(0)) -----> Valeur du champ OK.Call result.SetValue(2,doc.dayoff(0)) -----> Valeur du champ OK.Call result.SetValue(3,doc.TypeCP(0)) ----> Vide pas OKSi quelqu'un a une solution, d'avance merci...

[Oguruma59]

il serait intéressant que tu donnes le code complet car comme ça "vu d'avion"... difficile de dire...

[M@rcello]

Voici le code de l'agentSub Initialize Dim con As New ODBCConnection Dim qry As New ODBCQuery Dim result As New ODBCResultSet Dim workspace As New NotesUIWorkspace Dim uidoc As NotesUIDocument Dim x As Long Dim Cpt As Integer Set uidoc = workspace.CurrentDocument Set qry.Connection = con Set result.Query = qry Set session = New NotesSession Set db = session.CurrentDatabase Set view = db.GetView("Attente transfert") con.ConnectTo("TRANSFERTGESMI") qry.SQL = "SELECT * FROM MVT" result.Execute view.AutoUpdate = False Set doc = view.GetFirstDocument While Not(doc Is Nothing) If result.IsValueNull(uidoc.CurrentField) Then Cpt=(doc.GetItemValue("TotalDays")(0))-1 For x = 0 To Cpt result.AddRow Call result.SetValue(2,doc.MAT(0)) Call result.SetValue(1,doc.GetItemValue("DURATION")(x)) Call result.SetValue(3,doc.typeCP(0)) Call result.SetValue(4,doc.dayoff(0)) Print result.UpdateRow Next x doc.EXPORT = 1 Call doc.save(True,True,) Set doc = view.GetNextDocument(doc) Else Messagebox("Pas de Chance") End If Wend result.Close(DB_CLOSE) con.Disconnect End Sub

[Oguruma59]

doc.TypeCP(0)) est de quel type dans notes ? et de quel type dansAccess ?le champ est-il multi évalue ?case à cocher ?.texte ?numérique ?quand tu débogg l'agent pas à pas que contient doc.TypeCP(0)) ? je pense qu'il faut examiner la valeur lue en pas déjà pour si tu les données..tu as déja peut-être fait ?car à priori le code paraît bon

[Oguruma59]

as-tu fait un msgbox préalable... ?Call result.SetValue(1,doc.GetItemValue("DURATION")(x))---> msgbox doc.typeCP(0) <---Call result.SetValue(3,doc.typeCP(0))la colonne existe-t-elle vraiement dans le RS ?je pense que c'est un pb de format de données entre access et lotus notes... peux-tu vérifier ?

[M@rcello]

Non j'ai pas encore fait le pas à pas.Je le fait...et te tiens au courant.

[Oguruma59]

le pas à pas devrait te donner la soluce je pense

[M@rcello]

Le Pb vient de la colonne TypeCP le résultat de la formule n'est pas vu.renvoi toujours vide.Pourtant dans la vue la colonne n'est jamais vide et contient soit le contenu de "ReqType" ou le contenu de "AutreABSENCE"@If(AutreABSENCE="-- Choisir --";ReqType;AutreABSENCE)Pas comprendre pourquoi???

[Oguruma59]

le champs est-il présent ?controle ce dernier par un hasitem, tu auras vite la répondeautre ctrltu prends les propriété d'1 ou +sieur donc tu regarde dans le 2eme onglet tu as liste des champs, tu vois si celui-ci est créeen debuf qd tu décompose l'objet doc, et ensuite les item est-ce que tu le vois ? si oui .? quelles sont les valeurs ?le vois-tu dans le doc ?mais j'y pense......>>> et... hohooh ne serait-ce pas une valeur calculée à l'affichage ?????si oui, cà vient de là !

[M@rcello]

La formule de la vue reprend le contenu de 2 champs modifiable.J'ai contourné le pb en me servant d'un autre champs qui affiche la valeur des 2 champ (calculé).Merci beaucoup de ton aide.A +