Hallo zusammen,
steh grad etwas auf dem Schlauch:
Ich will eine MsgBox öffnen lassen mit einer JaNein Abfrage. Wenn auf Ja geklickt wird mach dies, bei nein mach das.
Hallo zusammen,
steh grad etwas auf dem Schlauch:
Ich will eine MsgBox öffnen lassen mit einer JaNein Abfrage. Wenn auf Ja geklickt wird mach dies, bei nein mach das.
Du bist aber schnell!!!
Klaro, dankeschön!!!!!!!!
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