i have a table

[24sharon]

customerID (int)
folderName (text)

i want to open the folder on_click.

i know how to open a file (by fso), but to open a folder i didn't find.

thank alot
s.

 

[ghudson]

This will open a new session of Windows Explorer to the C:Windows\Temp\ directory...

Call Shell("C:\Windows\Explorer.exe C:\Windows\Temp", vbMaximizedFocus)

I suggest that you allow the user to browse a directory of their choice from within your application. Try the code @ API: BrowseFolder Dialog

HTH

 

[24sharon]

great

it's work wonderfull

thanks

and I have another question

i do an advance serch (by form)
and I want to color the word that I serch.

for example,
I search the word "go"

when I saw the result I want to color the text "go" to red
"-go-od ...", "-go-t"
in asp I did like it:

redsearch = Replace(firstsrring, "go", "<font color red>go</font>")

how can I do this in access form.

thanks again

 

[WayneRyan]

24sharon,

You can't do that with standard Access controls. You would have to go to
a third-party add-on.

About the best that you can do in Access is:

Use the InStr function to find the search string,
Then use the .SelStart and .SelLength to highlight the search string.

This is in no way a replacement for what you need, but it could be a short
term work-around.

Wayne

 

[24sharon]

>>>

Wayne

can you give me little example: i try do this with no success.

Private Sub myclick_Click()

Dim SearchString, SearchChar
SearchString = "XXpXXpXXPXXPabcp padd"   ' String to search in.
SearchChar = "PX"    ' Search for "PX".
For i = 1 To Len(SearchString)
 MsgBox InStr(Mid(SearchString, i, Len(SearchChar)), SearchChar)
 ' how did I highlight the search string
 
Next
End Sub

Good afternoon
From "here"

 

[WayneRyan]

Sharon,

Example:

Control To Search = txtMyControl
Control With Search String = txtSearchString

Dim ptr As Long
ptr = Instr(1, Me.txtMyControl, Me.txtSearchString)
If ptr > 0 Then
   Me.txtMyControl.SelStart = ptr
   Me.txtMyControl.SelLength = Len(Me.txtSearchString)
Else
   Me.txtMyControl.SelStart  = 0
   Me.txtMyControl.SelLength = 0
End If

Wayne

 

[24sharon]

sorry ---

its give me error

the picture is attach

 

[WayneRyan]

Sharon,

What's the error?

If ptr > 0 (which it is), then the names of the controls in the
InStr function are valid.

What does the error message say?

Can you post a sample db?

Wayne

 

[24sharon]

thanks

WayneRyan its work good.

I have to change 2 things
1.
ptr = Instr(1, Me.txtMyControl, Me.txtSearchString)
change to
ptr = Instr(1, Me.txtMyControl, Me.txtSearchString)-1

2. and to setfoucus

but its good just if you serch a string that in just once
for example if you search "abc" in "ardfabc fretdabc" its highlight just one.
and its not good for table.

but its very nice advice that its the first time I saw.

there is another idea that can do this.

thank you so much
s.

 

[WayneRyan]

Sharon,

More limitations.

You can't "select" or "highlight" more than one string in a control. If there
are multiple occurrences, only the first is shown.

For the same reasons, it can't work for all records displayed. You can
move the code to the form's OnCurrent event. Then when you move
to a record it will highlight ONE occurrence.

You might look at using Conditional Formatting. Maybe it can be of some
use here.

Wayne

 

[24sharon]

thank you so much

on your patience.