Script Fehlermeldung

[ewald]

Hallo zusammen,

ich frage ein numerisches Feld in einer Form ab, ob auch wirklich keine Buchstaben drinstehen mit folgendem Code (steht in einem Button):

If Not Isnumeric(doc.WSBCApprCost(0)) Then
    Messagebox  "Nur Zahlen....", mb_ok, Title$      
    Continue=False
    Exit Sub
End If

Bei der Ausführung krieg ich aber den Fehler "Variant does not contain a container"

Was hab ich da falsch gemacht 

Thx
Gruss Ewald

[koehlerbv]

Wie hast du doc instantiiert ? Schick' mal bitte den gesamten Code.

Bernhard

[Marinero Atlántico]

Ausserdem kannst du im Debugger sehen, ob die Objekte instantiiert sind. Sie haben dann ein grünes Dreieck. Wenn nicht, ist das Objekt (doc) nicht instantiiert.

[ewald]

@Bernhard,

hier der gesamte Code


Sub Click(Source As Button)
   
   Dim uiws As New NotesUIWorkspace
   Dim uidoc As NotesUIDocument
   Dim doc As NotesDocument
   Dim session As New notessession
   Dim db As NotesDatabase   
   Set db = session.CurrentDatabase
   Set uidoc = uiws.currentdocument
   Set doc = uiws.currentdocument.document
   
   '//-------- Text modules----------------------
   Title$ = "Document control"
   MsgAlreadySent$ = "Already sent..."
   MsgSendTo$ = "Field [Send to] must contain at least one person."
   MsgSaveBeforeSubmit$ = "Request must be saved prior submit."
   
   subject_text$ = "Decision of Deviation Request for customer:  "
   txt$="Sending of decision successfully initiated."
   txt2$="Replicate immediately."   
      
   If doc.DocStatus(0) = "2" Then
      Messagebox  MsgAlreadySent$, mb_ok, Title$      
      Continue = False
      Exit Sub
   End If
   
   '######Das geht nich#####################
   If Not Isnumeric(doc.WSBCApprCost) Then
      Messagebox "Numeric characters only.", MB_OK + MB_ICONSTOP, Title$
      Continue = False
      Exit Sub      
   End If         '######################################
   
   If doc.SendTo(0) = "" Then
      Messagebox  MsgSendTo$, mb_ok, Title$
      Continue = False
      Exit Sub
   End If
   
   
   '//--- Write current Notes user
   Dim benutzer As Variant, zeit As Variant
   Const formel = "@V3UserName"   
   benutzer = Evaluate(formel)
   Const formel2 = "@text(@Now)"
   zeit = Evaluate(formel2)
   
   '--- Write name and time stamp into fields
   Call uidoc.FieldSetText("WSBCDecSender", benutzer(0))
   Call uidoc.FieldSetText("WSBCDecDate", zeit(0))
   
   Dim dStatus As String
   dStatus = "2"
   Call uidoc.FieldSetText("DocStatus", dStatus)   
   
   Call uidoc.Save()
   
   '//--- Submit the document
   Dim st_originator As String
   Dim doc_send As notesdocument   
   Dim richStyle As NotesRichTextStyle
   Set richStyle = session.CreateRichTextStyle
   Set db = session.currentdatabase
   Set doc_send = New notesdocument(db)
   
   Dim st_Text As String, send2 As String, copy2 As String, subject As String
   
   send2 = doc.SendTo(0)
   copy2 = doc.CopyTo(0)
   subject = subject_text$
   
   '// Set Form Type,  Subject, SendTo address, CopyTo address
   Call doc_send.replaceitemvalue("form", "Memo")
   Call doc_send.replaceitemvalue("Subject", subject & doc.CustomerName(0))
   Call doc_send.replaceitemvalue("SendTo", send2)
   Call doc_send.replaceitemvalue("CopyTo", copy2)
   
   '// Build Richtext for Message Body
   Set RTItem = New NotesRichTextItem(doc_send, "body")
   Call RTItem.addnewline(2)
   Call RTItem.addnewline(2)
   Call RTItem.AppendText("Please follow this doclink to the request in the DQMS database.  ")
   Call RTItem.AppendDocLink(doc, "DQMS request document")
   
   '//-------- Send Document -----
   Call doc_send.send(False)
   
   '//-------- Final popup messages -----------------------
   Messagebox txt$,mb_ok,"Notice"
   Messagebox txt2$,mb_ok,"Important notice"
   '//----------------------------------------------------------------
   
   Call uidoc.Close
   
   Continue = True   ' No Error
   docIsSaved = True
   
