that works very nice, ..abc.. pulls up the pick list but when I select the item it does not put it in the vFieldName. abc.. works normally. need to recheck my spelling

Dx1  on element exit event    (Dx1 is the name of element)
____________

If @left (Dx1, 2) = ".." and @right (Dx1, 2) = ".." then

{
  vApplication = "data\diag.db"
  vTarget = "DiagCode"
  vDisplay = "Diag!Display1"
  -->vFieldName = "Dx1"
  picklist_choose ( )
   
}

if @Right (Dx1, 2) = ".." and @Left (Dx1, 2) <> ".." then 

{
  -->vFieldName = Dx1
  picklist_choose ( )
   
  Dx1 = @xUserselectR ("data\Diag.db", "Diag!Display", "DiagCode", vStart, vEnd)
}

=======================

Please note in the above part of the code which is marked by red arrow:

The code at the first red marker takes the name of the element as the value and use it as a indirect reference,  while the code marked by second red arrow refers to the value of the element. I thought not putting or putting quotes might make that difference.

case I messed up here is my global code

var vFieldName as String
var vStart as String
var vEnd as String


// Finds all values in vVals that contain vMatch. Returns matching 
// values as a semicolon separated list. 
Function FilterValueList(var vVals as String, vMatch as String) as String 
var vList as String 
var vItem as String 

vList = "" 
While @Len(vVals) > 0 
{ 
  vItem = Split(vVals, ";") 
  If @Instr(vItem, vMatch) > 0 
  { 
   If @Len(vList) > 0 
   { 
    vList = vList + ";" 
   } 
   vList = vList + vItem 
  } 
} 
return(vList) 
End Function


var vApplication as String
var vTarget as String
var vDisplay as string

//For PickList

Subroutine PickList_choose( )
var vVals as String 
var vFinalList as String 
var vSearch as String 

If @Right (vfieldName, 2) = ".." and @Left (vFieldName, 2) <> ".." then
{

  vStart = @left (vFieldName, @in (vFieldName, "..") - 1) + @chr (1)
  vEnd = @left (vFieldName,   @in (vFieldName, "..") - 1) + "zzzzzzz"

}

If @left (@(vFieldName), 2) = ".." and @Right (@(vFieldName), 2) = ".." then
{
  vSearch = @replace (@(vFieldName), "..", "") 
   vFinalList = "" 
   vVals = @XListValues(vApplication, vDisplay) 
   vFinalList = FilterValueList(vVals, vSearch) 
   @(vFieldName) = @UserSelect(vFinalList)
    
     If @in (@(vFieldName), "/") > 0 then
  @(vFieldName) = @Replace (@(vFieldName), "/", "//")
  //writeln (@(vFieldName))   
   
  @(vFieldName) = @xlookup (vApplication, @(vFieldName), "Display1", vTarget)

}

End Subroutine

Looking at your code, it seems like you are displaying a list of Customers after putting ..abc.. value in Company Name element and after selecting selecting a customer name, you want to place that in Customer Name element. Is that correct?

I also have this same thing on another form that looks up vendors. I plan on using this on parts lookups and inventory, I see endless opportunity&#8217;s. All is good
looks like I owe you an airplane ride! thats about the only thing im good at

hahaha, no nothing as interesting or glorious as a jet jockey more like a taxi with wings. Still the worst day flying is better than the best day working.
p.s. the code works very good

Quote:


As I understand you want to have list from Subform. Which form has the key value, Parent or subform?