Beiträge von dani_blues

Konnte man sich das nicht denken?

Ich sehe, wenn ich die Datenbank mit dieser Ansicht geöffnet habe in der obersten Zeile, das diese Ansicht "Stempeln" heißt.

Als Lösung habe ich gelesen:
To correct the problem, rename the folder or view.

Ja gut. Nur versuche ich auf eine gekaufte Datenbanksansicht zuzugreifen.

Da kann ich den Namen der Ansicht nicht ändern. Keine offene Gestaltung.

Hallo, danke für eure Hilfe, nur so richtig weiter bringt mich die KB nicht. Kapier nicht, wie ich das Problem umgehen kann.
Gruss
Dani

Sorry, aber was meinste damit?

Hy, ich schon wieder

Ich möchte ein Feld mit einer Spalte einer andere DB befüllen. Ich nehme dazu folgende Formel her:

@DbColumn(""; "server" :"hersteller\\arbeit.NSF";"Stempeln";2)

ich bekomme aber immer den Fehler:
Index kann nicht auf dem Server erstellt werden.

Weiß jemand woran das liegt?

Danke und Gruss
Dani

SPITZE! Es hat funktioniert. Vielen Dank!!! Gruss Dani

Hy,

danke für deine schnelle Hilfe, nur so ganz funzt es bei mir nicht.

Ich habe also einen Agenten erstellt mit folgender Formel:

SELECT @All;
@ReplaceSubstring(Number;"/";"0")

Das Feld heißt Number.

Er arbeitet auch jedes Dok ab, jedoch ändert nichts. Woran könnte das liegen?

Hallo,

ich habe eine Datenbank in welcher Verträge erfasst werden. Es gibt Feld, welches automatisch eine fortlaufende Nummer erhält.
Die Nummer hat folgendes Format: 200804/999.

Jetzt muss ich das Nummernformat umstellen. Anstatt des / soll nun eine 0 eingetragen werden.

Bei mittlerweile 1000 Dokumenten eine ganze Menge Arbeit.

Könnte mir freundlicherweise mit einem Agenten weiterhelfen, welcher automatisch die 4. Stelle von hinten mit einer 0 ersetzt?

Danke im voraus.

Ich habe aus einem Seminar mal einen Feldänderungsagenten bekommen, kann man den evtl umschreiben, wenn ja wie?

Hier das Script:
Sub Initialize
Dim ws As New NotesUIWorkspace
Dim ns As New NotesSession
Dim dc As NotesDocumentCollection
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim nitem As NotesItem

Dim feldliste() As String
Dim feldname As Variant
Dim NeuerWert As String
Dim ct As Integer

Set db = ns.CurrentDatabase
Set dc = db.UnprocessedDocuments
Set doc = dc.GetFirstDocument
ct = 0

Forall item In doc.Items
Redim Preserve feldliste( ct )
feldliste( ct ) = item.name
ct = ct + 1
End Forall

feldname = ws.Prompt( 4 , "Feld wählen", "Bitte den Feldnamen wählen", "", feldliste )
If feldname = "" Then Goto P_Ende

NeuerWert =Inputbox( "Bitte den neuen Wert eingeben für Feld " & Cstr( feldname ) ,"Neuer Wert" )

While Not doc Is Nothing
Set nitem = doc.ReplaceItemValue( feldname, NeuerWert )
Call doc.Save( True, True, True )
Set doc = dc.GetNextDocument( doc )
Wend

P_Ende:
End Sub

Kann mir da jemand einen Tipp geben. Danke im voraus!

Sorry.

Wie kann ich diese Prüfung rausnehmen bzw. umgehen?

Hier ist das Script:

