[help]Seleksi Text

[Satria]

Bro.. saya datang ke sini mo minta tolong..saya ada masalah dalam pemrograman. padahal saya sangat membutuhkan program ini untuk kebutuhan pribadi dan kebutuhan kerja saya sehari-hari. jadi, bro yang baik hati, mudah-mudahan mau bantu saya menyelesaikan program ini.

sebenarnya, masalah ini sudah pernah di post di forum lain. tapi lom ktemu solusinya. jadi, saya nyari-nyari forum lain, dan ketemu forum ini. barangkali di sini ada yang bisa bantu saya. terima kasih sebelumnya.

Kawan-kawan semua dan para master programmer, saya mau minta tolong. Bagaimana cara agar bisa menyeleksi semua kata yang dicari dalam textbox?

Berikut ini adalah code yang saya gunakan untuk mencari text :

Code: [Select]

Private Sub Find_Click()

Dim strSearch As String, intWhere As Integer
    Dim ctlTextToSearch As Control
    ' Get search string from user.
    With Me!URAI
        strSearch = InputBox("Masukan kata yang dicari:")
        ' Find string in text.
        intWhere = InStr(.Value, strSearch)
        If intWhere Then
            ' If found.
            .SetFocus
            .SelStart = intWhere - 1
            .SelLength = Len(strSearch)
           
        Else
            ' Notify user.
            MsgBox "Kata yang dicari tidak ditemukan"
        End If
    End With

End Sub
Dan hasilnya seperti berikut :

Spoiler: ShowHide

Saya bermaksud agar semua kata “batin” terseleksi. Tapi pada kasus diatas, yang terseleksi hanya satu.  Jadi, bagaimanakah cara agar semua kata yang dicari bisa diseleksi?

[Sumedho]

kalau pake model selection gitu, apakah kita bisa select multiple part of text pada waktu yg bersamaan? Kekna tidak bisa. makanya tidak akan bisa.

Biasanya utk search result itu di highlight, bukan di select

[johan3000]

boleh tau kalau semua kata2 dlm kalimat tsb udah diselect, kemudian mau diapakan ?

apakah bisa diubah menjadi array dgn jumlah baris kalimat tsb,
kemudian per baris huruf yg ketemu, font fore ground/back groundnya diubah ?

[Satria]

kalau pake model selection gitu, apakah kita bisa select multiple part of text pada waktu yg bersamaan? Kekna tidak bisa. makanya tidak akan bisa.

Biasanya utk search result itu di highlight, bukan di select

ada program yang gratisan yang bisa melakukan seperti itu. namanya CintaNotes. ada di majalah PCMild. tapi karena program tersbut banyak kelemahannya, maka saya ingin membuat sendiri program seperti itu.

[Satria]

boleh tau kalau semua kata2 dlm kalimat tsb udah diselect, kemudian mau diapakan ?

apakah bisa diubah menjadi array dgn jumlah baris kalimat tsb,
kemudian per baris huruf yg ketemu, font fore ground/back groundnya diubah ?

maksudnya penyeleksian tersebut untuk memudahkan  kita melihat kata atau kalimat yang kita cari dalam sebuah notes.

[johan3000]

maksudnya penyeleksian tersebut untuk memudahkan  kita melihat kata atau kalimat yang kita cari dalam sebuah notes.

kelihatannya yg dimaksud adalah
changeTextColor( cSearch, cText, cColor)

dimana cColor terdapat fore ground n back ground text gitu !

bukan text selection..

[johan3000]

This is not from 2007, but the idea should suit. This example changes any current highlight to the new default highlight (wdBrightGreen) and any green text to red.

Sub ChangeColor
Options.DefaultHighlightColorIndex = wdBrightGreen

    Selection.Find.ClearFormatting
    Selection.Find.Highlight = True
    Selection.Find.Replacement.ClearFormatting
    Selection.Find.Replacement.Highlight = True
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting
    Selection.Find.Font.Color = wdColorBrightGreen
    Selection.Find.Replacement.ClearFormatting
    Selection.Find.Replacement.Font.Color = wdColorRed
    With Selection.Find
        .Text = ""
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

