RE: macros, macros

["Ghosh, Rani - HPL" <Rani.Ghosh@xxxxxxxxxx>]

Harvey:
Thank you very much for this help. I really appreciate it. I will try it
out.

Rani

-----Original Message-----
From: Harvey Hahn [mailto:hhahn@xxxxxxxxxx]
Sent: Friday, January 23, 2004 6:10 PM
To: innopac@xxxxxxxxxx
Subject: RE: macros, macros


At 12:00PM on 01/23/04, Rani.Ghosh@xxxxxxxxxx wrote:
> Harvey: We are trying to create a macro for a 949 field in OCLC
> Connexion Client for our local processing information. We already have 
> one in OCLC Passport. Could you please help me in showing how to
> proceed in creating this macro in Connexion Client? Thanks.

Here are my Connexion client versions of two Passport macros I posted back
in 1997 that add an Innovative 949 tag.  The first is very simple and
straightforward, but the user has to manually change the z's to the correct
data values; the second is "fancier" and permits the user to enter the
desired data into a dialog box.  The actual data you want in your 949 tag
may be different, but this should give you the idea.  As usual, watch out
for possible line wraparounds in email.

====================================

'MacroName:cnxIII949-1
'MacroDescription:
'by Harvey E. Hahn -- 23 Jan 2004; Connexion adaptation of "MoveCursor1"
Passport macro

Option Explicit

Sub Main
   Dim txt As String
   Dim success As Integer
   Dim CS As Object
   Set CS = CreateObject("Connex.Client")
   '
   txt = "949  *recs=b;ct=  -  -  ;ins=my;ov=.ozzzzzzz;bn=uzz;"
   success = CS.AddField(1,txt)
End Sub

====================================

'MacroName:cnxIII949-2
'MacroDescription:
'by Harvey E. Hahn -- 23 Jan 2004; Connexion adaptation of "III949" Passport
macro

Option Explicit

Sub Main
   Dim txt1 As String
   Dim txt2 As String
   Dim txt3 As String
   Dim txt As String
   Dim success As Integer
   Dim CS As Object
   Set CS = CreateObject("Connex.Client")
   '
   On Error Resume Next
   '
   Begin Dialog UserDialog 140, 60, "Item Data"
      ButtonGroup .ButtonGroup1
      Text  8, 12, 69, 13, "ov=.o", .Text1
      TextBox  27, 10, 38, 13, .TextBox1
      Text  10, 32, 69, 13, "bn=u", .Text2
      TextBox  27, 30, 22, 13, .TextBox2
      OKButton  80, 29, 42, 15
      CancelButton  80, 9, 42, 15
   End Dialog
   Dim mydialogbox As UserDialog
   Dialog mydialogbox
   '
   If Err = 102 Then  ' "Cancel" button was clicked
      Exit Sub
   ElseIf Err = 0 Then
      txt1 = "949  *recs=b;ct=  -  -  ;ins=my;ov=.o"
      txt2 = ";bn=u"
      txt3 = ";"
      '
      txt = txt1 & mydialogbox.TextBox1 & txt2
      txt = txt & mydialogbox.TextBox2 & txt3
      '
      success = CS.AddField(1,txt)
   Else
      MsgBox "OML error " & Err & " occurred in line " & Erl
   End If
End Sub

====================================

I hope these help you--enjoy!

Harvey


--
===========================================
Harvey E. Hahn, Manager, Technical Services Department
Arlington Heights (Illinois) Memorial Library
Desk: 847/506-2644 -- FAX: 847/506-2650 -- E mailto:hhahn@xxxxxxxxxx
Personal web pages: http://users.anet.com/~packrat



--
This message was distributed through the Innovative Users Group INNOPAC list
Public replies:  INNOPAC@xxxxxxxxxx
Update your subscription options:
http://innopacusers.org/mailman/listinfo/innopac