Voilà j'ai un chtit pb dès lors que je veux effectuer une collection de doc. Le pb se situe o nivo du set collection = view1.GetView(selectionx,true)
Là il me jette et je n'arrive pas à comprendre pk ?? On peut bien passer en paramètre un array alors je ne sais pas ce qui cloche, so si vous trouvez une erreur ds le code suivant et bien faites moi signe 
Thx
Code :
- saleslevelcode2 = Inputbox$ ("Veuillez saisir le Saleslevelcode2 svp : " )
- saleslevelcode1 = Inputbox$ ("Veuillez saisir le Saleslevelcode1 svp : " )
- salesman = Inputbox$ ("Veuillez saisir le SalesmanNumber svp : " )
- custnum = Inputbox$ ("Veuillez saisir le Custnum svp : " )
- If (custnum <> "" And salesman <> "" And saleslevelcode1 <> "" And saleslevelcode2 <> "" ) Then
- Set view1 = db1.GetView("$custnum" )
- Set view2 = db2.GetView("$custnum" )
- selection1 (1) = custnum
- selection1 (2) = salesman
- selection1 (3) = saleslevelcode1
- selection1 (4) = saleslevelcode2
- Set collection = view1.GetAllDocumentsByKey(selection1,True)
- Else
- If (salesman <> "" And saleslevelcode1 <> "" And saleslevelcode2 <> "" ) Then
- Set view1 = db1.GetView("$salesm" )
- Set view2 = db2.GetView("$salesm" )
- selection2 (1) = salesman
- selection2 (2) = saleslevelcode1
- selection2 (3) = saleslevelcode2
- Set collection = view1.GetAllDocumentsByKey(selection2,True)
- Else
- If (saleslevelcode1 <> "" And saleslevelcode2 <> "" ) Then
- Set view1 = db1.GetView("$saleslvl1" )
- Set view2 = db2.GetView("$saleslvl1" )
- selection3 (1) = saleslevelcode1
- selection3 (2) = saleslevelcode2
- Set collection = view1.GetAllDocumentsByKey(selection3,True)
- Else
- If (saleslevelcode2 <>"" ) Then
- Set view1 = db1.GetView("$saleslvl2" )
- Set view2 = db2.GetView("$saleslvl2" )
- Set collection = view1.GetAllDocumentsByKey(saleslevelcode2,True)
- End If
- End If
- End If
|
Message édité par dirakocha le 28-06-2002 à 14:26:58
---------------
Q.G Tutoriaux ici
