Öffnen von Link in Formularfeld mit Schaltfläche

[scientific]

Hi!

Ich habe in einem Formularfeld eine Url, in einem anderen eine Mailadresse.
Jetzt möchte ich neben diese Felder jeweils einen Button anbringen, der in einem Fall die Url aus dem Formularfeld im Browser öffnet, im anderen Fall ein Mail (am besten eine Vorlage mit dem Inhalt bestimmter Felder... aber Vorlage ist nicht so wichtig!) in der Entwurfsansicht mit dem Standard-Mail-Client erstellt.

Wie mache ich das? Wird wahrscheinlich über ein Makro gehen...

lg scientific

[F3K Total]

Moin,
fangen wir mit der Website an:

• Angenommen dein Formular heißt im Formularnavigator MainForm
• Du erstellst auf diesem Formular einen Button z.B. mit dem Namen cmdopenwww
• Auf dem Reiter Allgemein des Button stellst du die Aktion Dokument/Webseite öffnen ein
• Dann hängst Du das folgende Makro an zwei Ereignisse
  1. An das Ereignis Modifiziert des Textfeldes, in dem der Link zur Website steht
  2. An das Ereignis nach dem Datensatzwechsel des zugrundeliedgenden Formulares
• Du passt die Nummer der Tabellenspalte in der der Link steht, hier im Beispiel die sechste Spalte, auf deine Tabelle an.

  Code: Alles auswählen

  sub S_insert_target_Url
      oform =  thiscomponent.drawpage.forms.MainForm
      surl = oform.getstring(6)'Link steht in 6. Spalte der Tabelle
      obutton = oform.cmdopenwww 'Button mit Einstellung: Aktion "Dokument/Webseite öffnen"
      obutton.TargetURL = surl
  end sub

• Schwupps, fertig, Button drücken, Website öffnet sich

mit der Mail geht es ganz ähnlich:

• Code: Alles auswählen

  sub S_insert_Email_address
      oform =  thiscomponent.drawpage.forms.MainForm
      smail = oform.getstring(7)'Email-Adresse steht in 7. Spalte der Tabelle
      obutton = oform.cmdopenmail 'Button mit Einstellung: Aktion "Dokument/Webseite öffnen"
      obutton.TargetURL = "mailto:" & smail
  end sub

Viel Erfolg Gruß R

[scientific]

Danke dir. So funktioniert es.

scientific