you need to enable the active x control in the form code.  Even though the
control is set to inable it is somehow disabled

Michael

-----Original Message-----
From: Mauricio Flores [mailto:[EMAIL PROTECTED]]
Sent: Wednesday, August 25, 1999 3:35 PM
To: [EMAIL PROTECTED]
Subject: Working with VB 6.0


Hi

I am working with SF 3.1 and VB 6.0.

Please, somebody can help me...!


I try use the Satellite Forms Activex control to work with Visual Basic 6.0

I don�t know how work realty this solution.

I prepared the program in VB, (declatarions, put de SF control on the FORM
as a component, etc.)

'Declarations *****************************************************
'option compare database
Option Explicit

Public status_hotsyncstart As Integer
Public status_hotsynccommandcomplete As Integer
Public status_hotsyncend As Integer

Public tablefilename_ctvcustomer As String
Public hotsync_progress As String
Public cmdcount As Integer


' Form Load  **********************************************************
Private Sub Form_Load()
    status_hotsyncstart = 1 'As Integer
    status_hotsynccommandcomplete = 3 ' As Integer
    status_hotsyncend = 2 'As Integer



    tablefilename_ctvcustomer = "c:\customers\ctvcusto.dbf"
    hotsync_progress = "Begin"
    satforms.Enabled = True


End Sub


' Special Routine to use HotSync as Actuvex control
********************************************

Private Sub satforms_HotSyncStatus(ByVal StatusCode As Long, ByVal Param As
Long)

      If StatusCode = status_hotsyncend Then
         hotsync_progress = "end"
         Exit Sub
      End If
      If StatusCode = status_hotsyncstart Then
         satforms.GetTableFromPalmPilot ("c:\customer\lolo.dbf")
         cmdcount = 1
         hotsync_progress = "A>B"
      End If
      StatusCode = status_hotsynccommandcomplete

End Sub

'***************************************************************************
**************************

My problem is:

I must be call this routine with a button?

I must be press Sync Button in pilot base station?

How start the sync procedure with this Way?

I need retrive the data file from the Pilot........!

Mauricio





Reply via email to