Domino 9 und frühere Versionen > ND7: Entwicklung

Frage an die Profis - brauche Hilfe für SetFiueld:=...

<< < (5/8) > >>

dirk_2909:

--- Zitat ---ich beherrsche keine höherer Programmiersprache
--- Ende Zitat ---

ICh auch nicht. Wer beherrscht schone eine Programmiersprache ?! Nicht viele . (Viele meinen es ;-) )

Aber die Designerhilfe ist schon hilfreich .....

Driri:

--- Zitat ---ich beherrsche keine höherer Programmiersprache ...

--- Ende Zitat ---

Die einzige Sprache, die ein Programmierer perfekt beherrscht ist Fluchen.


Sorry, konnte es mir nicht verkneifen  ;D

pur_berger:
So - besten Dank mal - so kleppt es schließlich:

Sub Click(Source As Button)
   Dim workspace As New NotesUIWorkspace
   Dim uidoc As NotesUIDocument
   Dim doc As NotesDocument
   Set uidoc = workspace.CurrentDocument
   
   Dim WarningMessage As String
   Dim YesOrNo As Integer
   
   If ( uidoc.FieldGetText( "M_SelectConfirmationText" ) = ""  Or uidoc.FieldGetText( "M_SelectConfirmationText" ) = "Please Select Text" ) Then
      Messagebox( "*** Please Select confirmation Text ***" ), 0 + 16
      Call uidoc.GotoField( "M_SelectConfirmationText" )
      Continue = False
      Exit Sub
   End If
   
   If ( uidoc.FieldGetText( "M_AddEquipment" ) = "" ) Then
      WarningMessage = "Are you sure you don't want to add additional items (Powersupply for example)?"
      Set UIDoc = Workspace.CurrentDocument
   'UIDoc.signonsend=False
      YesOrNo=Workspace.Prompt (PROMPT_YESNO, "Warning", WarningMessage)
      If YesOrNo=0 Then
      'No was clicked
         Call uidoc.GotoField( "M_AddEquipment" )
         Continue = False         
         Exit Sub
      Else
         Continue = True
      End If   
   End If
   Set doc = uidoc.Document
   Set item=doc.ReplaceItemValue( "Hide","Yes")
   Set item=doc.ReplaceItemValue( "OPrincipal",uidoc.FieldGetText( "Principal" ))
   Set item=doc.ReplaceItemValue( "OFrom",uidoc.FieldGetText( "From"))
   Set item=doc.ReplaceItemValue( "OSendTo",uidoc.FieldGetText( "SendTo"))
   Set item=doc.ReplaceItemValue( "OSubject",uidoc.FieldGetText( "Subject"))
   Call uidoc.Send
   Call uidoc.Save
   Call uidoc.Close(True)
End Sub

klaussal:
Na also, geht doch.

dirk_2909:
Ein Hinweis noch (wenn Du nichts dagegen hast) ..

Bau noch eine Fehlerbehandlung ein:


--- Code: ---....
on error goto ERROR_ME

....... Code .....


EXIT_ME:
Exit sub 'oder function

ERROR_ME:

msgbox |Fehler bei der Funktionsausführung:
| & error & " (" & err & ") in Zeile " & erl & |

Informieren Sie Ihren Datenbankbetreuer.| , 16 , "Unbehebbarer Fehler"

Err = 0
Resume EXIT_ME

..
End Sub 'oder Function
--- Ende Code ---

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete