Database issue URL

Question

I haven't used AW so much actually I've only made 2 or 3 documents. But I am learning.
I was trying to make a database, everything going smoothly until I wanted to make a web link. I get to the menu of adding a link, but nothing is pressable, its all been blocked off.
Is it not possible to add any type of link to a database in AW? Whether it be a document link or a web link?
Urgent Help please.

Answer 1

Hello
I've found a hole in previous script.
Here's a corrected version just in case.
H
-- SCRIPT
  µ DB open link
  v0.2
  version for MACRO
  v0.2 - fixed to handle fss coercion failure properly.
  Preparation -
   (1) Copy this script into new window of Script Editor and
      save it as application (without showing startup screen) in, e.g. -
      AppleWorks 6:AppleWorks Essentials:Scripts:µƒ:
   (2) Restart AppleWorks 6.
  Usage (e.g.) -  
    Provided that
     (a) DB has the following fields:
      'link'  text
      'open'  checkbox (default value is initially UNchecked)
      'µ'  calculation
     (b) and this script is saved in:
      AppleWorks 6:AppleWorks Essentials:Scripts:µƒ:µ DB open link
     (c) and 'µ' field has the following formula:
      =MACRO(":µƒ:µ DB open link", 2, "main", 'open', 'link')
    Then you check the 'open' check box, and the script will try to open the link given in 'link' field.
    ('µ' field will show result code such as "1" = opened, "0" = done nothing, "-1" = error)
  Tips -
    If you're lucky enough, you may be able to double click the 'open' check box
     so that it will open the link and yet let the check box revert to unchecked.
property astid : a reference to AppleScript's text item delimiters
property Errs1 : "File not found ("
-- for test
set x to true
set u to "http://www.wwf.org/"
set u to ":test file"
main(x, u)
-- end of test
on main(x, u)
  boolean x: check box value. true for checked, false for not checked.
  string u: url string or file path string
    url = "http://..." or "file:///..."
    file path = HFS/HFS+ (colon delimited) path (full path or partial path) [*1]
  Note
  *1. If script fails to locate specified path (=u), it will interpret (u) as partial path
   and try to locate the file at ([parent path of front DB document] & u)
   Specially, u = ":partial_path" will be resolved as "partial_path" under grand parent of DB file,
    "::partial_path" as "partial_path" under grand-grand parent of DB file, etc.
try
if x is false then return "0"
if u starts with "http://" or u starts with "file:///" then
openUrl(u)
else
openFile(u)
end if
return "1"
on error errs
try
display dialog errs with icon 2
on error number -128
end try
return "-1"
end try
end main
on openUrl(u)
  string u: url string
open location u -- open url with default browser
end openUrl
on openFile(u)
  string u: file path string
-- resolve u as alias (= ua)
try
if u starts with ":" then error number 8004 -- force resolve it as partial path
set ua to u as alias
on error -- u is not resolved as is
-- get DB's parent path (= fdp)
tell application "AppleWorks 6" to set fa to file of front document
try
set astid's contents to {":"}
set fdp to "" & ((fa as text)'s text items 1 thru -2) & ":"
set astid's contents to {""}
on error errs number errn
set astid's contents to {""}
error errs number errn
end try
-- get file's fss and alias (fss coercion will handle the partial path with leading colon(s))
try
-- fss coercion should fail if the directory(ies) in path does not exist.
set u1fss to (file (fdp & u) as file specification)
on error number errn
error (Errs1 & errn & ") :" & return & return & u)
end try
try
-- alias coercion should fail if the file does not exist.
set ua to u1fss as alias
on error number errn
error (Errs1 & errn & ") :" & return & return & u & return & return & (u1fss as text))
end try
end try
-- open ua
ignoring application responses -- for safety (AW6 may hang without this)
try
tell application "Finder" to open ua -- open file with its default application
on error --
end try
end ignoring
end openFile
-- END OF SCRIPT
  Mac OS 9.1.x