Code

var vList as String
var n as Int
var vName as String
var vCount as Int
var vReturnValue as String
var vString as String
var vStr as String



If @AskUser("Have you placed the BACK UP OF " + @Application + ".db" + " into 'c:\backup' folder?", "", "") then

	{


			Vlist = @stringArrayElementList( )
			vCount = @CountStringArray (vList)
			//WriteLn (VList)

			n = 1

			While n <= vCount
				{
					vStr = @AccessStringArray (vList, n)

					SetThisElement ( vStr)
					If @ElementBoundToType (ThisElement) >=3 and @ElementBoundToType (ThisElement) <=6 then
						{
							If vString = "" then
								{
									vString = vStr

								}
								Else
								{
									vString = vString + ";" + vStr
								}

						}


					n = n + 1

				}


			UnsetThisElement ( )


			//WriteLN (vString)


			vReturnValue  = @XLookupSourceList("C:\backup\" + @Application + ".db", RecNumber, @Layout + "!RecNumber", vString)
			//WriteLN (vReturnValue)


			vCount = @CountStringArray (vString)


			n =1
			While n <= vCount
				{
					vName = @AccessStringArray (vString, n)

					SetThisElement ( vName)
					ThisElement = @AccessStringArray (vReturnValue, n)

					n = n + 1


				}
			UnsetThisElement ( )

			@MSGBOX ("Hit F10 to save to save the record if everything is as expected", "If not, just hit escape and troubleshoot", "" )
	}
	Else
	{

		@MSGBox ("Please put backup of " + @Application + ".db " + "into c:\backup folder first", "", "" )

	}