UIdoc.feld = Fehler

Moin hab da nur mal kurz ne frage.....

also beim anleen eines abonnnementen, soll das querysave prüfen ob der schon existiert.....das macht er nun auch wie er soll nur leider kann ich nicht das sveoption feld auf 0 setzen da meckert er immer...NOT A MEMBER: SAVEOPTIONS :-?

hab ich da irgendwie nen denk fehler drin oder kann ich nicht einfach sagen uidoc.saveoptions(0) = 0 ?

hier mal der quelltext
________
'prüfung ob der Abonnent bereits in der DB ist

Dim session As New notessession
Dim db As notesdatabase
Dim doc As notesdocument
Dim view As notesview
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim id As String

Set db = session.currentdatabase
Set uidoc = workspace.CurrentDocument
ID = uidoc.FieldGetText( "MitgliedID")

Set view = db.getview("(viewLUAboAdressen)")
Set doc = view.getdocumentbykey(ID)


If Not doc Is Nothing Then
Msgbox "Es besteht bereits ein Abo mit dieser ID"

uidoc.SaveOptions(0) = "0"
Call uidoc.close
Exit Sub
End If
________

Hallo Diali,

hab ich gerade mal ausprobiert, selbe Fehlerbeschreibung, ich versteh den fehler irgendwie Saveoptions ist ein existierendes feld das ist doch ein objekt in der maske!!!??,

Karlchen
DANKE
das funktioniert und mit dialies erklärung dazu, DANKE auch an Diali,
versteh ich den fehler auch, da es ein frontend document ist muss ich erst das document als objekt deklarieren, damit ich es nutzen kann !

Danke
Gruss Gregor

also die fehlermeldung ist weg aber funktionieren tuts nicht,

also er erkennt ob schon ein dok mit dieser id existiert, nur speichert er es dennoch.....
:-?
irgend eine idee :-?

ja hatte zuerst

uidoc.documentSaveOptions ="0"

das hat nicht funktioniert, und dann habe ich deinen vorschlag benutzt

uidoc.fieldsettext("SaveOptions", "0")

funktioiert auch nicht, vl muss ich das woanders setzen bin momentan im querysave

saveoptions ist immer noch auf 1

Diali

kenn ich noch gar nicht die funktion, werd ich gleich mal versuchen danke für eure zeit

funktioniert auch nicht es ist als ob das total igniriert wird... bin schon am gucken ob hier irgendwo ne einstellung ist die das speichern "durchboxt"

ist mir unbegreiflich

so nun funktionierts, hab saveoptions standart auf 0 gesetzt, und wenn der abonnement noch nicht existiert wirds auf 1 gesetzt und GESPEICHERT da lag das problem

Danke für deine hilfe diali

Gruss Gregor

Dim session As New notessession
Dim db As notesdatabase
Dim doc As notesdocument
Dim view As notesview
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim id As String

Set db = session.currentdatabase
Set uidoc = workspace.CurrentDocument
ID = uidoc.FieldGetText( "MitgliedID")

Set view = db.getview("(viewLUAboAdressen)")
Set doc = view.getdocumentbykey(ID)


If Not doc Is Nothing Then
Msgbox "Es besteht bereits ein Abo mit dieser ID", MB_OK, MB_ICONINFORMATION
Continue = False
Call uidoc.close
Exit Sub
Else
Call uidoc.fieldsettext("SaveOptions","1")
End If

mann gibt nicht die id an, sondern drückt nen button der auf ne andere db zugreift und sucht den neuen abonnenten raus, es dürte von daher keine überschneidungen geben, da dann der name, die adresse und die id angezeigt werden und der user mit einem klick das markiert und ok betätigen muss, aber ich werde das mal überprüfen danke für den tip

Gruss Gregor

EDIT:

hatte vergessen zu sagen das ja durch das uidoc.close, das doc geschlossen wird :), man weiss ja nie bei den usern