Frage zu MsgBox

1. offizieller Beitrag
    • Offizieller Beitrag
    Code
    antwort = Messagebox("TEXT TEXT",4 ,"")
if antwort = 6 Then
   ' Ja'
elseif antwort = 7 Then
   ' nein'
End if


    Gruß
    Dirk

    Rein logisches Denken verschafft uns keine Erkenntnis über die wirkliche Welt.
    Alle Erkenntnis der Wirklichkeit beginnt mit der Erfahrung und endet mit ihr.
    Alle Aussagen, zu denen man auf rein logischen Wegen kommt, sind, was die Realität angeht, vollkommen leer.
    Albert Einstein

    Doch noch kurz ein Problem:
    Habe folgenden Code:


    Sub Click(Source As Button)
    Dim se As New NotesSession
    Dim db As notesdatabase
    Dim view As NotesView
    Dim doc As notesdocument
    Dim item As NotesItem
    Dim ws As New NotesUIWorkspace
    Dim uidoc As notesuidocument

    antwort = Messagebox("Wollen Sie die Beauftragung wirklich stornieren?",4 ,"")
    If antwort = 6 Then
    'Call uidoc.refresh
    nr = uidoc.FieldGetText( "avd_vnr" )
    betrag = uidoc.Fieldgettext("avd_temp2")
    nvar = Cdbl(betrag)
    Set view = db.GetView("($Profildoc)")
    Set doc = view.GetDocumentByKey(nr)
    Set item = doc.Replaceitemvalue("p_og_ist",nvar)
    Call doc.save(True,True)

    Call uidoc.FieldSetText("avd_status", "Storniert")
    Call uidoc.Save()
    Call uidoc.close
    End If
    End Sub


    Bei der Zeile "nr = uidoc.FieldGetText( "avd_vnr" )" bringt er mir den fehler "Objektvariable not set"?????
    Sorry, bin ziemlicher Scriptanfänger!
    Das mit dem uidoc.refresh funktioniert irgendwie auch nich wirklich!

    Weil du uidoc davor auch etwas zuweisen musst.


    Das enthält dort nämlich gar nichts und damit kannst du dann auch nichts machen.


    Also wenn du das aktuelle Dokument willst würde am Anfang noch ein Set uidoc = ws.CurrentDocument fehlen