dari pada capek2 menggantikanwarna kata2 yg diinginkan,... VBA ini dpt melakukannya dgn mudah... letakan code tsb dlm macro nya word...

[Satria]

tapi bro... VBA word itu beda dgn VBA Acces. saya pikir, macro word gak bisa digunakan di Acces. 

[johan3000]

tapi bro... VBA word itu beda dgn VBA Acces. saya pikir, macro word gak bisa digunakan di Acces. 

seluruh ms office ditulis dlm vbasic, jadi kemungkinan besar bisa aja...

[Satria]

seluruh ms office ditulis dlm vbasic, jadi kemungkinan besar bisa aja...

bro johan lom coba sendiri, ya?

menurut pengalaman saya, beberapa VBA word bisa digunakan di acces. tapi beberapa tidak bisa. dan code yang bro kasih itu, saya tidak mencobanya, karena yakin bahwa itu tidak akan digunakan dalam acces.

code ini :

Selection.Find.Replacement.Font.Color = wdColorRed

khusus untuk VBA word saja.

kalau dalam acces codenya begini :

text1.forecolor=vbred

[hatRed]

ini mau ngapain sih, gak ngerti

[johan3000]

ini mau ngapain sih, gak ngerti

bro hatRed, dia pingin highlight text

How it works

As well as the usual controls bound to fields, the continuous form shown above has:
cboField: an unbound yellow combo in the Form Header, where you select a field from a value list. (The code assumes the controls and fields have the same name.)
txtSearchText: a unbound yellow text box in the Form Header, where you enter some characters to match.
txtSearchDisplay: a gray text box in the Detail section, to display highlighted matches.
The idea is to include an HTML tag in set the ControlSource of txtSearchDisplay to highlight the search characters. Since its TextFormat property is Rich Text, Access knows what to do with the HTML tag.
For the example above where we searched the CompanyName field for the characters "AR", the ControlSource will become:
=Replace([CompanyName], "ar", "<b>ar</b>"))
In practice, Replace() cannot cope with Nulls, so we must test for Null. And for demonstration purposes, we used a red font tag instead of bold. The expression ends up as:
=IIf([CompanyName] Is Null, Null, Replace([CompanyName], "ar", "<font color=""red"">ar</font>"))
The AfterUpdate event of cboField repositions txtSearchDisplay over the top of the chosen field (by setting its Top and Left properties.) At design time, we used Bring To Front (on the Arrange tab of the Form Design Tools ribbon) so it sits in front of the other controls.

The AfterUpdate event of txtSearchText applies/removes the form's Filter, and shows/hides txtSearchDisplay with the right ControlSource.

Finally, we set the TabStop property of txtSearchDisplay to No, so it does not receive focus as the user tabs through the form. And just in case the user clicks on it, we use its Enter event to SetFocus to the text box bound to the real field. (Naturally, this suppresses the highlighting, but only on the current record.)

mungkin begitu ?

[Satria]

lom ngerti ah.. but, tanks aja dah.

itu kan codenya tidak ditulis di jendela code tapi di unbound text. jadi, saya tidak bisa menggunakan comman button nya.

apakah kode tersebut bisa ditulis diantara private sub dan end sub?

private sub Higlighteks()

??

end sub

[johan3000]

http://www.nsftools.com/misc/SearchAndHighlight.htm

Yg ini lebih hebat lagi, jadi kita bisa MENAMBAHKAN highligh term yg ingin kita search dlm text.

contoh : pertama kita pingin tau kata GULA.... tapi selanjutnya GARAM dalam text...
maka fungsi diatas dpt melakukannya....

contoh multiple search : (gula dan kemudia garam)
kalau membuat kue, bisanya diperlukan gula, dan gula aren lebih baik dari gula tebu. tapi juga jangan lupa garam. dan kita pilih aja garam dari laut karna garam ini ada sedikut bau ikan (hahhaaa) bisa juga garam tambang.. gula ?
ini menarik utk dicoba dehhh

[Sumedho]

itu JS bro. andai di vb support styling css