End Sub

Gruss Ewald

[koehlerbv]

Ooops - hier steht jetzt aber was anderes und falsches:
If Not Isnumeric(doc.WSBCApprCost)

Isnumeric kann nur auf skalare Werte angewendet werden und nicht auf Arrays, wie Du das hier versuchst. Setze - wie bereits ausgangs von Dir gepostet - wieder den Index dazu:
If Not Isnumeric(doc.WSBCApprCost (0))

Bernhard

[ewald]

hab den index wieder gesetzt. gleicher fehler kommt aber wieder 

ewald

[koehlerbv]

Bist Du sicher, dass der Fehler überhaupt in dieser Zeile passiert ? Syntaktisch wäre diese okay (selbst, wenn Dein Feldname nicht stimmen würde, Hauptsache ist, das doc instantiiert ist, aber wenn das nicht wäre, würde es bereits vorher knallen).

Bernhard

[ewald]

wenn genau diese code fragment kommentiert ist läuft alles problemlos

ewald

[koehlerbv]

Und was sagt der Debugger über die Fehlerzeile und den Inhalt von Objekten und Variablen ?

[ewald]

sieht im debugger soweit ok aus. nur fällter halt ganau an der stelle

If Not Isnumeric(doc.WSBCApprCost(0)) Then

raus   

[koehlerbv]

Welchen Feldtyp hat eigentlich WSBCApprCost ?

Ich habe natürlich vor dem Posten die Situation nachgestellt (soweit möglich). Ich kann da nach wie vor nichts "schlimmes" erkennen ...

Bernhard

[koehlerbv]

Ich habe eben mal spassenshalber Deinen "ganzen" Code in einen Button geworfen. Der Compiler meldet zwölf Fehler - hast Du Option Declare deaktiviert ?
Aber auch wenn ich die Deklarationsfehler berichtige - der Code funktioniert. Irgendwie scheinen noch wichtige Informationen von Dir zu fehlen ...

Bernhard

[ewald]

Poste mir doch mal den berichtigten Code zurück. Mal sehn, was dann bei mir passiert

Ewald

[TMC]

Poste mir doch mal den berichtigten Code zurück. Mal sehn, was dann bei mir passiert

Ähm, ich denke das hat so keinen Sinn. Du solltest auch mal Bernhards Frage beantworten, um welchen Feldtyp es sich da handelt.

Würde es vielmehr eingrenzen. Schalte erstmal Option Declare ein.

Statt

Code

If Not Isnumeric(doc.WSBCApprCost(0)) Then

Schreibst Du z.B.:

Code

If doc Is Nothing Then Error 1001, "FEHLER: Notesdokument ist Nothing"
Dim vTempVal as Variant
vTempVal = doc.GetItemValue("WSBCApprCost")(0)
Msgbox "<" & vTempVal & ">", 64, "Das ist jetzt der Inhalt von <WSBCApprCost>"
If Not Isnumeric(vTempVal) Then

Wenn da jetzt ein Fehler auftritt, sag Bescheid, in welcher Zeile.

[Marinero Atlántico]

und um das ganze ein bischen einfacher zu gestalten:

als Erste Zeile unter sub clickButton oder was da steht:

Code

on Error goto Fehler

und vor der letzten Zeile (end sub)

Code

finish: 
exit sub

Fehler: 
msgbox "Fehler in Clickerei:" & Error$ & "(" & Cstr(Err) & ") in Zeile" & Cstr(Erl)
goto finish

[ewald]

habs jetzt auf diese weise gelöst:


If uidoc.FieldGetText("WSBCApprCost") <> "" Then
   If Isarray(doc.GetFirstItem("WSBCApprCost").Values) = False Then
      Messagebox "Non numeric characters are not allowed.",mb_ok, Title$         
   Call uidoc.gotofield("WSBCApprCost")
   Continue = False
   Exit Sub
   End If
End If

und jetzt funktionierts 

danke nochmal...

[Axel]

Hi,

... und wo und wie prüfst du ob nur nummerische Werte eingegeben wurden?


Axel