[Base][Macro] Apertura PDF e abilitazione pulsante

[charlie]

Un pulsante apre il PDF il cui percorso è indicato in una casella di testo.
Se la casella di testo è vuota il pulsante viene disabilitato.

Apri PDF.odb

(13.38 KiB) Scaricato 277 volte

Macro che apre il PDF (associata all'evento 'Approva l'azione' del pulsante:

Codice: Seleziona tutto

function openurlimm(oEv as object)'  apre l'allegato il cui link è in "txtLik"
   dim oForm,oTextBox
   oForm=oEv.source.model.parent
   oTextBox=oForm.getbyname("txtLink")
   if FileExists ( oTextBox.text) then
      oEv.source.model.targeturl=oTextBox.text
      openurlimm=true ' Do the programm when the file exists
      else 
      openurlimm=false ' The file does not exist and do nothing
   end if
  ' print  convertfromurl(oTextBox.text)
End function

Macro che abilita/disabilta il pulsante (associata all'evento 'Dopo la modifica del record' del MainForm):

Codice: Seleziona tutto

Sub abilitaPulsante ' abilita/disabilita "Pulsante 1" se presente/assente il link in "txtLik"
	Dim oDoc As Object
	Dim oDrawpage As Object
	Dim oForm As Object
	Dim sTextBox1 As String
	
	oDoc = thisComponent
	oDrawpage = oDoc.drawpage
	
	oForm=oDrawpage.Forms.getByIndex(0)
	oForm.GetByName("Pulsante 1").Enabled = TRUE
	
	sTextBox1=oForm.GetByName("txtLink").Text
	
	IF sTextBox1= "" THEN oForm.GetByName("Pulsante 1").Enabled = FALSE
End sub