>>lname = Thisform.TxtLName.Value
>>fname = Thisform.Text2.Value
>>SELECT officer
>>SET ORDER TO FULLNAME && PADR(UPPER(LASTNAME),25)+PADR(UPPER(FIRSTNAME),25)
>>SEEK padr(Upper(lname),25) + padr(Upper(fname),25)
>>IF FOUND()
>> Select Lastname, Firstname, DOB, empcnty From Officer ;
>> WHERE padr(Upper(LASTNAME),25)+ padr(Upper(FIRSTNAME),25) = padr(Upper(lname),25) + padr(Upper(fname),25) ;
>> INTO Cursor Countit nofilter &&This returns 2 rows
>> If Reccount() = 1
>> ** YOU WILL NORMALY FIND 1, AS I DONT SUPPOSE THERE ARE MULTIPLE PERSONS WITH SAME FNAME+LNAME IN YOUR OFFICER.DBF
>> Thisform.editmode = "Edit"
>> Thisform.fillin() &&PLEASE SHOW THE CODE FOR THIS METHOD
>> ELSE
>> ** THIS WILL ONLY GET ACTIVATED WHEN THERE ARE >1 RECCORDS IN CURSOR Countit, VERRY UNLIKELY IN NORMAL USE
>> Thisform.lblSelectPerson.Visible = .T.
>> Thisform.cboSelectPerson.RowSource = '' && added per previous suggestion
>> With Thisform.cboSelectPerson
>> .RowSourceType = 6
>> .RowSource = "Countit.lastname, firstname, DOB, empcnty" && YOU ARE MIXING 2 DATASOURCES HERE: CURSOR Countit AND TABLE officer
>> .ColumnCount = 4
>> .ColumnWidths = '150,150,75,150'
>> .Visible = .T.
>> .ListIndex = 1
>> Endwith
>> Endif
>>ELSE
>>** THERE IS NO CODE FOR NOT FOUND
>>Endif
>>
>>And I dont think you should put this code in the lostfocus, if the field involved is bound to the table officer.
>>
>>Regards,
>>Koen
>
>Fields are not bound

Dorris,

This is remarkable, I made at least 6 observations and you manage to reply with 4 words to the least important of all.
If you dont want to fnd the answer to your problem my advise is to stay put and dont reply.

Regards,
Koen