Sætte værdier på andre dokumenter, fundet udfra felter

du kan passende lægge check ind om du har fat i et dokument eller ej.

if not doc is nothing then
    tmp3 = doc.GetItemValue( "ProductName" )
    Print tmp3
else
    print "dokument med nøgle " & tmp2 & fandtes ikke
end if


vær også opmærksom på at den oversigt som du søger i skal være sorteret på den kolonne der indeholder nøglen.

Nu er jeg kommet et skridt videre og min kode ser nu således ud, og så får jeg en type mismatch...

Sub Initialize
    Dim session As New notessession
    Dim workspace As New NotesUIWorkspace
    Dim uidoc As NotesUIDocument
    Dim doc As NotesDocument
    Dim products() As String
    Dim db1 As notesdatabase
    Dim view As notesview
    Dim counter As Integer
    Dim tmp As String,tmp2 As String,tmp3 As Double
    Set db1=  session.currentdatabase
    Set view = db1.getview("vPRODUCTSKEY")
    Set uidoc = workspace.currentDocument
   
    For counter%=1 To 50
        tmp = "productid_"+Cstr(counter%)
        tmp2 = uidoc.Fieldgettext(tmp)
        If tmp2 <> "0" And tmp2 <> "" Then
            Set doc = view.GetDocumentBykey(tmp2)
            If Not doc Is Nothing Then
                tmp3 = doc.GetItemValue( "MinimumAmount" )
                Call uidoc.FieldSetText("ActualAmount",tmp3)
            End If
        End If
    Next
End Sub

Både minimumamount og actualamount er nummerfelter

har prøvet at definere tmp3 som string, og som integer, men feltets type er i følge debuggeren "double"

det er i linien tmp3 = doc.getItemValue...... at jeg får min type mismatch

så bør det være iorden at anvende cstr som nedenunder
tmp3 = cstr(doc.GetItemValue( "MinimumAmount" ))

Cool har fået det til at virke, dog på en lidt anden måde, nemlig :

Sub Initialize
    Dim session As New notessession
    Dim workspace As New NotesUIWorkspace
    Dim uidoc As NotesUIDocument
    Dim doc As NotesDocument
    Dim products() As String
    Dim db1 As notesdatabase
    Dim view As notesview
    Dim counter As Integer
    Dim tmp As String,tmp2 As String,orgval As Double, tmp4 As String,amount As Double,newval As Double
    Set db1=  session.currentdatabase
    Set view = db1.getview("vPRODUCTSKEY")
    Set uidoc = workspace.currentDocument
    Dim item As NotesItem
   
    For counter%=1 To 50
        tmp = "productid_"+Cstr(counter%)
        tmp4 = "amount_"+Cstr(counter%)
        tmp2 = uidoc.Fieldgettext(tmp)
        If tmp2 <> "0" And tmp2 <> "" Then
            Set doc = view.GetDocumentBykey(tmp2)
            If Not doc Is Nothing Then
                orgval = Cint(doc.actualAmount(0))
                amount = uidoc.fieldgettext(tmp4)
               
                newval= orgval - amount
                Print uidoc.Fieldgettext("product_"+Cstr(counter%) ) & " antal : " & amount &" original : " & doc.ActualAmount(0) &" ny :" newval
                doc.editmode = True
                Call doc.ReplaceItemValue("ActualAmount", Cstr(newval))
                Print doc.ActualAmount(0)
                Call doc.save(False,False)
            End If
        End If
    Next
End Sub

læg et svar, så får du point får at have hjulpet mig videre...

så svarer jeg da gerne :-)