Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
tree: 9a2e496e8e
Fetching contributors…

Cannot retrieve contributors at this time

86 lines (74 sloc) 2.279 kb
VERSION 5.00
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} describeBox
Caption = "Sforce Table Query Wizard - Step 2 of 3"
ClientHeight = 4740
ClientLeft = 45
ClientTop = 300
ClientWidth = 4185
OleObjectBlob = "describeBox.frx":0000
StartUpPosition = 1 'CenterOwner
End
Attribute VB_Name = "describeBox"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'
'
' This is step 2A of the Wizard
' Wizard type functionality for quick start with new uesrs
' thanks go to Adam G. for the kick start on this module
'
Private Sub describe_Click()
' grab the desired location
ActiveSheet.Range(step1.location.Text).Select ' fails on a second worksheet
tVal = describeBox.describeResultBox.Text
If tVal = "" Then
MsgBox "please select an Entity from the Pick-List, or Cancel"
GoTo done
End If
Selection.Cells(1, 1).value = tVal
describeBox.Hide
' ask if they want to overwrite existing column names
If (Selection.Cells(2, 1).value <> "") Then
Dim vRet: vRet = MsgBox("Overwrite existing Column names ?", _
vbApplicationModal + vbYesNo + vbExclamation + vbDefaultButton1, _
"-- Overwrite Existing? --")
If Not (vRet = vbYes) Then GoTo almostdone
End If
s_force.sfDescribe_wiz ' loads the step2B list
Call Step2b.select_all_fields
almostdone:
'queryWiz.Show 'comment out CHM 04/2005
Step2b.Show
done:
End Sub
Private Sub describeResultBox_DblClick(ByVal cancel As MSForms.ReturnBoolean)
describe_Click ' short cut for power users
End Sub
'Private Sub describeSObject_Click()
' describe_Click
'End Sub
Private Sub cancel_Click()
describeBox.Hide
End Sub
Private Sub describeSObject_Click()
describe_Click
End Sub
Private Sub goback_Click()
describeBox.Hide
step1.Show
End Sub
Private Sub UserForm_Activate()
' if the current cell is in our list, pop that into the select box
Dim cur$
cur = Selection.Cells(1, 1).value
For i = 0 To describeBox.describeResultBox.ListCount - 1
If (describeBox.describeResultBox.List(i, 0) = cur) Then
'Debug.Print "here " & cur
describeBox.describeResultBox.ListIndex = i
GoTo done
End If
Next i
done:
End Sub
Jump to Line
Something went wrong with that request. Please try again.