title image


Smiley Vorschlag
Hallo Sabine5,



strukturiere Dein Problem mal genau - und bitte bei Fragen auch eine Struktur, keinen endlosen Fließtext, den man kaum nachvollziehen kann.



Deine Else-Bedingung greift schon, wenn man die testweise mal in einen Aktionsschaltknopf kopiert und einen entsprechenden Schlüssel vorgibt.



Der Schlüssel ist hier hart kodiert.



Dim session As New NotesSession

Dim uiws As New NotesUIWorkspace

Dim db As NotesDatabase



Dim doc As NotesDocument

Dim View As NotesView

Dim schluessel As String

Dim Liefname As String

Dim varTemp As String





Set db = session.CurrentDatabase



Set view = db.GetView("Ansicht")

schluessel = "qa"

Set doc = view.GetFirstDocument

While Not ( doc Is Nothing )

If doc.Feld(0) = schluessel Then

Messagebox "Kunde " & doc.Firmenname(0) & " schon angelegt", 0+48 , "Wareneingangskontrolle"

Exit Sub

Elseif doc.Firmenname(0) schluessel Then

Messagebox "Kunde " & doc.Firmenname(0) & " nicht angelegt", 0+48, "Wareneingangskontrolle"

End If

Wend







Wie willst Du ein Dokument suchen?



Dein Script läuft nur auf das erste Dokument der Ansicht!



1. GetDocumentbykey - dann in einer speziellen Ansicht



2. oder vielleicht mit der Searchmethode





Gruß

FPN60



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: