vrouwtjeskip3
Gebruiker
- Lid geworden
- 3 okt 2013
- Berichten
- 5
Beste,
Ik heb een voorraad systeem gemaakt in Visio gelinked aan Acces database. Nu wil ik dat mensen het bestand kunnen bekijken maar niet kunnen bewerken. De code om het bestand in volledig scherm te openen en de berichtbox met uitleg hoe het bestand te bekijken heb ik al. Nu wil ik nog:
Als men op "esc"drukt en het is volledig scherm moet het bestand zich volledig sluiten.
Als men een bepaalde letter combinatie typt in volledig scherm moet het bestand van volledig scherm af gaat en dat het bestand bewerkt kan worden (soort wachtwoord).
Dit heb ik al:
Private Sub Document_DocumentOpened(ByVal doc As IVDocument)
Visio.Application.DoCmd (Visio.VisUICmds.visCmdFullScreenMode)
MsgBox "Click ctrl+scroll to zoom"
End Sub
Jullie zouden mij er erg mee helpen, ik ben al dagen aan het zoeken en proberen....
Gr henri
Ik heb een voorraad systeem gemaakt in Visio gelinked aan Acces database. Nu wil ik dat mensen het bestand kunnen bekijken maar niet kunnen bewerken. De code om het bestand in volledig scherm te openen en de berichtbox met uitleg hoe het bestand te bekijken heb ik al. Nu wil ik nog:
Als men op "esc"drukt en het is volledig scherm moet het bestand zich volledig sluiten.
Als men een bepaalde letter combinatie typt in volledig scherm moet het bestand van volledig scherm af gaat en dat het bestand bewerkt kan worden (soort wachtwoord).
Dit heb ik al:
Private Sub Document_DocumentOpened(ByVal doc As IVDocument)
Visio.Application.DoCmd (Visio.VisUICmds.visCmdFullScreenMode)
MsgBox "Click ctrl+scroll to zoom"
End Sub
Jullie zouden mij er erg mee helpen, ik ben al dagen aan het zoeken en proberen....
Gr henri
