DropList issue

Hi Kyle and welcome to the site, glad you are enjoying it and learning stuff.

You will need to make a few changes to your script.  Right now you have your arrays that hold the drop down information named the same as your variables that hold your selection.  So I would change them after the Option Explicit:

Dim FYQTR as String to Dim sFYQTR as string

Dim VER as String to Dim sVer as String

Just to keep the variables separate.

I would also move your arrays from the functions to a global array, the reason being is that you need them in both the QTRTesting and the DisplayIt functions.

So under Option Explicit add:

Dim FYQuarters(4) As String
Dim VER(2) As String

And remove them from the functions.

The next change is obtaining the contents of the dialog as you are trying to get the info from the ListBox1$ and ListBox2$ but you are not using those arrays as you have created your own to hold the information.  So change the following

VER = ListBox1$(VER()) to sVER = VER(dlg.DropListBox1) and

FYQTR = ListBox2$(FYQuarters()) to sFYQTR = FYQuarters(dlg.DropListBox2)

I think with those changes that will get the script working.

Let me know how it goes.

Brian

Hi Kyle, any chance you can send this to my email address as it will be easier to check out.  You can email it to brian.element@ideascripting.com

Thanks

Brian

Hi Kyle, here is an example of a script with one drop down.  The script will see if you have a file already open, if so it will populate the drop-down with the fields from that file.  You can also select another file.

Let me know if you have any questions or need some clarrification on what I was doing.  I have also attached the file.

Thanks

Brian

Dim listbox1$() AS STRING

Begin Dialog NewDialog 50,49,270,150,"Drop Down Demo", .DisplayIt
  Text 9,6,15,14, "File:", .Text1
  Text 34,5,179,15, "Text", .Text2
  PushButton 225,5,10,10, "...", .PushButton1
  GroupBox 30,1,188,23, .GroupBox1
  OKButton 20,67,40,14, "OK", .OKButton1
  CancelButton 77,67,40,14, "Cancel", .CancelButton1
  DropListBox 13,32,202,10, listbox1$(), .DropListBox1
End Dialog
Option Explicit
Dim sFilename As String 'to hold the filename
Dim sFields() As String 'to hold the field names
Dim working_directory  As String
Dim bExitScript As Boolean 'flag in case user hits cancel, the script will be exited

Sub Main
	working_directory = Client.WorkingDirectory()
	Call menu()

End Sub

Function menu()
	Dim button As Integer
	Dim db As database
	Dim dlg As NewDialog
	On Error Resume Next
	Set db = Client.CurrentDatabase()
	If err.number = 0 Then
		sFilename = db.name
	Else
		sFilename = ""
	End If
	
	Set db = Nothing
	button = Dialog(dlg)
End Function

Function displayIt(ControlID$, Action%, SuppValue%)
	Dim bExitFun As Boolean

	Select Case Action%
		Case 1
			If sFilename <> "" Then 'if the file is open then get the fields
				Call getFields() 'get the fields
				DlgListBoxArray "DropListBox1", sFields() 'add the fields to the drop down
			End If
		Case 2
		
			Select Case ControlId$
				Case "PushButton1"
					sFilename = getFile()
					If sFilename <> "" Then 'if the file is open then get the fields
						Call getFields() 'get the fields
						DlgListBoxArray "DropListBox1", sFields() 'add the fields to the drop down
					End If
					
				Case "OKButton1"
					bExitFun = True
				Case "CancelButton1"
					bExitFun = True
			End Select
	End Select
	
	If sFilename = "" Then
		DlgText "Text2", "Please select a file"
	Else
		DlgText "Text2", getFileName(sFilename, 0)
	End If
	
	If bExitFun Then
		displayIt = 0
	Else 
		displayIt = 1
	End If

End Function

'gets the fields from the selected database
Function getFields()
	Dim db As database
	Dim table As table
	Dim field As field
	Dim i As Integer
	Dim count As Integer
	
	Set db = Client.OpenDatabase(sFilename)
		Set table = db.TableDef
			count = table.Count
			ReDim sFields(count)
			For i = 1 To count
				Set field = table.GetFieldAt(i)
					sFields(i) = field.name
				Set field = Nothing
			Next i
		Set table = Nothing
	Set db = Nothing
	Call sortArray(sFields())
End Function

'****************************************************************************************************
'	Name:		sortArray
'	Description:	Routine to sort an array
'	Last Update:	
'	Accepts:		A one dimensional array
'	Returns:		Same array sorted 
'****************************************************************************************************
Private Function sortArray(MyArray() As String)
	Dim lLoop, lLoop2 As Integer
	Dim str1, str2 As String

	For lLoop = 1 To UBound(MyArray)
	
		For lLoop2 = lLoop To UBound(MyArray)
		
			If UCase(MyArray(lLoop2)) < UCase(MyArray(lLoop)) Then
			
				str1 = MyArray(lLoop)
				str2 = MyArray(lLoop2)
				MyArray(lLoop) = str2
				MyArray(lLoop2) = str1
			
			End If
		
		Next lLoop2
	
	Next lLoop
	MyArray(0) = "Select one"
End Function


Function getFileName(temp_filename As String, temp_type As Boolean) '1 if get the name with any folder info, 0 if only the name
	Dim temp_length As Integer
	Dim temp_len_wd As Integer
	Dim temp_difference As Integer
	Dim temp_char As String
	Dim tempfilename As String
	
	If temp_type Then
		temp_len_wd  = Len(working_directory )  + 1'get the lenght of the working directory
		temp_length = Len(temp_filename) 'get the lenght of the file along with the working directory
		temp_difference = temp_length - temp_len_wd  + 1'get the lenght of just the filename
		getFileName = Mid(temp_filename, temp_len_wd, temp_difference)	
	Else
		temp_length  = Len(temp_filename )
		Do 
			temp_char = Mid(temp_filename, temp_length , 1)
			temp_length = temp_length  - 1 
			If temp_char <> "\" Then
				tempfilename = temp_char & tempfilename
			End If
		Loop Until temp_char = "\" Or temp_length = 0
		getFileName = tempfilename
	End If
End Function

Function getFile()
               Dim filebar As Object
               Set filebar =CreateObject ("ideaex.FileExplorer")
               ' Display the File Explorer
               filebar.DisplayDialog
               ' Set Variable to store Select File Name
               getFile = filebar.SelectedFile
End Function