To jsme si zase celkem neporozuměli. Myslel jsem nový form - třeba jen s pěti tlačítky který není navázaný na databázi - ale tlačítka z něj ano. Takže po výběru se deaktivuje a spustí vybraný form.
Podobně přidané zaškrtávátka, nebo roletky na každém formu. Na formu "A" může být "přejít" - volba na B,C,D,E. - u formu "B" bude možnost jen A,C,D,E.... Aktivací se zavře stávající a otevře vybraný.
U toho iterování jsem myslel cca tohle :
Sub PathRun
Dim iVar as integer
Dim sVar1, sVar2, sVar3 as string
For i = 1 To 5
Select Case i
Case 1
iVar = MsgBox("Pokud chcete plán A stiskněte ANO",4,"Výběr A")
IF iVar = 6 Then
sVar1 = "FiltrForm"
sVar2 = "SubForm"
sVar3 = "Path"
GoTo Endes2
Else
GoTo Endes
End If
Case 2
iVar = MsgBox("Pokud chcete plán B stiskněte ANO",4,"Výběr B")
IF iVar = 6 Then
sVar1 = "FiltrForm2"
sVar2 = "SubForm2"
sVar3 = "Path2"
GoTo Endes2
Else
GoTo Endes
End If
Case 3
iVar = MsgBox("Pokud chcete plán C stiskněte ANO",4,"Výběr C")
IF iVar = 6 Then
sVar1 = "FiltrForm3"
sVar2 = "SubForm3"
sVar3 = "Path3"
GoTo Endes2
Else
GoTo Endes
End If
Case 4
' Podobně
Case 5
'podobně
End Select
Endes:
Next i
Endes2:
dim oForm1, oForm2 as object
dim sPathRun as string
oForm1=ThisComponent.Drawpage.Forms.getByName(sVar1)
oForm2=oForm1.getByName(sVar2)
sPathRun=oForm2.getByName(sVar3).text 'Načte hodnotu odkazu z pole databáze'
oForm2.getByName("Button_odkaz").targeturl = sPathRun 'uloží tuto hodnotu do tlačítka - odkaz pro otevření URL'
End Sub
Píšu to z hlavy tak to otestujte - možná to vyhodí nějakou chybu. Ale měl byste vidět ten postup nabídek. Dá se to ještě vylepšit ale tohle je základ. Když si s tím neporadíte napište proměnné pro Select_Case
Editoval neutr (10. 2. 2017 13:05:29)
Moje e-mailová adresa
Pokud je Váš problém vyřešen, označte prosím svůj příspěvek za "VYŘEŠENÝ"
Zlepšíte orientaci při vyhledávání řešení JAK OZNAČIT TÉMA ZA VYŘEŠENÉ
