Re: Send Message to filemaker 5.5 from windows form application
- From: amonizm@xxxxxxxxx
- Date: Fri, 02 Nov 2007 06:46:37 -0700
Sorry my English
Perhaps this information not interest for this debate.
But here it is an example of a linking between an application and
access database.
It will be possible to make the same with filemaker?
With some alterations I can open the Filemaker DB but can not obtain
record.
I appreciate any help.
This script will hyperlink from a feature in ArcMap Esri to a filtered
form in Microsoft Access.
Script created by Steve Carson and it was modified by Kristina
Callahan.
'The following modifications were made:
' (1) the original script required that the Access form be open. I
added code
' that will launch the database and form from a hard-coded
location.
' (2) the original script passed a number variable from ArcMap to
Access. I
' modified the SQL statement to accomodate strings which required
using Chr(34)
' to represent ASCII character for double quotes. SQL requires
strings
' to be in quotation marks.
' (3) comments were added to (hopefully) make using the script a
little easier.
'Replace "E:\bird.mdb" with the location and name of the database you
want to use
'Replace "e:\" with the drive letter so it is the same drive as
'Replace "frmLocation" with the name of the form you want to filter
'Modify ("[LocationID]=" & Chr(34) & thestring & Chr(34)) - replace
[LocationID] with
' with the name of the field you want to filter on. Note that you
must use
' Chr(34) to represent double quotes if you are passing a string.
You do not
' need it if you are passing a number.
Declare Function ShellExecute Lib "shell32.dll" Alias _
"ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation _
As String, ByVal lpFile As String, ByVal lpParameters _
As String, ByVal lpDirectory As String, ByVal nShowCmd _
As Long) As Long
Declare Function apiFindWindow Lib "User32" Alias "FindWindowA" _
(ByVal lpclassname As Any, ByVal lpCaption As Any) As Long
Global Const SW_SHOWNORMAL = 1
Sub Hyperlink(pLink, pLayer)
On Error GoTo eh:
Dim pHyperlink As IHyperlink
Set pHyperlink = pLink
Dim pFLayer As IFeatureLayer
Set pFLayer = pLayer
Dim thestring As String
thestring = pHyperlink.Link
Dim hwnd
Dim StartDoc
hwnd = apiFindWindow("OPUSAPP", "0")
'opens Microsoft Access database
StartDoc = ShellExecute(hwnd, "open", "E:\bird.mdb", "", "e:\",
SW_SHOWNORMAL)
Dim Accapp As Access.Application
Set Accapp = GetObject("E:\bird.mdb")
Accapp.DoCmd.OpenForm "frmLocation", acNormal, , ("[LocationID]="
& Chr(34) & thestring & Chr(34))
Exit Sub
eh:
MsgBox "Something isn't working!"
End Sub
.
- Prev by Date: fm server 9 install won't connect to iis
- Next by Date: Re: Loops in Found Sets
- Previous by thread: fm server 9 install won't connect to iis
- Next by thread: FM 8.03 Windows get(documentsPath), Send Mail Attach problem
- Index(es):
Relevant Pages
|