Sub Click(Source As Button)
	Stop
	Dim w As New NotesUIWorkspace
	Dim doc As NotesDocument
	Dim TmpField1Values
	Dim TmpField2Values
	Dim TmpField3Values
	Dim TmpField4Values

	Set doc = w.CurrentDocument.Document		
	If (doc.MF_Field1Edit(0)<>"") And (doc.MF_Field2Edit(0)<>"") And (doc.MF_Field3Edit(0)<>"") And (doc.MF_Field4Edit(0)<>"") Then
		If Isnull(Arraygetindex(  doc.MF_Field3, doc.MF_Field3Edit(0) ) )Then				

			TmpField1Values = doc.GetFirstItem("MF_Field1").Values
			TmpField2Values = doc.GetFirstItem("MF_Field2").Values
			TmpField3Values = doc.GetFirstItem("MF_Field3").Values
			TmpField4Values = doc.GetFirstItem("MF_Field4").Values

			m = Ubound(TmpField1Values)
			If (m<>0) Or (TmpField1Values(0)<>"") Then m=m+1

			Redim Preserve TmpField1Values ( m )
			Redim Preserve TmpField2Values ( m )
			Redim Preserve TmpField3Values ( m )
			Redim Preserve TmpField4Values ( m )

			TmpField1Values(m) = doc.MF_Field1Edit(0)
			TmpField2Values(m) = doc.MF_Field2Edit(0)
			TmpField3Values(m) = doc.MF_Field3Edit(0)
			TmpField4Values(m) = doc.MF_Field4Edit(0)



			Call doc.ReplaceItemValue("MF_Field1", TmpField1Values)
			Call doc.ReplaceItemValue("MF_Field2", TmpField2Values)
			Call doc.ReplaceItemValue("MF_Field3", TmpField3Values)
			Call doc.ReplaceItemValue("MF_Field4", TmpField4Values)

			w.CurrentDocument.Refresh				
			doc.MF_Field1Edit = ""
			doc.MF_Field2Edit = ""
			doc.MF_Field3Edit = ""
			doc.MF_Field4Edit = ""
		Else
			Msgbox "Duplikate sind nicht erlaubt!"
		End If		
	Else
		Msgbox "Leere Felder sind nicht erlaubt!"
	End If
End Sub

Das ist eine DB die auch auf OpenNTF verfügbar ist.

Darf man aus der DB das Script hier mal reinstellen, oder verstosse ich dann gegen irgendeine Regel?

Sorry, wusste nicht wies geht.

Hallo,

bei der Mobilfunkdatenbank kann man ja unten einen Aktivierungszeitraum eingeben.

Wenn man jetzt irgendein Feld gleich einem bereits erfasstem Aktivierungszeitraum eintragen möchte, erscheint ein Fehler "Duplikate sind nicht erlaubt".

Was muss ich aus dem Script rausnehmen bzw. ändern damit dieser Hinweis nicht mehr kommt?

Danke für eure Hilfe.

Hallo,

bei der Mobilfunkdatenbank kann man ja unten einen Aktivierungszeitraum eingeben.

Wenn man jetzt irgendein Feld gleich einem bereits erfasstem Aktivierungszeitraum eintragen möchte, erscheint ein Fehler "Duplikate sind nicht erlaubt".

Was muss ich aus dem Script rausnehmen bzw. ändern damit dieser Hinweis nicht mehr kommt?

Danke für eure Hilfe.

Also vielen Dank für eure vielen Lösungsvorschläge. Werd mich bei Zeiten dransetzen. Wäre soweit erledigt. Danke!

Gut, und wie aktiviert man Rollen über Script im Allgemeinen?

Danke erstmal!

Und wie wäre es möglich eine Ansicht zeitlich zu steuern?

Ist es möglich, entweder den kompletten Zugriff auf eine Datenbank währen nur einer bestimmten Zeit zu erlauben.

Oder kann man eine Ansicht nur während einer bestimmten Zeit "einblenden", wenn ja wie? Grund ist: ich möchte eine Innerbetriebliche Tauschbörse ausserhalb der Geschäftszeiten erstellen. Kennt jemand bereits solch eine Anwendung?

Danke im voraus.

Viele Grüße
Daniel