Das Notes Forum

Domino 9 und frühere Versionen => ND6: Entwicklung => Thema gestartet von: Dr.Pepper am 23.07.07 - 15:34:25

Titel: Feldwert aus anderer Maske autom. übernehmen
Beitrag von: Dr.Pepper am 23.07.07 - 15:34:25

Guten Tag zusammen,

ich komme da bei einer Sache nicht weiter.

Folgendes Problem:

Ich habe in einer Maske Eingabefelder, in der ich den Namen eines Mitarbeites erfasse, und seine zugehörige Abteilung.
Ich nenne sie mal Maske "A".

Nun möchte ich in Maske "B", aus einer Auswahlliste per Maus den Namen auswählen können (das ist soweit nicht das Problem).

Allerdings soll dann in dieser Maske in einem weiteren Feld auch nochmal zusätzlich die Abteilung mit eingefügt werden, die ich ihm in Maske "A" schon zugeordnet habe.

Dies soll wirklich automatisch geschehen, wenn ich den Namen ausgewählt hab.

Ich habe keine Idee, wie ich das realisieren kann.

Kann mir da jemand weiterhelfen?

Titel: Re: Feldwert aus anderer Maske autom. übernehmen
Beitrag von: klaussal am 23.07.07 - 15:58:04

Ich würde beide Felder ungefähr per Button so füllen:

Zitat

Set collection = ws.PickListCollection( PICKLIST_CUSTOM, False, dbServer, dbName, strView, "Abteilungsauswahl", "Bitte wählen Sie eine Abteilung aus")
   
   If collection Is Nothing Then      
      Msgbox "gecancelt"
   Else
      Set docColl = collection.GetFirstDocument
      If docColl Is Nothing Then
         Exit Sub
      Else
      doc.Email = docColl.GetItemValue("ab_email")(0)
      End If
   End If

Titel: Re: Feldwert aus anderer Maske autom. übernehmen
Beitrag von: Dr.Pepper am 23.07.07 - 16:27:34

Hi,

klappt leider nicht per Button.

Mein Code für den Button sieht nun wie folgt aus

Set collection = ws.PickListCollection( PICKLIST_CUSTOM, False, Domino1, anw, alleMitarbeiter, "Abteilungsauswahl", "Bitte wählen Sie eine Abteilung aus")
   
   If collection Is Nothing Then     
      Msgbox "gecancelt"
   Else
      Set docColl = collection.GetFirstDocument
      If docColl Is Nothing Then
         Exit Sub
      Else
      doc.Email = docColl.GetItemValue("ab_email")(0)
      End If
   End If

und was bedeutet diese Zeile?

doc.Email = docColl.GetItemValue("ab_email")(0)

Titel: Re: Feldwert aus anderer Maske autom. übernehmen
Beitrag von: DAU-in am 23.07.07 - 16:36:24

<und was bedeutet diese Zeile?

doc.Email = docColl.GetItemValue("ab_email")(0)>
-----------------------------------------------------------------

Das Feld email im Dokument doc wird mit dem ersten Wert des Feldes ab_email von Dokument docColl befüllt.
Du musst das natürlich abändern für deine Zwecke.

Titel: Re: Feldwert aus anderer Maske autom. übernehmen
Beitrag von: Axel am 23.07.07 - 19:08:57

Zitat von: Dr.Pepper am 23.07.07 - 16:27:34

Hi,

klappt leider nicht per Button.

Was klappt nicht? Ein bisschen genauer musst du es schon schreiben.
Der Code sieht doch ganz vernüftig aus.


Wir haben hier alle keine Kristallkugeln.    ;)



Axel
 

Titel: Re: Feldwert aus anderer Maske autom. übernehmen
Beitrag von: Schrammi am 24.07.07 - 07:34:00

Andere Möglichkeit wäre mit der Funktion @DBLookup der Notes Formelsprache.