set focus highlites whole textbox

[seeker]

I run the following code but want just the cursor to show at the extreme left
inside the text box instead of the whole textbox being hilited.

Dim intitem As Integer
intitem = DET_ITEMNBR1
DET_ITEMDESC1.SetFocus
DET_ITEMDESC1.Text = DLookup("[ite:desc]", "item", "[ite:number] = '" &
intitem & "'")
DET_PRICE1.SetFocus
DET_PRICE1.Text = DLookup("[iterice]", "item", "[ite:number] = '" &
intitem & "'")
DET_ITEMDESC1.SetFocus


Thanks in advance.

 

[Ken Snell]

Use the SelLength and SelStart properties.

Dim intitem As Integer
intitem = DET_ITEMNBR1
DET_ITEMDESC1.SetFocus
DET_ITEMDESC1.Text = DLookup("[ite:desc]", "item", "[ite:number] = '" &
intitem & "'")
DET_PRICE1.SetFocus
DET_PRICE1.Text = DLookup("[iterice]", "item", "[ite:number] = '" &
intitem & "'")
DET_ITEMDESC1.SetFocus
DET_ITEMDESC1.SelStart = 0
DET_ITEMDESC1.SelLength = 0

 

[seeker]

Thanks that did the trick.

Use the SelLength and SelStart properties.

Dim intitem As Integer
intitem = DET_ITEMNBR1
DET_ITEMDESC1.SetFocus
DET_ITEMDESC1.Text = DLookup("[ite:desc]", "item", "[ite:number] = '" &
intitem & "'")
DET_PRICE1.SetFocus
DET_PRICE1.Text = DLookup("[iterice]", "item", "[ite:number] = '" &
intitem & "'")
DET_ITEMDESC1.SetFocus
DET_ITEMDESC1.SelStart = 0
DET_ITEMDESC1.SelLength = 0

--
Ken Snell
http://www.accessmvp.com/KDSnell/

I run the following code but want just the cursor to show at the extreme
left
inside the text box instead of the whole textbox being hilited.

Dim intitem As Integer
intitem = DET_ITEMNBR1
DET_ITEMDESC1.SetFocus
DET_ITEMDESC1.Text = DLookup("[ite:desc]", "item", "[ite:number] = '" &
intitem & "'")
DET_PRICE1.SetFocus
DET_PRICE1.Text = DLookup("[iterice]", "item", "[ite:number] = '" &
intitem & "'")
DET_ITEMDESC1.SetFocus


Thanks in advance.