Domino 9 und frühere Versionen > ND6: Entwicklung

Arbeitsumgebungen und Verbindungsdokumente per Script erstellen

<< < (2/3) > >>

m3:

--- Zitat ---wenn ich dann nen Punkt mache seh ich keinen einzigen Eintrag von einem Feld den eine bestehende AU hat?
--- Ende Zitat ---
Häääää?  ??? :-:

Axel:
Ich vermute mal, er meint die Box mit Eigenschaften und Methoden die aufpoppt wenn man mit einer Objektvariablen arbeitet.

In dieser Box werden generell keine Feldnamen angezeigt.


--- Zitat von: Worn am 21.03.07 - 15:51:56 ---Okay... ich habe das mal getestet mit Teilen aus dem Script von eknori... nur er speichert nichts...
Das Problem scheint mir das ich nicht weis wie ich die Felder befüllen soll`?

--- Ende Zitat ---

Was heisst: er speichert nichts?

Anhand der bestehenden AUs kannst du doch ermitteln welche Felder wie gefüllt werden müssen, oder liege ich da falsch?


Axel

Worn:
Hy... genau die meinte ich.. also muss ich mir die vorher rausschreiben.. können ja ne ganze menge werden...dennoch speichert er mir die neue AU ja nicht mal...

Ben

Axel:
Legst du die AU auch in der richtigen DB an? Wie sieht denn die Anzahl der Dokumente aus? Erhöht die sich, wenn du eine AU anlegst?


Axel

Worn:
Hi,

ja habs gecheckt sie erhöht sich... hier mal das ganze Teil bisher...


--- Code: ---Sub Click(Source As Button)
Dim s As New NotesSession
Dim db As NotesDatabase
Dim item As NotesItem
Dim view As NotesView
Dim form As NotesForm
Dim PersonalAddressBook As String
Dim ndoc As  NotesDocument

'Get the personal address book from the notes.ini and remove any cascaded local address books
PersonalAddressBook = Trim(s.GetEnvironmentString("Names",True))
If Instr(PersonalAddressBook, ",") > 0 Then
PersonalAddressBook = Left$(PersonalAddressBook, Instr(PersonalAddressBook, ",") -1)
Else
If Instr(PersonalAddressBook, ";") > 0 Then
PersonalAddressBook = Left$(PersonalAddressBook, Instr(PersonalAddressBook, ";") -1)
End If
End If

'Get the personal address book, exit if cannot be opened
Set db = s.GetDatabase("", PersonalAddressBook)
If db.IsOpen = False Then Goto FinishFunction

Set view = db.GetView("Locations")
Set form = db.GetForm("Location")

'create a new location document in Form locations
'Set ndoc = New NotesDocument(db)
Set  ndoc = db.CreateDocument
ndoc.form = "Location"
ndoc.Name = "Test"
ndoc.LocationType = 1
ndoc.Save True,False


FinishFunction:
Set db = Nothing
Set view = Nothing
Set ndoc = Nothing

End Sub


--- Ende Code ---


Grüße
Ben

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete