Newsgroup: it.comp.appl.notes-domino
Titolo: ABILITARE MODIFICHE

Sto ancora tentando di impedire ai miei utenti di fare il doppio click 
sul documento per abilitare le modifiche, ma di obbligarli a cliccare 
su un'operzione. Non so se c'č qualche anima buona che ha tempo di 
provare........... 
Ho creato un db di prova con un modulo.
Nel modulo ho messo due campi
AZIONE (numerico calcolato:valore pred=azione)
NOME  (testo modificabile)
e un'operazione
MODIFICA
Sub Click(Source As Button)
	Dim session As New notessession
	Dim workspace As New NotesUIWorkspace
	Dim uidoc As NotesUIDocument
	Set uidoc=workspace.currentdocument
	Set doc=uidoc.document
	doc.azione=1
	Call doc.save(False, False)
	uidoc.EditMode = True
End Sub
e nel modulo questo codice
Sub Postopen(Source As Notesuidocument)
	Set doc =source.document
	doc.azione=0
	Call doc.save(False,False)
End Sub
Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
	Set doc=source.document
	If doc.azione(0) = 1 Then
		continue=1
	Else
		continue=0
	End If
End Sub
Cosa cavolo sbaglio??????????
grazie a tutti coloro che mi daranno una mano...so che stresso
--
absolute


Continue = TRUE
Continue = FALSE
?
--
http://www.depquest.net

 Continue = FALSE
E poi, exit sub!!
--
http://www.depquest.net

End if
ho provato, ma quando nella mia operazione scrivo call sub 
querymodechange(edtstr,) mi dice unexpected sub o qualcosa del genere 
che ne dici
cia e grazie
--
absolute

 cia e grazie
!?
Mai usato questo sistema... non saprei.
--
http://www.depquest.net

 
Vi do' la soluzione se qualcuno ne č interessato
(Globals) object, (Declarations) event
Dim allowEdit As Integer
'(Form) object, Postopen event
Sub Postopen(Source As Notesuidocument)
'Let document pass if new or not in EditMode
'Otherwise if existing document is in EditMode
' Set allowEdit so Querymodechange doesn't reprocess
' Turn EditMode off so document opens in Read mode
' Tell the user to use the action
If source.EditMode And Not source.IsNewDoc Then
allowEdit = True
source.EditMode = False
Messagebox _
"Use Edit mode action to edit document"
Else
allowEdit = False
End If
End Sub
'(Form) object, Querymodechange event
Sub Querymodechange(Source As Notesuidocument, Continue As Integer)
'Allow user to proceed, and turn off allowEdit if
' user clicked the action (allowEdit on)
' already processed by Postopen (allowEdit on)
' trying to get out of Edit mode
' (allowEdit off but EditMode on)
'Tell user to click action if changing existing document
' to Edit mode and not already processed by Postopen
' (allowEdit and EditMode off)
If allowEdit Or (source.EditMode And Not allowEdit) Then
allowEdit = False
Else
Messagebox _
"Use Edit mode action to edit document"
continue = False
End If
End Sub
'(Action) object, Click event
Sub Click(Source As Button)
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = workspace.CurrentDocument
'Turn on allowEdit so Querymodechange will let it pass
'Turn on EditMode
allowEdit = True
uidoc.EditMode = True
End Sub 
ciao a tutti
--
absolute


Il barbatrucco era dunque di usare un pulsante per mettere in editmode?
Carino.
Prova dalla vista, con documento selezionato, a fare ctrl+E e vedere se 
funge come pensi o se ti frega... 
--
http://www.depquest.net


Non mi frega caro!!!!!!!!!!!!!Tutto č calcolato!!!!!!!!!!!!!!!!!!!
Ti ho stupito???Beh, non č farina del mio sacco, l'ho trovato sul forum 
della lotus. 
--
absolute

 querymodechange(edtstr,) mi dice unexpected sub o qualcosa del genere 
non credo fosse inteso così, comunque prova questa:
nelle Globals Declaration della form dichiara una variabile tipo
Dim EnableEditMode as string
nell'evento QueyModeChange metti questo controllo
if not(EnableEditMode = "1" )then 
Continue = False
end if
nei pulsanti che devono attivare la modalità scrittura:
EnableEditMode = "1" 
....etc...
Uidoc.EditMode = True
non ho provato ma a occhio dovrebbe funzionare.
spero di esserti stato utile
ciao

 forum della lotus. 
No, stupito no. Era solo un test da vecchio volpone.. :-)
--
http://www.depquest.net

 
Peccato, mi stavo già esaltando!!!!!!!!
ciao ciao
--
absolute