MODIFIED SOURCE CODE FOR IMPTBLS.FRM

IMPTBLS.FRM contained 8 resource strings and 0 non-user interface strings.

Option Explicit
'>>>>>>>>>>>>>>>>>>>>>>>>
'ResMe Converted To A Property: Const FORMCAPTION = "Import Tables"
'ResMe Converted To A Property: Const Label1 = "Tables In:"
'ResMe Converted To A Property: Const BUTTON1 = "&Import"
'ResMe Converted To A Property: Const BUTTON2 = "&Close"
'>>>>>>>>>>>>>>>>>>>>>>>>


Private Sub cmdClose_Click()
  Unload Me
End Sub

Private Sub cmdImport_Click()
  Import (lstTables.Text)
End Sub

Private Sub lstTables_Click()
  cmdImport.Enabled = True
End Sub

Private Sub lstTables_DblClick()
  Call cmdImport_Click
End Sub

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
  If KeyCode = vbKeyF1 And Shift = 0 Then
    DisplayTopic 2016130
  End If
End Sub

Private Sub Form_Load()
    'ResMe autogenerated line of code to call the initialization routine that was automatically generated.
    Call frmImpTbls_Auto_Init

  Dim tdf As TableDef
  Dim i As Integer
  
  Me.Caption = FORMCAPTION
  lblLabel1.Caption = Label1
  cmdImport.Caption = BUTTON1
  cmdClose.Caption = BUTTON2
  
  lstTables.Clear
  For Each tdf In gImpDB.TableDefs
    If (tdf.Attributes And dbSystemObject) = 0 Then
      lstTables.AddItem tdf.Name
    End If
  Next

End Sub


'*********************************************************************************
'**          This Section Of Code Was Automatically Generated By ResMe          **
'**                                                                             **
'** String assignments to Constants have been converted to read-only properties **
'*********************************************************************************


'This was: Const FORMCAPTION = "Import Tables"
Property Get FORMCAPTION As String
    'WAS: FORMCAPTION = "Import Tables"
    FORMCAPTION = LoadResString(S287_Import_Tables)

End Property

'This was: Const Label1 = "Tables In:"
Property Get Label1 As String
    'WAS: Label1 = "Tables In:"
    Label1 = LoadResString(S529_Tables_In)

End Property

'This was: Const BUTTON1 = "&Import"
Property Get BUTTON1 As String
    'WAS: BUTTON1 = "&Import"
    BUTTON1 = LoadResString(S285_Import)

End Property

'This was: Const BUTTON2 = "&Close"
Property Get BUTTON2 As String
    'WAS: BUTTON2 = "&Close"
    BUTTON2 = LoadResString(S94_Close)

End Property


Private Sub frmImpTbls_Auto_Init()
'This routine initializes all User Interface control properties on frmImpTbls.
'This section of code was automatically generated by the ResMe String Extraction Utility.
    'WAS: Me.Caption = "Import Tables"
    Me.Caption = LoadResString(S287_Import_Tables)

    'WAS: cmdClose.Caption = "Close"
    cmdClose.Caption = LoadResString(S95_Close)

    'WAS: cmdImport.Caption = "Import"
    cmdImport.Caption = LoadResString(S286_Import)

    'WAS: lblLabel1.Caption = " Tables in "
    lblLabel1.Caption = LoadResString(S528_Tables_in)

End Sub