Autor Thema: Feldwert aus anderer Maske autom. übernehmen  (Gelesen 1666 mal)

Offline Dr.Pepper

  • Frischling
  • *
  • Beiträge: 2
Feldwert aus anderer Maske autom. übernehmen
« 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?

klaussal

  • Gast
Re: Feldwert aus anderer Maske autom. übernehmen
« Antwort #1 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
« Letzte Änderung: 23.07.07 - 16:09:59 von klauss »

Offline Dr.Pepper

  • Frischling
  • *
  • Beiträge: 2
Re: Feldwert aus anderer Maske autom. übernehmen
« Antwort #2 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)


Offline DAU-in

  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 1.129
  • Geschlecht: Weiblich
  • - unterwegs -
Re: Feldwert aus anderer Maske autom. übernehmen
« Antwort #3 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.
mühsam ernährt sich das Eichhörnchen

aktuelle Tätigkeit: Feldschubse

Offline Axel

  • Moderator
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 8.658
  • Geschlecht: Männlich
  • It's not a bug, it's Notes
Re: Feldwert aus anderer Maske autom. übernehmen
« Antwort #4 am: 23.07.07 - 19:08:57 »
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
 
Ohne Computer wären wir noch lange nicht hinterm Mond!

Offline Schrammi

  • Frischling
  • *
  • Beiträge: 25
  • Geschlecht: Männlich
Re: Feldwert aus anderer Maske autom. übernehmen
« Antwort #5 am: 24.07.07 - 07:34:00 »
Andere Möglichkeit wäre mit der Funktion @DBLookup der Notes Formelsprache.

 

Impressum Atnotes.de  -  Powered by Syslords Solutions  -  Datenschutz