| Jarda | Specifické otevření dialogového okna |
| Mám formulář, v něm vložený pohled. Je zablokováno otevření formuláře při poklepání na dokument vloženého pohledu, uživatel má všechny potřebné informace v řádku pohledu. U některých dokumentů je však občas v jednom poli dlouhý text (až 1400 znaků). Potřeboval bych poradit, zda je možné poklepáním na dokument otevřít dialogové okno, kde bych uživateli zobrazil celý text z tohoto pole.
Děkuji. |
| Martin Humpolec | Re: Specifické otevření dialogového okna |
10.05.2010
18:31:03
ID: 3169.1
 
| Tak jít by to mělo, když se povedlo to zablokovat, tak proč k tomu ještě nevyhodit DialogBox. |
| Jarda | Re: Specifické otevření dialogového okna |
11.05.2010
06:33:22
ID: 3169.2
| Díky, ale obávám se, že vzhledem k úrovni mým znalostí mi taková odpověď nestačí. Pro upřesnění - k dokumentům ve vloženém pohledu formulář existuje, ale v události QueryOpen je proměnná Continue nastavena na False, tudíž se nikdy neotevře. Nechci při poklepání otevřít dokument ve formuláři, ale jen poskytnout informaci o části dat v dialogovém okně. |
| Jarda | Re: Specifické otevření dialogového okna |
11.05.2010
07:18:34
ID: 3169.3
| Povedlo se. Ne nadarmo se říká, když víš, že to jde, máš tři čtvrtiny práce hotové. |
| VZ | Jednoduchý příklad |
11.05.2010
08:08:06
ID: 3169.4
| Sub Queryopendocument(Source As Notesuiview, Continue As Variant)
Dim ws As New NotesUIWorkspace
Dim doc As NotesDocument
If ws.CurrentDocument Is Nothing Then
Continue = False
Exit Sub
Elseif Not ws.CurrentDocument.EditMode Then
Continue = False
Exit Sub
End If
Set doc = Source.Documents.GetFirstDocument
flag% = ws.DialogBox("SWMaintDialog", True, True, , , , , "Edit SW Upgrade/Maintenance", doc, True)
If flag% Then
Call doc.Save(True, False)
Call ws.ViewRefresh
End If
Continue = False
End Sub |
